Permitir solo valores numéricos en el cuadro de texto

Question

Quiero hacer un control TextBox que solo acepte valores numéricos.

¿Cómo puedo hacer esto en VB6?

Answer 1

En el texto del cuadro de texto Change, compruebe si el valor introducido es un número. Si no es un número, vuelva a establecer el valor anterior.

Dim textval As String 
Dim numval As String 

Private Sub TextBox1_Change() 
    textval = TextBox1.Text 
    If IsNumeric(textval) Then 
    numval = textval 
    Else 
    TextBox1.Text = CStr(numval) 
    End If 
End Sub 

Answer 2

mira esto:

http://www.vbforums.com/showthread.php?t=350067

Es necesario comprobar cada pulsación de tecla, o se puede hacer una validación al final.

Answer 3

Haga clic derecho en el cuadro de control> componente> Control -> Microsoft Masked Edit Control 6.0.
O con el cuadro de texto normales:

Private Sub Text1_Validate(Cancel As Boolean) 
Cancel = Not IsNumeric(Text1.Text) 

End Sub 

Answer 4

que vamos a la API que lo haga por mí. Agrego esta función a un módulo .bas y lo llamo para cualquier control de edición que necesite establecer en numérico solamente.

Option Explicit 

Private Const ES_NUMBER = &H2000& 
Private Const GWL_STYLE = (-16) 
Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long 


'set an editbox to numeric only - return the previous 
'style on success or zero on error 
Public Function ForceNumeric(ByVal EditControlhWnd As Long) As Long 
    Dim lngCurStyle As Long 
    Dim lngReturn As Long 

    lngCurStyle = GetWindowLong(EditControlhWnd, GWL_STYLE) 
    If lngCurStyle <> 0 Then 
     lngReturn = SetWindowLong(EditControlhWnd, GWL_STYLE, lngCurStyle Or ES_NUMBER) 
    End If 

    ForceNumeric = lngReturn 

End Function 

Para usarlo, llame a la función con el control del TextBox.

Private Sub Form_Load() 
    Dim lngResult As Long 

    lngResult = ForceNumeric(Text1.hwnd) 

End Sub 

Answer 5

que suelen utilizar este código:

Private Sub text1_KeyPress(KeyAscii As Integer) 
    If Not IsNumeric(text1.Text & Chr(KeyAscii)) And Not KeyAscii = 8 Then KeyAscii = 0 
End Sub 

Answer 6

Lo siguiente puede ser utilizado para los números enteros:

Private Sub text1_KeyPress(KeyAscii As Integer) 
    If Not IsNumeric(text1.Text & Chr(KeyAscii)) And Not KeyAscii = 8 Then KeyAscii = 0 
    if (KeyAscii>=43) and (KeyAscii<=46) Then KeyAscii = 0 
    'it ignores '-', '+', '.' and ',' 
End Sub 

Answer 7

normalmente utilizo este código:

Private Sub text1_KeyPress(KeyAscii As Integer) 
    If Not IsNumeric(Chr(KeyAscii)) And Not KeyAscii = 8 Then 
     KeyAscii = 0 
    End If 
End Sub 

Esperanza esto ayuda.

Answer 8

If Len(Text2.Text) > 0 Then 
    If IsNumeric(Text2.Text) = False Then 
     Text2.SetFocus 
     CreateObject("WScript.Shell").SendKeys "{BACKSPACE}" 
    End If 
End If 

Answer 9

probar este código:

Private Sub Text1_Change() 
    textval = Text1.Text 
    If IsNumeric(textval) Then 
     numval = textval 
    Else 
     Text1.Text = CStr(numval) 
    End If 
End Sub