Diposting oleh
Arum Anggraeni
Kamis, 30 Juni 2011
Label: akuntansi, pemrograman, visual basic 0 komentar
Design FORM
General
General
Dim a As Integer
Dim b As String
Private Sub Form_Load()
a = 0
b = "Efek Text Berjalan Perkarakter"
End Sub
Private Sub Timer1_Timer()
‘text berjalan perkarakter
a = a + 1
Label1.Caption = Left(b, a)
If a = Len(b) Then
a = 1
End If
‘text berkedip
If Label2.Visible = True Then
Label2.Visible = False
Else
Label2.Visible = True
End If
End Sub
Langganan:
Postingan (Atom)