|
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
|
|
|
|
|
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: [ 1682 ]
|
|
|