Tipp 0008 Nur Eingabe von Zahlen in Textbox zulassen
Autor/Einsender:
Datum:
  Detlev Schubert
10.01.2001
Entwicklungsumgebung:   VB 5
In eine Textbox nur Zahlen eingeben, lässt sich mit einer einzigen Abfrage und gänzlich ohne zusätzliche Controls (z. B. MaskedEdit) realisieren. In diesem Beispiel ist neben der BackSpace-Taste zum Löschen von Zeichen auch die Return-Taste zum komfortablen Anspringen eines anderen Textfeldes zugelassen.
 
Option Explicit

Dim Zahlen As Boolean

Private Sub Text1_KeyPress(KeyAscii As Integer)
  If Zahlen = True Then
    Select Case KeyAscii
      Case Asc("0") To Asc("9"), 8, 13 'inkl. BackSpace & Return
    Case Else
      KeyAscii = 0
    End Select
  End If
End Sub

Private Sub Command1_Click(Index As Integer)
  Select Case Index
    Case 1
      Zahlen = True
      Label1.ForeColor = &HC0&
      Label1.Caption = "Nur Eingabe von Zahlen erlaubt!"
      Text1.SetFocus
    Case 2
      Zahlen = False
      Label1.ForeColor = &H0&
      Label1.Caption = "Jetzt sind alle Zeichen erlaubt!"
      Text1.SetFocus
    Case Else
      Unload Me
      End
  End Select
End Sub
 
Weitere Links zum Thema
Eingaben mit großen Anfangsbuchstaben
Überschreibmodus für die TextBox

Windows-Version
95
98/SE
ME
NT
2000
XP
Vista
Win 7
VB-Version
VBA 5
VBA 6
VB 4/16
VB 4/32
VB 5
VB 6


Download  (2 kB) Downloads bisher: [ 1613 ]

Vorheriger Tipp Zum Seitenanfang Nächster Tipp

Startseite | Projekte | Tutorials | API-Referenz | VB-/VBA-Tipps | Komponenten | Bücherecke | VB/VBA-Forum | VB.Net-Forum | DirectX-Forum | Foren-Archiv | DirectX | VB.Net-Tipps | Chat | Spielplatz | Links | Suchen | Stichwortverzeichnis | Feedback | Impressum

Seite empfehlen Bug-Report
Letzte Aktualisierung: Sonntag, 28. August 2011