Visual Basic 6

[Naningkamot_22]

---

Patabang ko mga bro,,, naahat ko register arun naalang jud ko ka ask about vb 6,,, ang txtQuantity.text dili xa pwd ma enteran og letter like A a b number rajud xa,, saon pag buhat ang code ana,,, thanks daghan salamat,, mag w8 ku sa reply han2d gab-e

[kurdapia.nikki]

ascii 48-57. di lang ko kibaw sa syntax. hehehe

naa daghan ngare kamao

[The_Undertaker]

Private Sub Textbox1_KeyPress(index As Integer, KeyAscii As Integer)

Select Case KeyAscii
Case vbKey0 To vbKey9
Case vbKeyBack, vbKeyClear, vbKeyDelete
Case vbKeyLeft, vbKeyRight, vbKeyUp, vbKeyDown, vbKeyTab
Case Else
KeyAscii = 0
Beep
End Select
End Sub


Private Sub Command1_Click()
If Not IsNumeric(Text1.Text) Then
MsgBox "Please enter numbers only.", vbInformation
'you may also consider erasing it
Text1.Text = ""
End If
End Sub

[cute_judecy]

try to use the stored procedure IsNumeric()....

[Naningkamot_22]

Salamat au Undertaker sa imo pag tabang,, ur the best bro,, daghan jud au salamat,, layu jud ka ma abtan sa imu Career,,,

[Naningkamot_22]

salamat sa pag tabang Undertaker,, ur the best bro.,, layu jud ka ma abtan sa imu Career,, salamat jud au,,,