vb: eingabe auf ein zeichen abfragen

[Antibiotik]

hallo zusammen,

wie kann ich in vb überprüfen ob die eingabe buchstaben + sonderzeichen enthält??

Ciao

Antibiotik

[EvilNick]

Was soll den abgefange werden? Dürfen nur Zahlen eingegeben werden? Dann würde ich in der Hilfe mal nach "IsNumeric" schauen. Vielleicht gibts auch was wie "IsString", k.A. ich hab immer nur Numeric gebraucht.

[fireworker]

Wieso fängst Du nicht unter dem KeyDown Ereignisse die Tasten ab?

[Antibiotik]

hallo,

Original geschrieben von fireworker

Wieso fängst Du nicht unter dem KeyDown Ereignisse die Tasten ab?

wieso die tasten abfangen?? der user darf zwischen 0 und 9 alles eintippen, soll ich dann alle anderen tasten abfangen :confused:

Ciao

Antibiotik

[-roTekuGeL-]

Original geschrieben von Antibiotik

hallo,

wieso die tasten abfangen?? der user darf zwischen 0 und 9 alles eintippen, soll ich dann alle anderen tasten abfangen :confused:

Ciao

Antibiotik

wenn der User also ein A eintippt fängst du das ab und lässt das nicht in deine Textbox (oder was du verwendest) eintragen

[Antibiotik]

hallo,

Original geschrieben von |roTekuGeL|

wenn der User also ein A eintippt fängst du das ab und lässt das nicht in deine Textbox (oder was du verwendest) eintragen

so hab ich es auch vestanden, ist aber viel zu streßig!!

Ciao

Antibiotik

[Ganymed]

*grübel* Wie wärs mit dem Validate-Ereignis? Das prüft jede Änderung an einer Textbox. Würde immer dann aufgerufen werden, wenn der Benutzer eine Taste drückt. Die müsstest du dann mit ASC abfragen und demensprechend darauf reagieren.

Müssten aber IMHO ziemlich viele IF-Abfragen oder eine gigantische Select Case Abfrage werden.

Gruß

Ganymed

[fireworker]

Original geschrieben von Antibiotik

hallo,

so hab ich es auch vestanden, ist aber viel zu streßig!!

Ciao

Antibiotik

wieso ist das zu streßig

[Antibiotik]

hallo,

Original geschrieben von fireworker

wieso ist das zu streßig

weil - wie schon ober erwähnt - du einen fetten select case machen musst!!

du musst ja dann jeden buchstaben abfragen, oder irre ich mich??

Ciao

Antibiotik

[Ganymed]

Hmm... ich hätte da noch eine Idee: Wenn du nach dem Ascii-Code jeder Taste fragst, dann musst du ja die Nummer des Codes angeben, oder? Soweit ich weiss liegen die Zahlen von 0 - 9 z.B. hintereinander in der Tabelle; d.h. auch darauffolgende Zahlen. Vielleicht könntest du mit einer For-Schleife alle hintereinanderliegenden Ascii-Zeichen nacheinander abfragen?!

Das würde den Select Case zumindest um einiges kleiner machen.

Gruß

Ganymed

[Bombay]

Private Sub Text1_KeyPress(KeyAscii As Integer)

If Not IsNumeric(Chr(KeyAscii)) Then MsgBox "fehler"

End Sub

[frankos]

Hi!

Besser ist folgende Methode:

Private Sub Text1_KeyPress(KeyAscii As Integer)

    If KeyAscii < 48 Or KeyAscii > 57 Then KeyAscii = 0

End Sub

cu,

frankos

[fireworker]

noch besser ist folgende Methode:

Private Sub Text1_KeyPress(KeyAscii As Integer)

   select case  keyascii

       case 48 to 57 :KeyAscii = 0     'Für alle Ziffern

       case 65 to 90: keyascii=0        'Für alle Großbuchstaben

       case 97 to 122: keyascii=0      'für alle Kleinbuchstaben

End Sub

welchen vorschlag wirst Du nehmen?

[Antibiotik]

hallo,

Original geschrieben von fireworker

welchen vorschlag wirst Du nehmen?

vielen dank, aber ich hab schon ne lösung:

    If IsNumeric(anz_tage) = False Then

        MsgBox "Wert ist außerhalb des zulässigen Bereichs!! (2...90)",   

        vbCritical, "Error!!"

        anz_tage = "15"

    End If

Ciao

Antibiotik

[EvilNick]

Das hab ich doch schon im 2. Posting geschrieben *g*

[Antibiotik]

hallo,

Original geschrieben von EvilNick

Das hab ich doch schon im 2. Posting geschrieben *g*

ja genau. gleich nach deiner antwort hab ich des auch umgesetzt.

Ciao

Antibiotik