Bestimmte Zeichen in einer Textbox nicht zulassen

wsk1000 · 5. Januar 2014, 15:45

Edit by ErfinderDesRades: (Thema verschoben) Bitte richtiges UnterForum wählen!

Hallo!
Wie ist es möglich, dass ich nur Zahlen und "." In einer Textbox zulassen kann?

Ich habe hier schon im Forum Gesucht, hab auch Code gefunden! hat aber nicht funktioniert.

Hoffe ihr könnt mir folgen!
Lg

RushDen · 5. Januar 2014, 15:49

VB.NET-Quellcode

Private Sub TextBox1_KeyPress(sender As Object, e As KeyPressEventArgs) Handles TextBox1.KeyPress
e.Handled = Not ("1234567890." & Convert.ToChar(Keys.Back)).Contains(e.KeyChar)
End Sub

BlackNetworkBit · 5. Januar 2014, 15:49

VB.NET-Quellcode

Private Sub TextBox1_KeyPress(sender As Object, e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
e.Handled = Not ("0123456789." & Convert.ToChar(Keys.Back)).Contains(e.KeyChar)
End Sub

.. Lol jetzt hab ich die frage richtig verstanden

ok das von RushDen ist richtig mit meiner Lösung davor hätte man die Zeichen nicht mehr löschen können

.

wsk1000 · 5. Januar 2014, 16:07

Danke!
Hat Funktioniert!

ErfinderDesRades · 5. Januar 2014, 16:29

Für den Produktiv-Betrieb eher ungeeignet, denn mit Ctr-V kann man immer noch jeden Mist einpasten.

wsk1000 · 5. Januar 2014, 17:41

Und wie kann ich das auch für C&P sperren?
Einfach den Code in Textbox1_TextChange (oder so ähnlich :whistling:

) geben?

ThePlexian · 5. Januar 2014, 18:11

--> NumericUpDown

wsk1000 · 5. Januar 2014, 18:19

Ich will aber kein NumericUpDown, weil ich einen Geldbetrag eingeben will.
Außerdem gefällt es mir nicht.
(Außer natürlich, wenn man diese zwei Buttons auf der Seite weg bekommt

)

ErfinderDesRades · 5. Januar 2014, 18:25

VB.NET-Quellcode

NumericUpDown.DecimalPlaces=2

BlackNetworkBit · 5. Januar 2014, 18:28

@wsk1000
probiere mal das :

VB.NET-Quellcode

Private Sub TextBox1_TextChanged(sender As System.Object, e As System.EventArgs) Handles TextBox1.TextChanged
Dim ina As Integer = TextBox1.SelectionStart
Dim inae As String = ""
For i = 0 To TextBox1.Text.Length - 1
If "123456789.".Contains(TextBox1.Text(i)) = True Then inae &= TextBox1.Text(i)
Next
TextBox1.Text = inae
TextBox1.SelectionStart = ina
End Sub

Copy und Paste nicht mehr möglich

wsk1000 · 5. Januar 2014, 22:06

@ErfinderDesRades
Das mit Decimal Places weis ich auch, aber ich will NumericUpDown nicht benützen, weil es mir nicht gefällt.
(Ok. Muss zugeben: Es ist deutlich einfacher, und man kann damit wesentlich einfacher "Buchhaltungs- Zeugs" damit machen. Gefällt mir aber vom Design nicht.)

BlackNetworkBit · 6. Januar 2014, 15:47

@wsk1000
Hast du jetzt meine Lösung mal probiert ?

wsk1000 · 11. Januar 2014, 14:33

@BlackNetworkBit
Ja habe ich jetzt grad!

Prinzipiell hat es funktioniert. Nur wenn ich etwas einfüge, fügt es gar nichts ein.
nur als frage: Kann man das auch so machen, wenn ich etw. einfüge, dass dann nur das was erlaubt ist reingeschrieben wird?

BlackNetworkBit · 11. Januar 2014, 14:34

@wsk1000
müsste ich mir mal ankucken

wsk1000 · 11. Januar 2014, 14:37

oke

Bestimmte Zeichen in einer Textbox nicht zulassen

Bestimmte Zeichen in einer Textbox nicht zulassen

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

Ähnliche Themen

5 Benutzer haben hier geschrieben