Blinkende Tekst

[VB6_NEW USER]

Hei Igjen

 

Jeg trenger blinkende tekst på en av mine programmer eller vis dere har en kode til blinkende "Form" så hadde det vert enda bedre

[Jonas]

Sleng inn en timer og denne koden:

Private Sub Form_Load()
Timer1.Interval = 50
End Sub

Private Sub Timer1_Timer()
If Me.Visible = True Then
   Me.Visible = False
Else
   Me.Visible = True
End If
End Sub

Tallet 50 er hvor fort den skal blinke. 1000 er hvert sekkund.

[VB6_NEW USER]

takk

[GeirGrusom]

Tallet 50 er hvor fort den skal blinke. 1000 er hvert sekkund.

Eller med andre ord: Interval er i millisekunder.

[aadnk]

Koden vill fungere helt fint, men jeg vil likevel anbefale å bruke en litt kortere versjon som gjør nøyaktig det samme:

 

Private Sub Timer1_Timer()
Me.Visible = Not Me.Visible
End Sub