Erlaubt nur numerische Werte in das Textfeld

Ich möchte ein TextBox-Steuerelement, das akzeptiert nur numerische Werte.

Wie kann ich das in VB6?

InformationsquelleAutor Gopal | 2010-12-22

6

In das Textfeld text Change Fall, überprüfen Sie, ob der eingegebene Wert eine Zahl ist. Wenn es nicht eine Reihe legen Sie dann den alten Wert wieder zurück.
```
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
```
- Sie verwenden Sie lieber Validate-Ereignis.
- Es hängt davon ab. Sollten Sie die Validate Ereignis, wenn Sie wollen, dass die überprüfung, dass nur zahlen eingegeben wurden, werden ausgelöst, wenn der Benutzer verlässt das textbox-Steuerelement und versucht, den Fokus auf etwas anderes. Wenn Sie diesen Weg gehen, dann und nur dann wird ein Fehler oder eine Benachrichtigung vorgelegt werden. Auf der anderen Seite, wenn Sie die Change Ereignis, wird der Benutzer sofort benachrichtigt werden, dass ein nicht-numerischer Wert, den Sie eingegeben haben ist ungültig.
InformationsquelleAutor Thunder
8

Rechtsklick auf control-box - > Komponenten - > Control -- > Microsoft Masked Edit Control 6.0.

Oder mit der normalen textbox:
```
Private Sub Text1_Validate(Cancel As Boolean)
 Cancel = Not IsNumeric(Text1.Text)

End Sub
```
InformationsquelleAutor pinichi
3

Lass ich die API es für mich tun. Füge ich diese Funktion ein .bas-Modul und rufen Sie für jede edit-Steuerelement, die ich brauche, um auf die numerische nur.
```
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
```
Es zu verwenden, rufen Sie die Funktion mit dem handle der TextBox.
```
Private Sub Form_Load()
    Dim lngResult As Long

    lngResult = ForceNumeric(Text1.hwnd)

End Sub
```
- Das hat seine Probleme, obwohl. Sie können kopieren Sie alle nicht numerischen text und fügen Sie ihn in die Kontrolle über (1), Strg-V, (2) Shift-Insert, und (3) die text-box " - Kontext-Menü. Nur (1) angesprochen werden kann, die in VB6 per Tastendruck.
- Sie sind richtig, aber der einzige Weg, um zu verhindern, dass das einfügen Ungültiger Werte in eine textbox in VB ist das erfassen der system-Meldungen. Es ist möglich, aber eine hässliche Sache zu tun, in VB6. Diese verhindert nur, dass Sie in einem nicht-numerischen Wert. Wenn ich brauche, um zu versichern, dass meine Daten Integrität ich check den text gültig ist, bevor ich es verwenden für die Verarbeitung. In der Zwischenzeit habe ich es immer schwieriger für die Benutzer ungültige Daten eingeben. In .Net ich Verbinde dies mit der überwachung des message-stream für die WM_PASTE (glaube ich) und überprüfen Sie die Informationen eingefügt werden, bevor Sie es.
InformationsquelleAutor jac
1

Check this out:

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

Müssen Sie prüfen jeden Tastendruck, oder Sie können tun, eine Validierung am Ende.

InformationsquelleAutor zsalzbank

Ich habe diesen code in mein Projekt:

Private Sub txtReceiptID_KeyPress(KeyAscii As Integer)
Dim Keychar As String
If KeyAscii > 31 Then
    Keychar = Chr(KeyAscii)
    If Not IsNumeric(Keychar) Then
        KeyAscii = 0
    End If
End If

End Sub

InformationsquelleAutor Chhornkimchheng

normalerweise verwende ich diesen code:

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

InformationsquelleAutor Gung Ariana

Folgendes kann verwendet werden für ganze zahlen:

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

InformationsquelleAutor Koko

Normalerweise verwende ich diesen code:

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

Hoffe, das hilft.

InformationsquelleAutor Shamsudheen Abubakker

Versuchen, diesen code:

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

InformationsquelleAutor JEREMIAH EasySoft

0

Wählen Sie einfach die Kontrolle und die Tastendruck-Methode und der IDE-erstellen Sie mit der nächsten Methode für Sie. Dann fügen Sie den folgenden code innerhalb der Methode
```
Private Sub txtControl_KeyPress(KeyAscii As Integer)
   KeyAscii = RealKeyascii(txtControl, KeyAscii, 256 ^ 8)
End Sub
```
- Möchten Sie eine Erklärung zu Ihrem coce-nur Antwort? Würde es helfen, Kampf gegen die falsche Vorstellung, dass StackOverflow ist eine Kostenlose code-writing-service.
InformationsquelleAutor Juan David Benitez

-1

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

InformationsquelleAutor saeid

-1

VERSUCHEN, DIESEN CODE: DEAKTIVIERT die BUCHSTABEN(A-Z,a-z) UND AKZEPTIERT die RÜCKTASTE, PUNKTE, KOMMATA UND ZAHLEN(0-9) =)

Private Sub Text1_KeyPress(KeyAscii As Integer)

Wenn Nicht (KeyAscii >= vbKeyA Und KeyAscii <= vbKeyZ) Und Nicht (KeyAscii >= 97 Und KeyAscii <= 122) Then

Sonst

KeyAscii = 0

End If

End Sub
- Die Frage wurde beantwortet, vor 8 Jahren und hat Ihr code keine Formatierung machen es schwer zu Lesen. Bitte versuchen Sie zu beantworten, neue Fragen offen vs alte Fragen, die bereits akzeptiert hatte, Antworten.
InformationsquelleAutor Mags Iren

Schreibe einen Kommentar

Du musst angemeldet sein, um einen Kommentar abzugeben.