Ini salah satu cara membuat animasi huruf dengan VB.
Pertama, siapkan 1 command, 1 label dan 1 timer.
dan masukan kode dibawah ini..
Private Sub cmdkeluar_Click()
Unload Me
End Sub
Private Sub form_load()
Label1.FontBold = True
Label1.Left = 240
Label1.Top = 240
Timer1.Interval = 200
End Sub
Private Sub Timer1_Timer()
Label1.Top = Label1.Top + 100
If Label1.Top > 3000 Then
Label1.Top = 240
End If
End Sub
dan masukan kode dibawah ini..
Private Sub cmdkeluar_Click()
Unload Me
End Sub
Private Sub form_load()
Label1.FontBold = True
Label1.Left = 240
Label1.Top = 240
Timer1.Interval = 200
End Sub
Private Sub Timer1_Timer()
Label1.Top = Label1.Top + 100
If Label1.Top > 3000 Then
Label1.Top = 240
End If
End Sub
Related Post
Visual Basic
- GAME CARD WITH VISUAL BASIC 6
- Using ADO and the ListView control Visual basic 6.0
- Program pengacak no undian pada VB 6
- duplikat gambar dengan visual basic
- Efek Tetesan Air Diatas Monitor dengan visual basic
- Explode form visual basic
- SIMULATION DEACTIVE BOOM VER.1
- Simulasi animasi gerbang otomatis dengan visual basic
- MENAMPILKAN PILIHAN GAMBAR DENGAN VISUAL BASIC
- Animasi Frame image dengan visual basic 6
- Game uji kemampuan otak dengan visual basic 6.0
