Visual Basic - no cargar letras no permitidas

Life is soft - evento anual de software empresarial
 
Vista:

no cargar letras no permitidas

Publicado por ale (36 intervenciones) el 30/09/2005 19:54:28
gente: mi problema es este:
tengo un textbox. en el ingresan datos (letras). Existen 10 letras permitidas (ej: MDVGLOELNA) lo que tengo que hacer es averiguar si introdujeron una letra que no es ninguna de las permitidas. (ej:H) . ademas esas 10 permitidas pueden estar convinadas entre si (ej: NDG) o solas.(ej:N). Entonces es esto el sistema me tiene que avisar cuando ingresen una letra no permitida. Espero novedades de estudes......
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:no cargar letras no permitidas

Publicado por Carlos (43 intervenciones) el 30/09/2005 20:01:43
Hola, puedes probar con el evento keypress de la caja de texto.
Pongo un ejemplo esperando que sea más claro y de utilidad.

Private Sub txtTipo_KeyPress(KeyAscii As Integer)
If KeyAscii = 80 Or KeyAscii = 67 Or KeyAscii = 112 Or KeyAscii = 99 Or KeyAscii = 8 Then 'Aqui controlas las letras o caracteres que deseas permitir
'Aqui anexas codigo en caso de que sea un caracter valido
Else
KeyAscii = 0 'En caso de que sea una letra o caracter no permitido no escribe nada, esto lo puedes remplazar con cualquier otro codigo, por ejemplo un mensaje de error
End If
End Sub

Esperando que esto sea de utilidad me despido

Carlos Gómez
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:no cargar letras no permitidas

Publicado por Manuel Pastrana Orozco (44 intervenciones) el 30/09/2005 20:55:10
Private Sub text_KeyPress(Letra As Integer)

línea="todas tus letras válidas"

for x%=1 to len(línea)

if letra=mid(línea,x%,1) then
Control="correcto"
exit for

else

control ="incorrecto"
end if


next x%
if control=incorrecto then text.text=left(text.text,len(text.text-1)

End Sub
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:no cargar letras no permitidas

Publicado por Eli (49 intervenciones) el 04/10/2005 00:53:33
'Pon este código en el evento KeyPress del TextBox

If InStr("MDVGLOELNA", Chr(KeyAscii)) = 0 And KeyAscii <> 8 Then
KeyAscii = 0
MsgBox "Caracteres invalidos...", vbInformation
End If

'Solo te va a permitir ingresar los caracteres que esten dentro de las comillas dobles, po los que tu quieras, si digitan otro diferente entonces le manda el mensaje.

Salu2 ,, y suerte
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar