Nach 4 Zeichen automatisch Bindestrich setzen

[DMW007]

Es gibt keine If-Schleifen, höchstens If-Abfragen.
Eine Schleife führt einen Vorgang x mal aus, eine If-Abfrage nur einmal => If-Schleife daher ganz schnell vergessen, entweder If-Abfrage oder Schleife, aber nicht beides zusammen.

Ansonsten kenne ich aus Java noch Switch Case, gibts das bei VB.Net auch?

Für sowas gibts Docs: RTFM!

Galileo Computing: Einstieg in VB.NET – 2.7 Die Select-Case-Verzweigung

[milchbubix]

Sorry, bin, wie ich gesagt habe noch in den Anfängen bei VB.Net.

Die Links haben mir schon mal nen bisschen weitergeholfen, danke dafür
Aber die richtige Methode dafür hab ich immernoch nicht ganz gefunden. Mir helfen bei sowas kleine Code-Snippets eher weiter als Bücher mit 1000 Grundsätzlichen Erklärungen (Wobei sowas natürlich am besten zum lernen ist, ich weis).

Hat eventuell jemand nen Lösungsvorschlag für mich?
PS: Das mit der If-Abfrage war natürlich nur nen flücktigkeitsfehler

[DMW007]

private void tbKey_KeyPress(object sender, KeyPressEventArgs e) {
    string txt = tbKey.Text.Replace("-", "");
    if (txt.Length % 4 == 0 && !tbKey.Text.EndsWith("-") && txt.Length > 0) {
        tbKey.Text += "-";
        tbKey.Select(tbKey.Text.Length, 0);
    }
} 

Is C#.
Das ganze in VB.NET zu übersetzen spare ich mir jetzt mal, weil VB.NET in meinen Augen unnötiger Müll ist.
Ausserdem lernst du so wenigstens noch ein bisschen was dabei.

[rVs14]

Übersetzt:

 Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
        Dim text As String = TextBox1.Text.Replace("-", "")
        If (text.Length Mod 4 = 0 AndAlso Not TextBox1.Text.EndsWith("-") AndAlso text.Length < 0) Then
            TextBox1.Text += "-"
            TextBox1.Select(TextBox1.Text.Length, 0)
        End If
    End Sub 

[milchbubix]

Danke an euch beide aber ich setze den Code ein, keine Fehlermeldung aber es ändert sich gar nichts

[DMW007]

Du musst dem KeyPress-Event deiner Textbox die Funktion zuweisen.
Sonst ist das nur eine Funktion die niemals aufgerufen wird und somit keinen Effekt hat.

[milchbubix]

Private Sub CrystalClearTextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles CrystalClearTextBox1.KeyPress
        Dim text As String = CrystalClearTextBox1.Text.Replace("-", "")
        If (text.Length Mod 4 = 0 AndAlso Not CrystalClearTextBox1.Text.EndsWith("-") AndAlso text.Length < 0) Then
            CrystalClearTextBox1.Text += "-"
            CrystalClearTextBox1.Select(CrystalClearTextBox1.Text.Length, 0)
        End If
    End Sub 

So hab ichs jetzt bei mir drin stehen. Fehlt da noch was?