How to protect text box for writing of number and characters VB6

[Jolace]

How i can protext text box which i use for showing const of writing numbers and leters t.e char

[vijaydiwakar]

How i can protext text box which i use for showing const of writing numbers and leters t.e char

Tress keyascii value and allow or disallow it

[Jolace]

Tress keyascii value and allow or disallow it

can you help me with the code? it txt3.text when i submit results

[vijaydiwakar]

can you help me with the code? it txt3.text when i submit results

this code may help u

Private Sub Text1_KeyPress(KeyAscii As Integer)
    KeyAscii = validateonlunum(KeyAscii)
End Sub
Private Function validateonlunum(ByRef keyas As Integer)
Dim Validstr$
sValidstr = "0123456789"
    If InStr(sValidstr, Chr(keyas)) = 0 Then validateonlunum = 0 Else validateonlunum = keyas
End Function

[Jolace]

[QUOTE=vijaydiwa kar]this code may help u
[CODE]
Private Sub Text1_KeyPress( KeyAscii As Integer)
KeyAscii = validateonlunum (KeyAscii)
End Sub
When i write:

Private Function validateonlunum (ByRef keyas As Integer)
Dim Validstr$
sValidstr = "0123456789 "
If InStr(sValidstr , Chr(keyas)) = 0 Then validateonlunum = 0 Else validateonlunum = keyas
End Function

Show me message: only comments may be appear after end sub end fuction.... well i can ask you for more help?

[vijaydiwakar]

see its a perfect sol try it

 
Private Sub Text1_KeyPress(KeyAscii As Integer)
    KeyAscii = validateonlunum(KeyAscii)
End Sub
Private Function validateonlunum(ByRef keyas As Integer)
Dim sValidstr$
sValidstr = "0123456789"
    If InStr(sValidstr, Chr(keyas)) = 0 Then validateonlunum = 0 Else validateonlunum = keyas
End Function