
04/07/2007, 09:02
|
| | Fecha de Ingreso: octubre-2006
Mensajes: 139
Antigüedad: 18 años, 6 meses Puntos: 1 | |
Re: Impedir utilizar ciertos caracteres en un Textbox Este es el código completo que utilizo. Mi cuadro de texto se llama Titulo
Select Case Titulo.SelStart
Case 0
If KeyAscii = Asc("¡") Or KeyAscii = Asc("¿") Then KeyAscii = 0:
MsgBox " Por preservar el orden alfabético, evite utilizar los signos" & vbCrLf & "de interrogación o exclamación al comienzo del cuadro", vbCritical, " Consejo para cuadro Título"
Case 1
Select Case KeyAscii
Case Asc("A") To Asc("Z")
KeyAscii = 0
MsgBox " Por preservar el orden alfabético, evite utilizar los signos" & vbCrLf & "de interrogación o exclamación al comienzo del cuadro", vbCritical, " Consejo para cuadro Título"
Case Else
Exit Sub
End Select
End Select
End Sub
Colocando este código cualquier caracter que tipeo dentro del cuadro Titulo es disparador del msgbox, y no solo los signos "¡" "¿".
Incluso quité otros eventos utilizados para este cuadro Título, para ver si me ocasionaban conflictos y sigue funcionando mal. Con el código que coloqué arriba en un nuevo proyecto sigue arrojando el mismo error.
Nota : El caso de mayúsculas como segundo caracter funciona bien.
¿ Que puede ser ? |