VB6 - How to stop characters from being entered into a textbox i.e. /#~*/-*()&^&%^&

[ThePCMan]

Hey all

As i said in Title, how do u stop symbols being entered into a textbox??

[MarkT]

You could catch them in the keypress event.

Private Sub Text1_KeyPress(KeyAscii As Integer)
Dim strInvalid As String
 
    strInvalid = "/#~*/-*()&^&%^& "
    
    If InStr(strInvalid, Chr(KeyAscii)) > 0 Then
        KeyAscii = 0
    End If
End Sub

You sould also come up with a routine that remove these characters when focus moves form the control in case the text was pasted into the textbox.

[Wokawidget]

The only thing I would change here is to split it off so the function can be used with other text boxes:

Option Explicit

Private Sub Text1_KeyPress(KeyAscii As Integer)
   KeyAscii = ValidateKeyPress(KeyAscii)
End Sub

Private Sub txtWoof_KeyPress(KeyAscii As Integer)
   KeyAscii = ValidateKeyPress(KeyAscii)
End Sub

Private Function ValidateKeyPress(ByVal pintKeyAscii As Integer) As Integer
Const INVALID_CHARS As String = "/#~*-*()&^%"
    If InStr(INVALID_CHARS, Chr$(pintKeyAscii)) > 0 Then
        ValidateKeyPress = 0
        Beep
    Else
        ValidateKeyPress = pintKeyAscii
    End If
End Function

Woof

[westconn1]

or the other way to do it is just have a list of characters that are allowed, otherwise you might still miss some like ½ ¼ ¾

you can get all the standard alpha with there ascii value

try this

Private Sub Text1_KeyPress(KeyAscii As Integer)
Select Case KeyAscii
    Case 32, 65 To 90, 97 To 122, 48 To 57
    Case Else
        KeyAscii = 0
End Select

32 is space, 65 -90 is A - Z, 97 -122 is a - z and 48 - 57 is "0 - 9"

it still will not pick up characters pasted in

rgds pete

[|2eM!x]

how would you ban the enter button from being pressed? {enter} ?
also how do you only let it "print" something once?so it doesnt loop

[Hack]

Private Sub Text1_KeyPress(KeyAscii As Integer)
'Prevent the use of the "enter" key
If KeyAscii = 13 Then KeyAscii = 0
End Sub

What do you mean by "print"?

[dglienna]

you would have to check each one, and when you add it, mark that it is added for the next search. There are a lot of choiced, but if you use keypress, you can search 255 only.

[|2eM!x]

Private Sub cmdclicker1_Click()
Dim KeyAscii As Integer
If KeyAscii = 13 Then KeyAscii = 0
Timer1.Enabled = True
txtbox1.Text = CStr(Val(txtbox1.Text) + 1)
If Text1.Text <= 0 Then
Timer1.Enabled = False
enter = 0
End If
End Sub

not working, even though i know i understand how it works

[manavo11]

Private Sub cmdclicker1_Click()
Dim KeyAscii As Integer
If KeyAscii = 13 Then KeyAscii = 0
Timer1.Enabled = True
txtbox1.Text = CStr(Val(txtbox1.Text) + 1)
If Text1.Text <= 0 Then
Timer1.Enabled = False
enter = 0
End If
End Sub

not working, even though i know i understand how it works

What is it supposed to do? What is the timer for?