Menditeksi Angka atau karakter pada text visual basic 6.0

Menditeksi angka atau karakter pada text menggunakan visual basic 6.0 cukup simple sekali, penditeksian ini juga dapat digunakan jika anda menginginkan angka saja yang dapat dimasukkan pada text atau alpha saja yang dapat dimasukkan kedalam text visual basic 6.0, hal ini bisa digunakan sewaktu anda membuat kalkulator atau alarm dimana pada text hanya dapat dimasukkan angka saja.

Contoh kode diteksi angka atau huruf pada text adalah menggunakan kode:

If Not IsNumeric(text1) then
msgbox"Anda memasukkan huruf"
else
msgbox"Anda memasukkan angka"
End If

Jika hanya angka saja yang dapat dimasukkan kedalam text vb6 maka kodenya seperti dibawah ini:

Private Sub Text1_Change()
If Not IsNumeric(Text1) Then
Text1 = ""
Else
Text1 = Text1
End If
End Sub

Maka ketika anda mengetikkan selain angka maka text1 otomatis akan kosong kembali, dan bila yang diinginkan hanya dapat diketikkan huruf tinggal buang saja kata Not pada kode diatas jadi seperti kode dibawah ini:

Private Sub Text1_Change()
If IsNumeric(Text1) Then
Text1 = ""
Else
Text1 = Text1
End If
End Sub