INPUT ANGKA PADA TEXTBOX

[migduel]

Code:

Private Sub TxtEnterCode_Change()
Dim betul As Boolean
Dim jumlah
betul = True
If TxtEnterCode.Text <> "" Then
jumlah = Len(TxtEnterCode.Text)
For idx = 1 To jumlah
If Asc(Right(TxtEnterCode.Text, idx)) < 48 Or Asc(Right(TxtEnterCode.Text, idx)) > 57 Then
betul = False
End If
Next idx
If betul = False Then
MsgBox "harus angka"
TxtEnterCode.Text = ""
TxtEnterCode.SetFocus
End If
End If
End Sub

[lowo1reng]

buat apa nih um

[migduel]

buat apa nih um

ini buat anu.....
hahhahaha........

jadi di textbox hanya bisa di tulis karakter angka saja...
kemungkinan besar digunakan untuk app register di taruh di enter code nya itu

[Sponsored content]