Assalamualikum sobat blogger.
Dari pada ngak ada
kerjaan dan prosses online yang makin lelet, lebih baik saya bikin Postingan Tutorial Visual Basic 6 aja,
Biar blog ini makin rame postinganya :D ,
Oke kita mulai ,
Pada kesempatan kali ini saya akan membawakan sebuah
postingan Tutorial Visual Basic 6 dengan judul :
Membatasi Jenis Input
Pada TextBox ( Huruf saja/Angka saja ) menggunakan Visual Basic ( VB 6 )
Maksudnya disini ialah, input TextBox tersebut hanya bisa
diisi Huruf/angka saja, jadi ketika kita salah mengisikan input maka maka Form
akan menapilkan message Box peringatan .
Langsung saja bikin dan Design Project anda seperti gambar
berikut :
Dengan komponen :
§
2 TextBox, 2 Label
Kemudian
Paste kode berikut pada TextBox Angka ( Text1) event KeyPress :
Private Sub Text1_KeyPress(KeyAscii As
Integer)
If Not (KeyAscii >= Asc("0")
& Chr(13) And KeyAscii <= Asc("9") & Chr(13) Or KeyAscii =
vbKeyBack Or KeyAscii = vbKeyDelete Or KeyAscii = vbKeySpace) Then
MsgBox "Isikan Angka Saja", 48,
"Perhatian"
KeyAscii = 0
End If
End Sub
Lalu kode
berikut pada TextBox Huruf ( Text2
) event KeyPress :
Private Sub Text2_KeyPress(KeyAscii As
Integer)
If Not (KeyAscii >= Asc("a")
& Chr(13) And KeyAscii <= Asc("z") & Chr(13) Or (KeyAscii
>= Asc("A") & Chr(13) And KeyAscii <= Asc("Z")
& Chr(13) Or KeyAscii = vbKeyBack Or KeyAscii = vbKeyDelete Or KeyAscii =
vbKeySpace)) Then
MsgBox "Isikan Huruf Saja", 48, "Perhatian"
KeyAscii = 0
End If
End Sub
Kemuian RUN ( F5 )
.
Jika HURUF di
input pada TextBox Angka, maka akan muncul :
Dan jika ANGKA
yang di input pada TextBox Huruf,
maka akan muncul :
Dengan begitu, kita tidak perlu cemas lagi akan terjadinya
error pada saat, input yang di masukan user tersebut salah.
Segitu saja postingan
Tutorial Visual Basic 6 dengan judul :
Membatasi Jenis Input
Pada TextBox ( Huruf saja/Angka saja ) menggunakan Visual Basic ( VB 6 )
Pada kesempatan kali
ini, semogga dapat bermanfaat bagi anda.
Judul : Membatasi Jenis Input Pada TextBox ( Huruf saja/Angka saja ) menggunakan Visual Basic ( VB 6 )
Deskripsi : Assalamualikum sobat blogger. Dari pada ngak ada kerjaan dan prosses online yang makin lelet, lebih baik saya bikin Postingan Tutorial...