Webnank - Mungkin ini hanyalah salah satu efek sederhana yang bisa di gunakan pada Visual Basic 6.0 atau yang biasa di singkat dengan VB6, dan mungkin juga sudah banyak juga yang membuat tutorial ini.
Tapi dari beberapa yang sudah saya baca, kebanyakan menggunakan cara yang tidak simpel (terlalu ber belit belit) maka dari itu saya mencoba memberikan tutorial ini kepada kalian dengan cara yang sangat mudah dan hanya dengan menggunakan sintek sederhana.
Silahkan kalian buat project baru (sebagai contoh saja) dan masukan 1 Timer ke dalamnya
lalu atur interval nya menjadi 200 atau sesuaikan semau kalian
Setelah itu karena disini saya menggunakan contohnya adalah form, maka kita ganti Caption dari form tersebut menjadi Webnank Tutorial Visual Basic atau apa saja lah terserah kalian
Lalu masuklah ke View Code dan isi Declare nya seperti ini
Setelah itu coba lah untuk Run, dan jika kalian mengikuti tutorial ini dengan benar maka hasilnya akan seperti di bawah ini
Selamat mencoba.
Tapi dari beberapa yang sudah saya baca, kebanyakan menggunakan cara yang tidak simpel (terlalu ber belit belit) maka dari itu saya mencoba memberikan tutorial ini kepada kalian dengan cara yang sangat mudah dan hanya dengan menggunakan sintek sederhana.
Silahkan kalian buat project baru (sebagai contoh saja) dan masukan 1 Timer ke dalamnya
lalu atur interval nya menjadi 200 atau sesuaikan semau kalian
Setelah itu karena disini saya menggunakan contohnya adalah form, maka kita ganti Caption dari form tersebut menjadi Webnank Tutorial Visual Basic atau apa saja lah terserah kalian
Lalu masuklah ke View Code dan isi Declare nya seperti ini
Dim strTemp, LenTemp, NgetikForm_Load nya isi seperti ini
strTemp = Form1.CaptionIsi Timer nya seperti ini
Ngetik = 1
LenTemp = Len(strTemp)Sehingga isi sintek komplitnya seperti gambar di bawah ini
Dim Form As String
LenTemp = Len(strTemp)
Form1.Caption = Left(strTemp, Ngetik) + "_"
Ngetik = Ngetik + 1
If Ngetik > LenTemp Then
Ngetik = 1
End If
Setelah itu coba lah untuk Run, dan jika kalian mengikuti tutorial ini dengan benar maka hasilnya akan seperti di bawah ini
Selamat mencoba.
Terima kasih sudah menyempatkan waktu untuk membaca artikel Membuat Efek Mengetik Di VB6. Jika terdapat link error silahkan langsung hubungi saya di menu Contact supaya bisa langsung di perbaiki dan jangan lupa tinggalkan komentar kamu setelah selesai membaca artikel ini. Salam Admin
Ditulis oleh:
Unknown - Friday 1 August 2014