Foro de elhacker.net

Programación => Programación Visual Basic => Mensaje iniciado por: CARRY-ON en 29 Noviembre 2007, 20:46 pm

Título: DUDA CON CODIGO PARA VALIDAR
Publicado por: CARRY-ON en 29 Noviembre 2007, 20:46 pm

Tengo este codigo que no permite el ingreso de letras pero quiero adaptarlo , para que de un aviso cuando se ingresa una carcter que no sea numero puse un msgbox despues del then peor no funciona por que muestra el mensjae siempre aunque ingrese un numero

Código:

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 8 Then GoTo 1
If KeyAscii < 48 Or KeyAscii > 57 Then KeyAscii = 0
1: ''

End Sub

Título: Re: DUDA CON CODIGO PARA VALIDAR
Publicado por: Nakp en 29 Noviembre 2007, 21:23 pm

no seria el evento change?

salu2

Título: Re: DUDA CON CODIGO PARA VALIDAR
Publicado por: CARRY-ON en 29 Noviembre 2007, 23:13 pm

QUE NO ENTIENDO LO que DIJISTE ESE CODIGO ME FUNCIONA PERO quiero AGREGAR UN MENSAJE no se si me explike bieen o no?

Título: Re: DUDA CON CODIGO PARA VALIDAR
Publicado por: cassiani en 29 Noviembre 2007, 23:31 pm

Posiblemente no cerraste el bloque IF despues de agregar el msgbox.

Código

Private Sub Text1_KeyPress(KeyAscii As Integer)
'Este procedimiento permite que se incerten, solo las teclas deseadas usando la Ascii.
 
    If KeyAscii <> 8 Then 'Verifica si se presionó las teclas de direcciones.
        If KeyAscii < 48 Or KeyAscii > 57 Then
                KeyAscii = 0
                MsgBox "Intentas introducir caracteres no deseados", vbCritical, "Caracter no válido"
        End If
    End If
End Sub

Título: Re: DUDA CON CODIGO PARA VALIDAR
Publicado por: zXxOsirisxXz en 1 Diciembre 2007, 20:59 pm

solo tenias k agregar un "and" luego de Ascii = 0, y poner "MsgBox" pero weno. ia te dieron otra respuesta.

Espero k souciones tu problema.

bye.