18 February 2013

VB6: Input Numeric Only

!!! input numeric versi VB.NET
 
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:

Input code pada event KeyPress
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:

hijram mahjura said...

saya buat project data pelanggan textboxnya saya rubah seperti ini supaya kursor bisa dipindahkan dengan enter, trs cara gabungnya dg syntaq numeric only gmn? trims ya mbk, mf org jadul bljr newbie...
Private Sub Txthp_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtpln.SetFocus
End If
End Sub

rani irsan said...

Private Sub Txthp_KeyPress(KeyAscii As Integer)
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

hijram mahjura said...

alhamdulillah berhasil....kok puuuuinter to bu !!! jangan bosen ya klo saya banyak nanya, ini berarti blognya buka kopas,kopas,kopas kayak yang lain. salam buat keluarga