0 Mengunci Tombol Huruf dan hanya Tombol Angka yang Aktif Visual Basic 6.0

I Love You Peri Cantikku

 
Mengunci Tombol Huruf dan hanya Tombol Angka yang Aktif Visual Basic 6.0 - wah panjang kali ya judulnya. Bingung seh mau kasih judul apa.. cara Mengunci Tombol Huruf dan hanya Tombol Angka yang Aktif Visual Basic 6.0 bisa menggunakan KeyAscii dan dimasukan pada event KeyPress. Biasanya cara ini digunakan untuk menghindari user/pemakai menekan tombol huruf. Simak Langsung Kodingnya:

Private Sub txttelp_KeyPress(KeyAscii As Integer)
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