Aplikasi Kode Enter Textbox Vb6

Tutorial Visual Basic 6 – Aplikasi Kode Enter Pada Textbox Vb6 banyak sekali Contohnya Bisa digunakan Untuk Berpindah dari Textbox satu ke Textbox lainnya, Bisa digunakan untuk Penggunaan Password , bisa digunakan untuk penggunaan dalam Penghitungan, dan bisa untuk perintah lainnya yang fungsinya sama persis dengan Meng Klik Tombol Commandbutton VB6.
Pada Tutorial Visual Basic 6 kali ini kita akan membahas Pengaplikasian Kode Enter Pada Textbox Vb6 untuk Fungsi :

1 Berpindah dari Textbox satu ke Textbox lainnya
2.Penggunaan Password
3 Penggunaan dalam perhitungan

1. Aplikasi Kode Enter : Berpindah dari Textbox satu ke textbox lainnya

Kode yang akan digunakan diletakkan ke object Text1 di bagian Procedure KeyPress. Dan Kodenya seperti dibawah ini :

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Text2.SetFocus
End If
End Sub

Kode vb6 diatas akan membuat Posisi Fokus yang semula ada di Text1, jika Text1 dienter maka posisi fokus yang ada di text1 akan berpindah fokus ke text2.

2. Aplikasi Kode Enter Textbox Vb6 pada Penggunaan Password

Kode yang akan digunakan  diletakkan ke object Text1 di bagian Procedure KeyPress Dan Textbox yang digunakan untuk password juga diletakkan di Text1. Kodenya seperti dibawah ini :

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
If Text1 = "tutorial vb6" Then
MsgBox "Password anda Benar", vbInformation, "Pemberitahuan Kode Enter"
Else
MsgBox "password anda salah", vbInformation, "Pemberitahuan Kode Enter">
End If
End If
End Sub

Kode Vb6 diatas akan memunculkan sebuah pesan “password anda benar” jika text1 diketik dengan password “tutorial vb6” tapi bila password yang digunakan tidak sesuai maka akan timbul sebuah pesan “password anda salah”. Perhatikan gambar dibawah Tampilan Pesan dibawah ini :




3. Aplikasi Kode Enter Textbox Vb6 pada Penggunaan Dalam Perhitungan

Kode yang akan digunakan  diletakkan ke object Text2 di bagian Procedure KeyPress Dan Textbox yang digunakan untuk diisi angka diletakkan di Text1 dan text2. Kodenya seperti dibawah ini :

Private Sub Text2_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Text3 = Val(Text1) + Val(Text2)
End If
End Sub

Kode Vb6 diatas akan menghasilkan nilai penjumlahan yang akan muncul di text3 setelah text1 dan text2 diisi angka kemudian fokus pada text2 di tekan enter. Tampilan Hasil Kodenya seperti pada gambar di bawah ini :




Sekian Artikel Aplikasi Kode Enter Textbox Vb6 , Semoga bermanfaat – Tutorial Visual Basic 6

Share this Aplikasi Kode Enter Textbox Vb6 article :

Facebook Twitter Google+

Artikel Terkait Aplikasi Kode Enter Textbox Vb6

TENTANG PENULIS

Nanang Sugiarto

Penulis seorang Programmer Aplikasi Database Vb6 dan Blogger. Situs Web yang dibuat Penulis yaitu : Nanang Sugiarto WorkShop, Tutorial VB6 Sugiarto, Tutorial Microsoft Office Sugiarto, dan Seputar Pengetahuan Pangan.