Membuat Efek Mengetik di Form VB6 - Pada pertemuan kali ini tip dan trik visual basic akan memberikan tip dengan judul Cara Membuat Efek Mengetik di Form VB6. Anda pasti sudah tidak asing lagi dengan efek ini, banyak sekali di blog yang memberikan trik ini tapi gak ada salahnya kalau Saya memposting ulang untuk mengingatkan kembali. Trik efek ini memberikan kesan seperti orang mengetik dimana teks akan muncul satu per satu dengan kecepatan yang Anda bisa atur.
Maksud dari efek mengetik disini adalah teks akan muncul satu per satu layaknya seperti orang mengetik.Sebenarnya efek ini banyak kita temukan disebuah website atau blog, tapi kali ini tip dan trik visual basic akan membuatnya di VB dengan bantuan Timer dan PictureBox sebagai wadah tempat peletakan teks.
Untuk membuat efek ini sangat mudah sekali Anda hanya butuh 1 Timer dan 1 PictureBox yang Anda bisa tanamkan di Form Anda. Untuk membuatnya mari kita ikuti langkah-langkah berikut dibawah ini:
Cara Membuat Efek Mengetik di Form VB6
Private Sub Form_Load()
Timer1.Interval = 50 'kecepatan ketikan
sAnimation = "Test : http://tipandtrickunikvb.blogspot.com" 'Teks efek
End Sub
Private Sub Timer1_Timer()
Dim sToAnimate As String
Static iAnimation As Integer
Dim c As Integer
iAnimation = iAnimation + 1
sToAnimate = Mid(sAnimation, 1, iAnimation)
With Picture1
.Cls
.CurrentX = 25
.CurrentY = 100
Picture1.Print sToAnimate
End With
If iAnimation >= Len(sAnimation) Then
iAnimation = 0
End If
End Sub
Simpan kode dan jalankan Program.
Demikina tip Cara Membuat Efek Mengetik di Form VB6. Sangat mudah bukan? Selamat mencoba semoga berhasil.
No comments:
Post a Comment