Sunday, 1 July 2012

codingan Textbox hanya bisa Di input angka Saja

If Not (KeyAscii >= Asc("0") & Chr(13) _
And KeyAscii <= Asc("9") & Chr(13) _
Or KeyAscii = vbKeyBack _
Or KeyAscii = vbKeyDelete _
Or KeyAscii = vbKeySpace) Then
MsgBox "Isikan Angka Saja", 48, "Perhatian"
KeyAscii = 0
End If

atau dengan cara ini
taru di cmd proses


If Not IsNumeric(text1.Text) Then
MsgBox "Masukan Angka Saja ", vbCritical, "Pesan"
Exit Sub
End If

Perhatian: Yuk Baca Artikel bagus di Nurul Musthofa

Artikel Terkait

No comments:

Post a Comment

 

Network

Pesan

Semoga situs ini bermanfaat