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! ::)
Cita de: UNFORMAT en 9 Febrero 2010, 19:33 PM
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
Cita de: UNFORMAT en 9 Febrero 2010, 19:33 PM
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í:
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...!
Cita de: ssccaann43 en 9 Febrero 2010, 19:59 PM
Cita de: UNFORMAT en 9 Febrero 2010, 19:33 PM
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í:
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!
Dale, cualquier duda postea..!