Tutorial VB 6 - Membuat Animasi Tulisan Ketik Pada Visual Basic 6 (VB6)

Saya Akan Membagikan bagaimana Cara Membuat Animasi Tulisan Ketik di VB6.

Berikut adalah tutorial membuat label atau text dalam vb 6 menjadi seolah diketik
1. Pertama buka visual basic 6.0
2. Pilih standar.exe
3. Masukan 3 buah komponen berikut

• a. Label
• b. Timer dgn property è enabled = false, interval = 300
• c. Command buton dgn property è caption = mainkan

4. Masukkan listing berikut

Private Sub Command1_Click ()
If Command1.Caption = "mainkan" Then
Timer1.Enabled = True
Command1.Caption = "Stop"
Else
Timer1.Enabled = False
Command1.Caption = "mainkan"
End If
End Sub

Private Sub Form_Load ()
Label1.Caption = "A"
End Sub

Private Sub Timer1_Timer ()
Select Case Label1
Case "B"
Label1.Caption = "AN"
Case "AN"
Label1.Caption = "ANI"
Case "ANI"
Label1.Caption = "ANIM"
Case "ANIM"
Label1.Caption = "ANIMA"
Case "ANIMA"
Label1.Caption = "Animas"
Case "Animas"
Label1.Caption = "ANIMASI"
Case "ANIMASI"
Label1.Caption = "A"
End Select
End Sub

5. Setelah itu coba anda jalankan. anda bisa langsung tekan F5
6. Selamat Mencoba

Tweet