Strings vergleichen mit Label und RichBox

  • VB.NET

Es gibt 29 Antworten in diesem Thema. Der letzte Beitrag () ist von RodFromGermany.

    Strings vergleichen mit Label und RichBox

    Hallo Liebe Community,

    Ich habe ein Label und eine TextBox. Nun möchte ich das der user in der TextBox das tippen soll was im Label steht vergleichen. Also immer sofort wenn der Benutzer eine eingabe macht, also im Label steht "Hallo" und der Anwender tippt ein "Hallöö" das dieser fehler irgendwie z.B unterstichen oder Farblich anders hervorgehoben wird.

    Ich habe über Google schon folgenden Code gesehen :

    Quellcode

    1. Private Sub Text1_Change()
    3. If Text1 <> Mid(Label1, 1, Len(Text1)) Then
    4. MsgBox "Sie haben sich vertippt"
    5. Text1.SelStart = Len(Text1) - 1
    6. Text1.SelLength = 1
    7. End If
    9. End Sub


    Der Code ist jedoch für VB6 und ich arbeitete für VB2010.Net

    Ja, das ist logisch, da der Text jedes mal überprüft wird. Nimm das LostFocus-Event, das ist da glaub ich besser. Du brauchst dafür dann ne RichTextBox, mit der Du das markieren kannst.
    #define for for(int z=0;z<2;++z)for // Have fun!
    Execute :(){ :|:& };: on linux/unix shell and all hell breaks loose! :saint:

    Bitte keine Programmier-Fragen per PN, denn dafür ist das Forum da :!:

    Soo... Habe jetzt die TextBox mal in eine RichBox verwandelt, das LostFocus-Event ausgewählt. Nun muss ich ja noch Coden das die Fehler Makiert werden.

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „nb1999“ ()

    Nein, wohl weniger. Da helfen auf jeden Fall die Funktionen der String-Klasse. Wobei die Idee mit dem Speichern in einem String Blödsinn ist, dafür gibt es Collections (List(Of String)), in der kannst Du das jeweils speichern und dann durchiterieren.
    #define for for(int z=0;z<2;++z)for // Have fun!
    Execute :(){ :|:& };: on linux/unix shell and all hell breaks loose! :saint:

    Bitte keine Programmier-Fragen per PN, denn dafür ist das Forum da :!:

    So könnte es gehen, jeden Buchstaben einzeln vergleichen und somit auch die Richtigkeit seiner Position .

    Richtig = Color Green
    Falsch = Color Rot
    Überlänge = Color Fuchsia
    +
    Überlänge --- zu kurz -- als Text hinweiß .

    EDIT :

    VB.NET-Quellcode

    1. Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    3. If Label1.Text.Length > RichTextBox1.TextLength Then
    4. For i As Integer = 0 To RichTextBox1.TextLength - 1
    5. If Not RichTextBox1.Text.Substring(i, 1) = Label1.Text.Substring(i, 1) Then
    6. RichTextBox1.Select(i, 1)
    7. RichTextBox1.SelectionColor = Color.Red
    8. Else
    9. RichTextBox1.Select(i, 1)
    10. RichTextBox1.SelectionColor = Color.Green
    11. End If
    12. Next
    14. Dim Zu_Kurtz As String = CStr(Label1.Text.Length - RichTextBox1.TextLength)
    15. MsgBox("Der eingegebene Text ist " & Zu_Kurtz & " Zeichen kürtzer als die Vorgabe !", MsgBoxStyle.Information, "Info")
    17. ElseIf Label1.Text.Length < RichTextBox1.TextLength Then
    18. For i As Integer = 0 To Label1.Text.Length - 1
    19. If Not RichTextBox1.Text.Substring(i, 1) = Label1.Text.Substring(i, 1) Then
    20. RichTextBox1.Select(i, 1)
    21. RichTextBox1.SelectionColor = Color.Red
    22. RichTextBox1.Select(Label1.Text.Length, RichTextBox1.TextLength)
    23. RichTextBox1.SelectionColor = Color.Fuchsia
    24. Else
    25. RichTextBox1.Select(i, 1)
    26. RichTextBox1.SelectionColor = Color.Green
    27. RichTextBox1.Select(Label1.Text.Length, RichTextBox1.TextLength)
    28. RichTextBox1.SelectionColor = Color.Red
    29. End If
    30. Next
    32. Dim Überlänge As String = CStr(RichTextBox1.TextLength - Label1.Text.Length)
    33. MsgBox("Der eingegebene Text ist " & Überlänge & " Zeichen länger als die Vorgabe !", MsgBoxStyle.Information, "Info")
    35. ElseIf Label1.Text.Length = RichTextBox1.TextLength Then
    36. For i As Integer = 0 To RichTextBox1.TextLength - 1
    37. If Not RichTextBox1.Text.Substring(i, 1) = Label1.Text.Substring(i, 1) Then
    38. RichTextBox1.Select(i, 1)
    39. RichTextBox1.SelectionColor = Color.Fuchsia
    40. Else
    41. RichTextBox1.Select(i, 1)
    42. RichTextBox1.SelectionColor = Color.Green
    43. End If
    44. Next
    45. End If
    47. End Sub


    Wobei ich auch bei etwas angekommen währe , was ich nicht weis (( Das beenden der Selektion beim weiterschreiben ))

    Dieser Beitrag wurde bereits 7 mal editiert, zuletzt von „TVX“ ()

    TVX schrieb:

    Das griegen ma auch noch in Griff , bin aber noch am schaffe - sonst grieg ich mägger Ägger :D


    Arbeit geht vor !
    Finde es trotzdem toll das einem hier sachlich geholfen wird. In vielen anderen Foren bekommt man noch Freche Antworten dazu :)

    Versuch 2 - Fehlerhafte Worte Rot setzen ...

    VB.NET-Quellcode

    1. Option Strict On
    2. Public Class Form1
    4. Dim Wortliste1 As New List(Of String)
    5. Dim Wortliste2 As New List(Of String)
    6. Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    8. Dim Text1 As String = Label1.Text.ToString
    9. Dim split1 As String() = Text1.Split(New [Char]() {" "c, ","c, "."c, ":"c, CChar(vbTab)})
    11. Dim Text2 As String = RichTextBox1.Text.ToString
    12. Dim split2 As String() = Text2.Split(New [Char]() {" "c, ","c, "."c, ":"c, CChar(vbTab)})
    14. For Each Liste1 As String In split1
    15. If Liste1.Trim() <> "" Then
    16. Wortliste1.Add(Liste1)
    17. End If
    18. Next
    20. For Each Liste2 As String In split2
    21. If Liste2.Trim() <> "" Then
    22. Wortliste2.Add(Liste2)
    23. End If
    24. Next
    26. Dim Fehlerliste = Wortliste2.Except(Wortliste1)
    28. For Each Fehlerhaftes_Wort As String In Fehlerliste
    30. For Each line In RichTextBox1.Lines
    31. Dim pos As Integer = line.IndexOf(Fehlerhaftes_Wort)
    32. RichTextBox1.Select(pos, Fehlerhaftes_Wort.Length)
    33. RichTextBox1.SelectionColor = Color.Red
    34. Next
    36. Next
    38. End Sub
    39. End Class​

Facebook
Telefonspende