Agar TextBox Vb6 Tidak Bisa DIketik Huruf

Tutorial Visual Basic 6.0 – Adakalanya dalam membuat aplikasi VB6, pada textbox diharapkan hanya diketik Angka saja seperti pada pengisian No Handphone. Bagaimana Agar Textbox VB6 Tidak Bisa Diketik Huruf ?

Pertama Yang perlu kita lakukan yaitu membuat Object Textbox VB6. Kita akan gunakan Object Text1 VB6 dibagian Procedure Change untuk tempat Kode Agar Textbox VB6 Tidak Bisa Diketik Huruf. Kode nya seperti dibawah ini :

Private Sub Text1_Change()
If Text1 <> "" Then
If IsNumeric(Text1) = False Then
Text1 = ""
End If
End If
End Sub

Dengan menggunakan kode diatas, jika kita mengetik huruf maka akan otomatis membuat Text1 VB6 menjadi kosong atau huruf nya tidak bisa diketik tapi bila yang diketik angka maka text1 VB6 bisa diketik.

Adakalanya Jika kita mengetik huruf di textbox VB6, kita tidak sadar bahwa kita tidak bisa mengetik huruf di texbox VB6. Untuk itu perlu sebuah Kode Pesan agar kita sadar bahwa textbox VB6 yang kita ketik tidak bisa diketik huruf.

Kode Tutorial agar Textbox VB6 Tidak Bisa Diketik Huruf yang ditambah dengan Kode Pesan akan seperti dibawah ini :

Private Sub Text1_Change()
If Text1 <> "" Then
If IsNumeric(Text1) = False Then
MsgBox "Harap diisi Angka", vbCritical, "Peringatan"
Text1 = ""
End If
End If
End Sub

Dan Hasilnya bila Textbox VB6 diketik huruf akan menjadi seperti gambar dibawah ini :




Sempatkan diri anda untuk Melihat Artikel : Agar Textbox VB6 tidak bisa diketik angka

Sekian Artikel Penulis Tentang : Agar Textbox VB6 tidak bisa diketik Huruf - Tutorial Visual Basic 6.0

Share this Agar TextBox Vb6 Tidak Bisa DIketik Huruf article :

Facebook Twitter Google+

Artikel Terkait Agar TextBox Vb6 Tidak Bisa DIketik Huruf

TENTANG PENULIS

Nanang Sugiarto

Penulis seorang Programmer Aplikasi Database Vb6 dan Blogger. Situs Web yang dibuat Penulis yaitu : Nanang Sugiarto WorkShop, Tutorial VB6 Sugiarto, Tutorial Microsoft Office Sugiarto, dan Seputar Pengetahuan Pangan.