Cara membuat animasi text seperti diketik di visual basic 6.0

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 "A"

    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

Lalu jalankan dengan menekan tombol F5 pada keyboard, pelajari setiap logika yang di pakai pada program orang lain, maka anda akan mempunyai banyak penyelesaian masalah dalam pembuatan program.

 Terimakasi sudah membaca