CheatEnabled

Den elsen veit jeg egentlig ikke hvorfor er der, bare prøvde og så om det var erroren.

Maks value på en Timer er 65535, så det går ikke. Hvis det hadde gått, hadde jeg ikke postet her for å si det sånn.

Jeg har 5 radio buttons og 2 timere. Timerne er satt til: Timer1 = 1000 millisekunder, Timer2 500 millisekunder. Jeg har også en label som jeg bruker til å lagre tiden. Labelen viser 301 til å begynne med og heter counter.

Private Sub Timer1_Timer()
Dim teller As Integer
teller = counter.Caption
counter.Caption = teller - 1
End Sub

Private Sub Timer2_Timer()
If counter.Caption = 0 Then counter.Caption = 301 Else: counter.Caption = counter.Caption
End Sub

Private Sub bStart_Click()

Dim antall As Integer
If Form2.Option1.Value = True Then
antall = 1
End If
If Form2.Option2.Value = True Then
antall = 2
End If
If Form2.Option3.Value = True Then
antall = 3
End If
If Form2.Option4.Value = True Then
antall = 4
End If
If Form2.Option5.Value = True Then
antall = 5
End If

If counter.Caption = 301 Then
Timer1.Enabled = True
Select Case antall
Case 1
(blablabla osv.)
Case 2
(blablabla osv.)
Case 3
(blablabla osv.)
Case 4
(blablabla osv.)
Case 5
(blablabla osv.)
End Case
End If
End Sub

Problemet er at programmet bare kjører gjennom koden 1 gang. Jeg skal få det til å automatisere seg så det går hvert 5. minutt.

PS: Hvis noen lurte, er dette et program som sjekker om det er kommet nye tråder i et forum.

Takk, det der hadde jeg bruk for.

Finnes det noen annen måte å kopiere tiekst over i forskjellige tekstbokser uten å bruke noen annen dll-fil? Det blir litt unødvendig å legge til dllen til et lite (150kb) program.

Takk for hjelpen

EDIT: Jeg har et nytt problem som har litt med dette å gjøre. Det omhandler VBCorLib.

Jeg ha lest en thread der det står at man kan adde en reference til VBCorLib for å kunne lese en txt-fil og så legge informasjon fra hver linje inn i forskjellige tekstbokser.

Private Sub Command2_Click()
Dim linjer() As String
Dim filsted As String
filsted = App.Path & "config.txt"
linjer = File.ReadAllLines(filsted)
Text1.Text = linjer(0)
Text2.Text = linjer(1)
Text3.Text = linjer(2)
Text4.Text = linjer(3)
End Sub

Sånn ser koden min ut.

Dette funker på min PC, men når jeg sendte programmet til en venn som tester det for meg, fikk han et error: ActiveX Component cant create object

Hvordan skal jeg fikse dette erroret?

Jeg har et program der man kan lagre en config-fil, men samme hvordan man skal lagre filen kommer erroret Run Time Error 52: Bad File Name opp.

Sourcen ser omtrent sånn her ut:

Dim filsted As String
cd.ShowSave
filsted = cd.FileName
Open filsted For Output As #config
   Print #config, Text1.Text
   Print #config, Text2.Text
   Print #config, Text3.Text
Close #config

cd er en Microsoft Common Dialog.

Jeg prøvde også lagre filen i samme mappe som programmet med app.path & "config.txt", men fikk samme error.

Noen som vet hvordan jeg kan fikse det?

PS: Vet ikke om det har noe å si, men jeg kjører Vista Home Premium