Die Community zu .NET und Classic VB.
Menü

VB 5/6-Tipp 0297: Nur Zahleneingaben in einer TextBox zulassen I

 von 

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:

Schwierigkeitsgrad 1

Verwendete API-Aufrufe:

keine

Download:

Download des Beispielprojektes [1,95 KB]

'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-VersionWin32sWin95Win98WinMEWinNT4Win2000WinXP
VB4
VB5
VB6

Hat dieser Tipp auf Ihrem Betriebsystem und mit Ihrer VB-Version funktioniert?

Ja, funktioniert!

Nein, funktioniert nicht bei mir!

VB-Version:

Windows-Version:

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. :-)