Timer Aftellen

[johannetje2]

hoe kan ik een timer en label instellen, dat hij eerst van 20 naar 0 telt?

en hoe kan ik nog 1 form openen? bijv form1 is geopend, en dat hij dan nog een form1 opent?

 

[Helogat]

Maak een timer aan...
Zet de name op Timer1
Zet de Enabled op True
Zet de Interval op 1000 (voor 1 seconde)

Maak een label aan en zet de name op Label1 en de Text op 20

Dubbelklik op Timer1 en plaats de volgende code:

[FONT="Courier New"][COLOR="Blue"]If[/COLOR] Label1.text = "0" [COLOR="blue"]Then[/COLOR]
Timer1.Stop
MsgBox("De 20 seconden zijn voorbij")
[COLOR="blue"]Else[/COLOR]
Label1.text = label1.text - 1
End If[/FONT]

Je kunt

[FONT="Courier New"]msgbox("De 20 seconden zijn voorbij")[/FONT]

vervangen door hetgene wat je wilt laten gebeuren na die 20 sec

 

[johannetje2]

Maak een timer aan...
Zet de name op Timer1
Zet de Enabled op True
Zet de Interval op 1000 (voor 1 seconde)

Maak een label aan en zet de name op Label1 en de Text op 20

Dubbelklik op Timer1 en plaats de volgende code:

[FONT="Courier New"][COLOR="Blue"]If[/COLOR] Label1.text = "0" [COLOR="blue"]Then[/COLOR]
Timer1.Stop
MsgBox("De 20 seconden zijn voorbij")
[COLOR="blue"]Else[/COLOR]
Label1.text = label1.text - 1
End If[/FONT]

Je kunt

[FONT="Courier New"]msgbox("De 20 seconden zijn voorbij")[/FONT]

vervangen door hetgene wat je wilt laten gebeuren na die 20 sec

ik was het ff vergeten maar nog bedankt weet jij dat ook van een nieuw venster? ohja en je was de

End If

vergeten

 

[Helogat]

ik was het ff vergeten maar nog bedankt weet jij dat ook van een nieuw venster?

Nee, maar ik wil het wel graag weten...

ohja en je was de

End If

vergeten

Heb ik al aangepast

 

[Helogat]

weet jij dat ook van een nieuw venster?

Ik heb het volgende elders gevonden:

[FONT="Courier New"][COLOR="Blue"]Dim[/COLOR] FRM2 [COLOR="blue"]As New [/COLOR]Form2
FRM2.Show()[/FONT]

Je kunt dan bijv:

[FONT="Courier New"][COLOR="Blue"]Dim[/COLOR] FRM2 [COLOR="blue"]As New [/COLOR]Form2
FRM2.Show()
FRM2.text = [COLOR="DarkRed"]"Nieuwe Form 2"[/COLOR] [/FONT]

Ik heb het nog niet getest maar ga 't nu doen
*EDIT*
Getest, werkt!

 

[johannetje2]

Ik heb het volgende elders gevonden:

[FONT="Courier New"][COLOR="Blue"]Dim[/COLOR] FRM2 [COLOR="blue"]As New [/COLOR]Form2
FRM2.Show()[/FONT]

Je kunt dan bijv:

[FONT="Courier New"][COLOR="Blue"]Dim[/COLOR] FRM2 [COLOR="blue"]As New [/COLOR]Form2
FRM2.Show()
FRM2.text = [COLOR="DarkRed"]"Nieuwe Form 2"[/COLOR] [/FONT]

Ik heb het nog niet getest maar ga 't nu doen
*EDIT*
Getest, werkt!

B E D A N K T ! :thumb::thumb::thumb::thumb: