Sabtu

Efek Typing text VB

nih ada sedikit source code tentang evek typing text

persiapan/barang2x sing diperlukne :
-form1
-timer1

Nih bahannya :

FORM1
Dim M_About As String
Dim MaxText As Long
Dim NowText As Long
Dim TmeStop As Long

Private Sub Form_Load()
M_About = "ini hanya uji cobs typing text" ' < = dapat di ganti
Timer1.Enabled = True
MaxText = Len(M_About)
End Sub

TIMER1
Private Sub Timer1_Timer()
If NowText = MaxText Then
Timer1.Enabled = False
NowText = 0
Exit Sub
Else
NowText = NowText + 1
End If

Text1.Text = Left(M_About, NowText)
Text1.SelStart = Len(Text1.Text)
End Sub

Selamat mencoba..

0 komentar:

Posting Komentar

 

Getux32 Data Design by Insight © 2009