If KeyAscii <> 13 And KeyAscii <> vbKeyBack Then
RangeTombol = "0123456789-"
CekTombol = InStr(RangeTombol, Chr(KeyAscii))
If CekTombol = 0 Then
KeyAscii = 0
End If
End If
End Sub
Penjelasan:
txttelp adalah sebuah nama TextBox dan textbox itu masuk dalam event KeyPress. Aku rasa cukup penjelasannya . hehe sedikit ya..bila belum jelas silahkan tinggalkan coment. Koding diatas menggunakan Algoritma. Eh lupa semua kan pake Algoritma.- Mengunci Tombol Huruf dan hanya Tombol Angka yang Aktif Visual Basic 6.0
{ 4 komentar... read them below or add one }
kalau textboxnya 2 atau lebih dalam 1 form..
codingnya haruskah per textbox???
kalau ada yang lebih singkat tolong dishare yaa..
:)
Private Sub kunciTombol
If KeyAscii <> 13 And KeyAscii <> vbKeyBack Then
RangeTombol = "0123456789-"
CekTombol = InStr(RangeTombol, Chr(KeyAscii))
If CekTombol = 0 Then
KeyAscii = 0
End If
End If
End Sub
setiap text box masukan kunciTombol
contoh
Private Sub txttelp_KeyPress(KeyAscii As Integer)
kunciTombol
End Sub
Oke makasih gan..
kalau yang ini bagaimana caranya gan???
minta bantuan aku..
:)
http://harisghulam.tk/uplud/uppp.html
tolong ya...
haduh,, ntar malem aj ya bro..,, add fbku aja fadil_uekyz95@ymail.com
Poskan Komentar