Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
144to148
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
144to148
144to148
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Bitte um Erläuterung: ByVal KeyAscii

Bitte um Erläuterung: ByVal KeyAscii
04.08.2002 14:15:18
Ernst Dunkel
Hallo Leute
Bitte um Erläuterung: ByVal KeyAscii

In einer TextBox sollen nur ganze Zahlen eingegeben werden.
Zur Diskussion stehen zwei Varianten. Wodurch unterscheiden sich die beiden Prozeduren? Vor- und Nachteile?


Variante1:
Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.returninteger)
If Chr(KeyAscii) Like "[0-9]" = False Then KeyAscii = 0
End Sub

Variante2:
Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.returninteger)
Select Case KeyAscii
Case 48 To 57
Case Else: KeyAscii = 0
End Select
End Sub

Mit freundlichen Grüssen
Ernst

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: Bitte um Erläuterung: ByVal KeyAscii
04.08.2002 14:30:57
Ralf Sögel
Beide lassen nur Zahlen zu.
2 ist kürzer, wenn du die Prüfung in eine Function auslagerst
z.B. bei sehr vielen Textboxen.

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige