Berikut ini contoh code agar pada textbox (visual basic 6) hanya dapat menginput nilai numerik dan simbol titik (.) sebagai pengganti koma untuk penulisan standard internasional
Contoh: 10000.5
Buat desain kontrol sebagai berikut:
Private Sub Text1_KeyPress(KeyAscii As Integer)
Select Case KeyAscii
Case Is < 32
Case 46
If InStr(Text1.Text, ".") <> 0 Then KeyAscii = 0
Case 48 To 57
Case Else
KeyAscii = 0
End Select
End Sub
Run dan coba menginputkan karakter pada texbox, maka karakter yang bisa diketikan hanya angka dan titik.
Click here if you like this article.
Artikel Selanjutnya:
VB6: Format Number pada Textbox
3 Comments
Private Sub Txthp_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtpln.SetFocus
End If
End Sub
Select Case KeyAscii
Case 13
txtpln.SetFocus
Case Is < 32
Case 46
If InStr(Text1.Text, ".") <> 0 Then KeyAscii = 0
Case 48 To 57
Case Else
KeyAscii = 0
End Select
End Sub