22/08/2006, 16:54
|
| | | Fecha de Ingreso: agosto-2006
Mensajes: 13
Antigüedad: 18 años, 8 meses Puntos: 1 | |
| Jose
este codigo te permite solo escribir numeros el punto y borrar si queres q se ejecute algo le preguntas si el KeyAscii = 13 y si si es le colocas el codigo ay, el KeyAscii =13 equivale a enter
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii > 47 And KeyAscii < 58 Or KeyAscii = 46 Or KeyAscii = 8 Then
Else
KeyAscii = 0
End If
if KeyAscii =13 then
'codigo q se desea ejecutar
else
'pues nada
end if
End Sub |