Cara Membuat Animasi Text Seperti
Diketik di Visual Studio 2012
Berikut
adalah tutorial membuat label atau text dalam vb 6 menjadi seolah diketik
1.
Pertama buka
Visual Studio
2.
Pilih Windows
Forms Application
3.
Masukan 3
buah komponen berikut
a. Label
b. Timer dengan
property è enabled = false, interval = 300
c. Button dengan property è caption = mainkan
Lalu Masukkan Script Berikut :
Public Class Form1
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Label1.Text = "K"
End Sub
Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
Select Case Label1.Text
Case "K"
Label1.Text = "KH"
Case "KH"
Label1.Text = "KHA"
Case "KHA"
Label1.Text = "KHAI"
Case "KHAI"
Label1.Text = "KHAID"
Case "KHAID"
Label1.Text = "KHAIDI"
Case "KHAIDI"
Label1.Text = "KHAIDIR"
Case "KHAIDIR"
Label1.Text = "K"
End Select
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
If Button1.Text = "Mainkan" Then
Timer1.Enabled = True
Button1.Text = "Stop"
Else
Timer1.Enabled = False
Button1.Text = "Mainkan"
End If
End Sub
End Class
0 Response to "Cara Membuat Animasi Text Seperti Diketik di Visual Studio 2012"
Post a Comment