[ERLEDIGT] Texte durchstreichen

  • VB.NET

Es gibt 5 Antworten in diesem Thema. Der letzte Beitrag () ist von Beep!.

    [ERLEDIGT] Texte durchstreichen

    Hi!

    Will zwei Textboxen erstellen:

    -In die eine Textbox gibt man einen Buchstaben/Text ein.
    -In der zweiten Textbox erscheint dann der in die erste Textbok eingegebene Text durchgestrichen.

    Hat da jemand einen Code für mich?

    Richard

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „richard.reiber“ ()

    Das hier ist jetzt mein Code:

    VB.NET-Quellcode

    1. Public Class Durchstreichen
    3. Private Sub Durchstreichen_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    5. End Sub
    7. Private Sub txtErgebnis1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtErgebnis1.TextChanged
    8. Me.Font = New Font(Me.Font.FontFamily, Me.Font.Size, FontStyle.Strikeout)
    9. End Sub
    11. Private Sub txtNormal1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtNormal1.TextChanged
    13. End Sub
    15. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    16. Auswahl.Show()
    17. Me.Close()
    18. End Sub
    20. Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
    21. txtNormal1.Text = txtErgebnis1.Text
    22. End Sub
    23. End Class


    Es funktioniert aber trotzdem nicht. Woran liegt der Fehler?

    Ich habe das jetzt geändert:

    VB.NET-Quellcode

    1. Public Class Durchstreichen
    3. Private Sub Durchstreichen_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    5. End Sub
    7. Private Sub txtErgebnis1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtErgebnis1.TextChanged
    8. txtErgebnis1.Font = New Font(txtErgebnis1.Font.FontFamily, txtErgebnis1.Font.Size, FontStyle.Strikeout)
    9. End Sub
    11. Private Sub txtNormal1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtNormal1.TextChanged
    13. End Sub
    15. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    16. Auswahl.Show()
    17. Me.Close()
    18. End Sub
    20. Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
    21. txtNormal1.Text = txtErgebnis1.Text
    22. txtEingabe1.Text = txtErgebnis1.Text
    23. End Sub
    24. End Class


    Aber... Wenn ich auf den Button gehe, der die Aktion ausführt, wird die obere Textbox leer und somit ist die untere auch leer!

    Richard

Facebook
Telefonspende