SoloCodigo
Programación General => Visual Basic 6.0 e inferiores => Mensaje iniciado por: rechy en Miércoles 4 de Febrero de 2004, 15:57
-
Hola amigos.
He intentado que mi Text1.Textbox solo admita numeros. Lo he hecho con el keypress pero sin ningun exito. Alguien podria darme alguna pista??
Gracias
-
Hola rechy.
Yo creo con sólo esto ya está:
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii < 48 Or KeyAscii > 57 Then MsgBox "Pon sólo nº"
End Sub
Saludos.
-
Ok, muchas gracias. Lo intentare.
Saludos a todos.
-
Ya logre hacerlo de todas formas gracios por tu ayuda ebolo.
Les pongo el codigo por si a alguien le interesa:
Public Function NumericOnly(KeyAscii As Integer, Optional extrachar As Variant) As Integer
On Error GoTo NumericOnlyErr
Select Case Chr$(KeyAscii)
Case "0" To "9", Chr$(vbKeyBack)
NumericOnly = KeyAscii
Case Else
NumericOnly = 0
If Not IsMissing(extrachar) Then
If InStr(extrachar, Chr$(KeyAscii)) Then
NumericOnly = KeyAscii
End If
End If
End Select
Exit Function
NumericOnlyErr:
NumericOnly = 0
Exit Function
End Function
Private Sub Text1_KeyPress(KeyAscii As Integer)
Select Case Index
Case 3
Case Else
KeyAscii = NumericOnly(KeyAscii)
End Select
End Sub
-
Y si usas un MaskEdit?
-
Que tal QliX=D!.
Pues me corre bien con el codigo que tengo.
Intentare usar lo que me dices, pero no se utilizar el evento que mencionas.
De todas formas agradezco tu orientacion.
Hasta luego.
-
otro mas facil:
Sub Text1_KeyPress(KeyAscii As Integer)
If InStr("0123456789", Chr(KeyAscii)) = 0 Then
KeyAscii = 0
End If
End Sub
-
Gracias Bopo hare lo que me dices.
Saludos.