Programación General > Visual Basic 6.0 e inferiores

 Que El Textbox Solo Admita Numeros

(1/2) > >>

rechy:
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

ebolo:
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.

rechy:
Ok, muchas gracias. Lo intentare.
Saludos a todos.

rechy:
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

QliX=D!:
Y si usas un MaskEdit?

Navegación

[0] Índice de Mensajes

[#] Página Siguiente