Untuk membuat Validasi TextBox hanya bisa diisi angka sangat mudah.
Berikut langkahnya :
Buka Visual Basic 6.0 anda
Buatlah Form seperti contohb berikut ini :
Jika sudah membuat Design form seperti gambar diatas, silahkan masukan koding dibawah ini :
Karena pada text3 dan text4 harus kita masukan agka, maka Validasi yang sekarang akan kita buat akan disisipkan pada Text3 dan Text4
Default Kodingnya seperti dibawah ini :
If Not (KeyAscii >= Asc("0") And KeyAscii <= Asc("9") Or KeyAscii = vbKeyBack Or KeyAscii = vbKeyReturn) Then KeyAscii = 0
Sika kita akan gunakan pada TextBox pada VB 6.0 silahkan gunakan pada KeyPress.
Pada Form yang telah kita buat diatas, maka berikut kodingnya :
Private Sub Form_Load()
Text1 = ""
Text2 = ""
Text3 = ""
Text4 = ""
End Sub
Private Sub Text3_KeyPress(KeyAscii As Integer)
If Not (KeyAscii >= Asc("0") And KeyAscii <= Asc("9") Or KeyAscii = vbKeyBack Or KeyAscii = vbKeyReturn) Then KeyAscii = 0
End Sub
Private Sub Text4_KeyPress(KeyAscii As Integer)
If Not (KeyAscii >= Asc("0") And KeyAscii <= Asc("9") Or KeyAscii = vbKeyBack Or KeyAscii = vbKeyReturn) Then KeyAscii = 0
End Sub
Kemudian silahkan anda Run Project VB 6.0 anda
Jika anda berhasil, ketika anda memasukan data pada TextBox3 dan 4 anda harus memasukannya dengan angka, jika bukan angka maka tidak bisa
Post a Comment