Input Angka Aja

Dalam visual basic banyak cara untuk memproteksi agar supaya kotak inputan(textbox) dalam program kita yang dikhususkan untuk bisa diinput angka saja tidak dapat menginput karakter selain angka, disini saya akan memberikan triknya , g sabar mw tau trik n tipsnya........

dalam tips ini sya akan mengambil contoh pada Text1 jadi source codenya gini ne

Private Sub Text1_Change()
if text1.text="" then
exit sub 'untuk memberhentikan baris perintah
end if
'Input Angka Saja
if not isnumeric(text1) then 'jika yang diinput di text1 bukan angka maka
sendkeys vbback 'menghapus inputan yang bukan angka
exit sub 'hentikan pembacaan baris perintah
end if
End Sub

nah itu diatas source codenya teman-teman pada statment pada kondisi if yang kedua kita bisa menambahkan code untuk menampilkan pesan jika penginputa di text1 bukan angka

Private Sub Text1_Change()
if text1.text="" then
exit sub 'untuk memberhentikan baris perintah
end if
'Input Angka Saja
if not isnumeric(text1) then 'jika yang diinput di text1 bukan angka maka
msgbox"Dilarang Menginput Angka" '--->Ne Kotak Pesannya
sendkeys vbback 'menghapus inputan yang bukan angka
exit sub 'hentikan pembacaan baris perintah
end if
End Sub

selamat mencoba teman-teman, semoga bermanfaat.....

Bookmark this post: