- Buat 1 Project baru STANDAR.EXE, masukkan satu buah textbox, seperti gambar berikut
- Double klik pada textbox untuk membuka code editor, Lalu copykan code berikut :
Public Sub HanyaAngka(ByRef KeyAscii As Integer)
'http://ilkomunived.blogspot.com/
If ((KeyAscii < 48 And KeyAscii <> 8) Or KeyAscii > 57) Then
KeyAscii = 0
End If
End Sub
Private Sub Text1_KeyPress(KeyAscii As Integer)
'http://ilkomunived.blogspot.com/
HanyaAngka KeyAscii
End SubDemikian tutorial cara validasi hanya angka textbox vb 6.0,silahkan dikembangkan dan semoga bermanfaat...
Baca juga validasi hanya huruf pada textbox vb 6.0
salam, programer memang harus kreatif....terima kasih sudah berbagi.
BalasHapusOk mas, salam kembali, terima kasih sudah berkunjung :)
Hapusklo pake textbox change gmn? tidak perlu nunggu enter? thanks
BalasHapusdear mas muhammad usman , maaf sebellumnya , komputer saya tidak terpasang lagi vb, saya kurang master dibidang ini, dan saya hanya bisa menjawab jika saya mencobanya langsung mengotak atik vb... terima kasih kunjungannya mas muhammad
Hapus