Membuat Efek Mengetik Di VB6

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

Dim strTemp, LenTemp, Ngetik

Form_Load nya isi seperti ini

strTemp = Form1.Caption
    Ngetik = 1

 Isi Timer nya seperti ini

LenTemp = Len(strTemp)
    Dim Form As String
    LenTemp = Len(strTemp)
    Form1.Caption = Left(strTemp, Ngetik) + "_"
    Ngetik = Ngetik + 1
    If Ngetik > LenTemp Then
    Ngetik = 1
    End If

 Sehingga isi sintek komplitnya seperti gambar di bawah ini

Setelah itu coba lah untuk Run, dan jika kalian mengikuti tutorial ini dengan benar maka hasilnya akan seperti di bawah ini

Selamat mencoba.