VB 5/6-Tipp 0297: Nur Zahleneingaben in einer TextBox zulassen I
von ActiveVB
Beschreibung
Da immer wieder im Forum erfragt, jetzt hier der Tip zum Problem. Diese Version unterbindet jedliche Tastatureingaben die nicht in einem seperaten String geführt werden. Dieser String kann beliebig geändert bzw. erweitert werden.
Schwierigkeitsgrad: | Verwendete API-Aufrufe: keine | Download: |
'Dieser Quellcode stammt von http://www.activevb.de 'und kann frei verwendet werden. Für eventuelle Schäden 'wird nicht gehaftet. 'Um Fehler oder Fragen zu klären, nutzen Sie bitte unser Forum. 'Ansonsten viel Spaß und Erfolg mit diesem Source! '------------- Anfang Projektdatei Project1.vbp ------------- '--------- Anfang Formular "Form1" alias Form1.frm --------- ' Steuerelement: Textfeld "Text1" ' Steuerelement: Beschriftungsfeld "Label2" ' Steuerelement: Beschriftungsfeld "Label1" Option Explicit Private Sub Text1_KeyPress(KeyAscii As Integer) Dim Erlaubt$, aa$ Erlaubt = "0123456789.,-+*^" & Chr$(8) aa = Chr$(KeyAscii) If InStr(1, Erlaubt, aa) = 0 Then Label1.Caption = aa & " Verboten" KeyAscii = 0 Else Label1.Caption = aa & " Ok" End If End Sub '---------- Ende Formular "Form1" alias Form1.frm ---------- '-------------- Ende Projektdatei Project1.vbp --------------
Tipp-Kompatibilität:
Windows/VB-Version | Win32s | Win95 | Win98 | WinME | WinNT4 | Win2000 | WinXP |
VB4 | ![]() | ![]() | ![]() | ![]() | ![]() | ![]() | ![]() |
VB5 | ![]() | ![]() | ![]() | ![]() | ![]() | ![]() | ![]() |
VB6 | ![]() | ![]() | ![]() | ![]() | ![]() | ![]() | ![]() |
Ihre Meinung
Falls Sie Fragen zu diesem Artikel haben oder Ihre Erfahrung mit anderen Nutzern austauschen möchten, dann teilen Sie uns diese bitte in einem der unten vorhandenen Themen oder über einen neuen Beitrag mit. Hierzu können sie einfach einen Beitrag in einem zum Thema passenden Forum anlegen, welcher automatisch mit dieser Seite verknüpft wird.
Archivierte Nutzerkommentare
Klicken Sie diesen Text an, wenn Sie die 8 archivierten Kommentare ansehen möchten.
Diese stammen noch von der Zeit, als es noch keine direkte Forenunterstützung für Fragen und Kommentare zu einzelnen Artikeln gab.
Aus Gründen der Vollständigkeit können Sie sich die ausgeblendeten Kommentare zu diesem Artikel aber gerne weiterhin ansehen.
Kommentar von Rainer am 19.06.2009 um 13:07
Hallo vielleicht kann mir ja jemand helfen...
Ich habe Textfelder von A1(0) - A20(0) & A1(1) - A1(1) & A1(2) - A1(20) usw... bis A10(0) - A10(20)
jetzt kommt das Problem wie kann ich alle diese Textfelder die in übrigens mit einer Excel Datenbank eingelesen und wieder gespeichert werden....
so
Formatieren das nur eine Zahlen Eingabe möglich ist...
Danke
Kommentar von danielv am 14.09.2006 um 20:51
Hallo, also das script funktioniert,
ich wollte nur fragen wofür das zteite Label2
gut sein soll....oder ist das ein tippfehler
von euch?
Kommentar von gast am 01.04.2003 um 21:31
Schade, dass man die ganze Routine (bei beiden Tipps) über die Zwischenablage überlisten kann!
Kommentar von Phillip am 31.03.2003 um 20:16
Besser gehts nicht !
Danke.
Kommentar von Jürgen am 20.08.2002 um 21:36
Frage1:Wie kann ich in einem Textfeld nur einen Zahlenwert von z.b. 0 bis max.25 zulassen?
Frage2:Wie kann ich beim kompilieren einer Standard-Exe ein anderes Icon anhängen?
Kommentar von Sikura Anton (Tirol) am 29.03.2002 um 03:04
Prima Freunde!!!!
Dieser Tip ist ein
Knaller!!
Kommentar von Dietrich am 24.03.2002 um 11:17
Funktioniert, doch wie kann ich nun eine Eingabe erzwingen ?
Kommentar von Zentao am 12.02.2002 um 13:22
Vielen Dank. :-)