Cita de: UTU en 28 Febrero 2006, 22:27 PM
Con esto solo te permite poner los numeros en el textbox llamado Text1
--------------------------------------------------------------------------
Private Sub Text1_KeyPress(KeyAscii As Integer)
If InStr("0123456789", Chr(KeyAscii)) = 0 And KeyAscii <> 8 Then
KeyAscii = 0
End If
End Sub
--------------------------------------------------------------------------
y si quiero que kontenga solo letras y numeros nada mas.. debo hacerlo de esta forma??
Private Sub Text1_KeyPress(KeyAscii As Integer)
If InStr("0123456789abcdefghiJKLM...etc", Chr(KeyAscii)) = 0 And KeyAscii <> 8 Then
KeyAscii = 0
End If
End Sub
?? Salu2