wie kann ich nur zahlen in textbox1 erlauben ???

oder


wobei die Lösung von Pry auch sehr schön und auch performant ist


link_275

super danke echt das beste forum

Hallo,

danke für den Code, womit man nur Zahlen eingeben kann.

Ich habe allerdings mehrere TextBoxes und komme irgendwie nicht drauf wie ich die Bedingung auf alle TextBoxen1-19 anwende.



mfg

Ich denke mal da ist nen NumericUpDown am Besten, da kannst du Maximum und Minimum setzen.

EDIT: Quatsch, falsch gelesen... Einfach in jede TextboxKeyPress-Prozedur das selbe reinschreiben

@ehrmmst: Willkommen im Forum.
Du hättest einen neuen Thread aufmachen können, dieser ist bereits weit über ein Jahr geschlossen.
Mach es so:

Jede TextBox hat das genannte Event, du musst es nur immer handlen. Du kannst auch Eventhandler adden, die dann eine Prozedur handlen, Dont repeat your self.

RodFromGermany schrieb:

If InStr("0123456789" & Chr(8), e.KeyChar) = False

Da muss ich mir wundern ...

If ZAHL = False ???

Das ganze klappt auch nur, weil InStr() aus VB6 Zeiten stammt und gültige Indizes > 0. Demzufolge kommt bei "nicht gefunden" 0 heraus und das ist theoretisch "False" (aber nur bei Strict Off)

picoflop schrieb:

Da muss ich mir wundern ...

Ich habe nur den Ur-Code kopiert und im Zweifel verweise ich auf meine C&P-Klausel.

Hallo und danke für die Begrüßung,

machmal gehts leichter als gedacht.. Einfach hinten drankopieren. Danke für die super Antwort!

C&P is solange gut, solange es funktioniert

Hey, wollte noch anmerken, dass man auf keinen Fall für jede Textbox die Zeile dazukopieren soll. Einfach ein eigenes Control erstellen, geht super leicht:



Einach unter die Form1-Klasse anfügen, einmal kompilieren, ab dann ist das Teil in der Toolbox zu finden. Ist viel praktischer als die ganzen Namen hin-und-her zu kopieren. Am ende ist einer Vergessen und die Sucherrei geht los.

Dann machen wir es ganz richtig mit VB2010 und KeyDown:
und das entsprechend in @FreakJNS: Klasse übernommen.

naja - mit Strg-V kann man immer noch fröhlich jeden Mist einpasten.

Mal über ein NumericUpdown nachgedacht?

Was EDR sagte. Ne Textbox ist ein völlig falscher Ansatz, du versuchst ja auch nicht, Text in ner Picturebox anzeigen zulassen, obwohl ein Label auch gereicht hätte, oder?

Ok, das hat ganz gut geklappt, aber nur wenn die Textboxen schon erstellt sind. Klar.

Ich erstelle aber nach Programmstart auf Knopfdruck erst die Textboxen und müsste sie dann danach noch dazu bringen nur Zahlen (0-9 und einen Punkt ".") zu erlauben.

Ich brings nicht zusammen, weils ja immer ein sub ist und ich vor den sub ja keine for-schleife setzen kann.

Ich hab hald mal einen String gemacht

und dann müsst ich irgendwie dann das Event dahinterbringen.
Wie könnt ich das machen?

Casten geht ja nur mit Eigenschaften, oder? also ich habs probiert und es scheint so.

So geht das:

If IsNumeric(TextBox1.Text) Then
...
EndIf

VB 2010

schau dir diese Beispiele an:
vbarchiv.net/tipps/tipp_543-nu…xtbox-zulassen-vbnet.html
oder
dotnet-snippets.de/dns/textbox…n-mit-ein-aus-SID933.aspx

Es wurde bereits mehrfach erwähnt, dass Textboxen der falsche Ansatz sind. Machs richtig oder machs gar nicht. /thread

Danke für deine Kritik, ich möchte es trotzdem auf diese Weise versuchen.

Sollte ich katastrophal scheitern mach ich es gerne anders.

Nichts für ungut.