Nach 4 Zeichen automatisch Bindestrich setzen

[milchbubix]

Ich habe eine Frage da ich erst vor kurzem mit VB.Net angefangen habe.


Ich will das wie bei Office installationen bei der Serial, automatisch nach 4 Zahlen ein Bindestrich gesetzt wird.

Ich habs schon mit folgender Lösung probiert aber die funktioniert bei mir nicht :S
[VB 2008] automatisch bindestrich setzen - Hauptforum - Visual-Basic-Forum VB-Paradise.de


Grüße Jos

[DANP]

Textchanged event von der textbox und dann prüfen:

if textbox.length = 4,.... dann
textbox1.text = textbox1.text+"-"

[x BoooM x]

Dein Code stimmt nicht:

If TextBox1.TextLength = 4 Then
TextBox1.Text = TextBox1.Text + "-"

[milchbubix]

Bei mir sagt er zeigt er TextboxLenght gar nicht an :S und wenn ich ess trotzdem schreibe gibt er nen Fehler.

[x BoooM x]

TextBox1.TextLength

[milchbubix]

Benutze das CrystalClear Theme, daher ist es bei mir:

CrystalClearTextBox1.TextLength 

Liegts an der Theme Textbox?

[DMW007]

if textbox.length = 4,.... dann
textbox1.text = textbox1.text+"-"

Funktioniert logischerweise nur für die ersten 4 Zeichen, bei einem längeren Text wird danach nix mehr eingefügt.
Da Serials oft weit länger als 4 Zeichen sind (meist 5x4 oder 5x5 Zeichen) also ungeeignet.

Ich würde vom Grundprinzip her erstmal alle - entfernen und prüfen ob dieser Text durch 4 ohne Rest teilbar ist, wenn ja ein - ans Ende einfügen.
Dafür kannst du die String-Funktionen nutzen: Galileo Computing: Einstieg in VB.NET – 6.2 Strings zerlegen
Sollte man als Grundlage aber beherrschen.

[DANP]

Funktioniert logischerweise nur für die ersten 4 Zeichen, bei einem längeren Text wird danach nix mehr eingefügt.
Da Serials oft weit länger als 4 Zeichen sind (meist 5x4 oder 5x5 Zeichen) also ungeeignet.

Ich würde vom Grundprinzip her erstmal alle - entfernen und prüfen ob dieser Text durch 4 ohne Rest teilbar ist, wenn ja ein - ans Ende einfügen.
Dafür kannst du die String-Funktionen nutzen: Galileo Computing: Einstieg in VB.NET – 6.2 Strings zerlegen
Sollte man als Grundlage aber beherrschen.

Das ist mir klar. Die punkte sind auch nicht ohne Grund da. Finde es schwachsinnig den Leuten die Programmieren lernen, ganze Snippets vorzulegen.
Ich denke das die Leute sich ein bisschen mit einer ide auskennen und mit der Syntax. Mein Post sollte nur das logische hinter dem Coding aufzeigen.

[milchbubix]

Entschuldigt meine Dummheit aber ich finde in der Erklärung für Strings nicht meine gewünschte Methode.

Am besten wäre es, wenn man 4 Zeichen in die Textbox eingibt, dass dann automatisch ein "-" eingefügt wird und man ganz normal weiterschreiben kann.

Mit einer If-Schleife wäre das doch möglich oder? Ansonsten kenne ich aus Java noch Switch Case, gibts das bei VB.Net auch?

[Pwned]

Select Case gibts in VB, sollte aber auch über eine If-Abfrage zu lösen sein.

Folgender Code ist unsauber, aus dem Kopf geschrieben und ungetestet, sollte aber funktionieren.

If TextBox1.TextLength = 4 Or TextBox1.TextLength = 9 Or TextBox1.TextLength = 14 Then
            TextBox1.Text = TextBox1.Text & "-"
        End If 

Macht bei 4 und ,9 und 14 Zeichen einen Bindestrich. 9 und 14, da die Striche auch zur Länge hinzugefügt werden.
Kann man natürlich noch beliebig erweitern, nur halt immer 5 addieren.