Agar TextBox VB6 Tidak Bisa Diketik Angka

Tutorial Visual Basic 6.0 – Adakalanya dalam membuat aplikasi VB6, pada textbox diharapkan hanya diketik Huruf saja seperti pada pengisian Nama Orang. Bagaimana Agar Textbox VB6 tidak bisa diketik Angka ?

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 Angka. Kode nya seperti dibawah ini :

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

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

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

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

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

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




Sempatkan diri anda untuk Melihat Artikel Agar Textbox VB6 tidak bisa diketik Huruf.

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

Share this Agar TextBox VB6 Tidak Bisa Diketik Angka article :

Facebook Twitter Google+

Artikel Terkait Agar TextBox VB6 Tidak Bisa Diketik Angka

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.