The Emulator
23 Mensaje(s)
|
| Enviado - 20/7/2004 |
| |
Hola
Bueno no se si te entendi bien, lo que quieres es que nos escriban el caracter Z en una caja de texto si es asi aqui hay dos formas de verificar eso:
'Esta evalua cada vez que se preciona una tecla en la caja de texto si la tecla corresponde a la Z o z se muestra un mensaje de error y no deja que se escriba le Z
Coloca un Text
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 122 Or KeyAscii = 90 Then
MsgBox "Caracter invalido", vbCritical, "Error"
KeyAscii = 0
End If
End Sub
'Esta es la otra forma, si el valor no se va a evaluar cuando se va escribiendo en la caja de texto si no que en cualquier momento se quiere evaluar usa esto:
Coloca un Text y un Command
Private Sub Command1_Click()
Dim X As Byte
For X = 1 To Len(Text1)
If UCase(Mid(Text1, X, 1)) = "Z" Then
MsgBox "Caracter invalido", vbCritical, "Error"
End If
Next
End Sub
Espero esto sea lo que necesites.
Saludos
Emuladores y Roms
Visita www.theemulator.tk |
| |
|
