Duda con textbox

[UNFORMAT]

Hola, tengo un problema que no se resolver. Me gustaría no permitir unos determinados caracteres en un textbox, por ejemplo + o &
¿Como podría hacerlo? en vb6


saludos! 

[LastDragon]

Hola, tengo un problema que no se resolver. Me gustaría no permitir unos determinados caracteres en un textbox, por ejemplo + o &
¿Como podría hacerlo? en vb6


saludos! 

pues ve al evento de keypress o algun nombre similar

y evualua el contenido del textbox cada que es presionada (cualquier) tecla, borrandolo

[ssccaann43 ©]

Hola, tengo un problema que no se resolver. Me gustaría no permitir unos determinados caracteres en un textbox, por ejemplo + o &
¿Como podría hacerlo? en vb6


saludos! 

Bien, puedes hacerlo así:

Código (vb) [Seleccionar] Expandir



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

Function VerificaTecla(Tecla)
   
   
Dim CaracterProhibido As String
   
   
    'Acepta todos los números, la tecla Backspace, _
     la tecla Enter, la coma y el punto
   
    CaracterProhibido = "&%$!+-*/" & Chr(vbKeyBack)
   
    If InStr(1, CaracterProhibido, Chr(Tecla)) Then
        'Si la tecla que precionaste contiene el caracter no deseado pues lo prohibe.
        VerificaTecla = 0
       
    Else
        VerificaTecla = Tecla
    End If
   

End Function


Cualquier cosa postea...!

[UNFORMAT]

Hola, tengo un problema que no se resolver. Me gustaría no permitir unos determinados caracteres en un textbox, por ejemplo + o &
¿Como podría hacerlo? en vb6


saludos! 

Bien, puedes hacerlo así:

Código (vb) [Seleccionar] Expandir



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

Function VerificaTecla(Tecla)
   
   
Dim CaracterProhibido As String
   
   
    'Acepta todos los números, la tecla Backspace, _
     la tecla Enter, la coma y el punto
   
    CaracterProhibido = "&%$!+-*/" & Chr(vbKeyBack)
   
    If InStr(1, CaracterProhibido, Chr(Tecla)) Then
        'Si la tecla que precionaste contiene el caracter no deseado pues lo prohibe.
        VerificaTecla = 0
       
    Else
        VerificaTecla = Tecla
    End If
   

End Function


Cualquier cosa postea...!

Que te puedo decir.... un millon de gracias me ha servido a la perfección
la verdad que no tenia ni idea me salvastes!!!

te debo una amigo  de nuevo GRACIAS!

[ssccaann43 ©]

Dale, cualquier duda postea..!