Hallo zusammen,
mag mir vielleicht jemand helfen? Ich steige da nicht durch und verzweifle langsam
Zur Aufgabe:
Nach Start: soll die TextBox String leer sein und die Schaltfläche den Text "Text setzen" anzeigen.
Mit Klick auf die Schaltfläche ändert sich ihr Text in "Text rückwärts" und im Feld String steht "benutzerdefinierte Zahlenformatzeichenfolge"
Text wird nach Klick auf Schaltfläche also rückwärts dargestellt.
Schaltfläche fungiert als Schalter. Text wird mal normal und dann wieder rückwärts dargestellt.
Mit Klick auf Schaltfläche Suchwort suchen wird im String nach Suchwort gesucht und die Fundstelle hervorgehoben.
Mit meinem Code funktioniert leider nix wirklich...
Vielen Dank für Eure Hilfe!
Public Class frm_Textsuchen
Private Sub frm_Textsuchen_Load(sender As Object, e As EventArgs) Handles MyBase.Load
txt_String.Text = " "
btn_String.Text = "Text setzen"
End Sub
Private Sub btn_String_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_String.Click
btn_String.Text = "Text rückwärts"
txt_String.Text = "Benutzerdefinierte Zahlenformatzeichenfolge"
Dim s As String
Dim t As String
s = StrReverse(txt_String.Text)
t = txt_String.Text
If btn_String.Text = "Text setzen" Then
txt_String.Text = "Benutzerdefinierte Zahlenformatzeichenfolge"
Else
txt_String.Text = s
End If
End Sub
Private Sub btn_Suchwort_Click(sender As Object, e As EventArgs) Handles btn_Suchwort.Click
Select Case True
Case txt_Suchwort
txt_Suchwort.Text = String.Compare(txt_String.Text).ToString
Case optSuche.Checked
txt_Suchwort.Text = String.Compare(txt_String.Text, CInt(txt_String)).ToString
txt_String.Select(CInt(txt_String.Text))
txt_String.HideSelection = False
End Select
End Sub
End Class
mag mir vielleicht jemand helfen? Ich steige da nicht durch und verzweifle langsam
Zur Aufgabe:
Nach Start: soll die TextBox String leer sein und die Schaltfläche den Text "Text setzen" anzeigen.
Mit Klick auf die Schaltfläche ändert sich ihr Text in "Text rückwärts" und im Feld String steht "benutzerdefinierte Zahlenformatzeichenfolge"
Text wird nach Klick auf Schaltfläche also rückwärts dargestellt.
Schaltfläche fungiert als Schalter. Text wird mal normal und dann wieder rückwärts dargestellt.
Mit Klick auf Schaltfläche Suchwort suchen wird im String nach Suchwort gesucht und die Fundstelle hervorgehoben.
Mit meinem Code funktioniert leider nix wirklich...
Vielen Dank für Eure Hilfe!
Public Class frm_Textsuchen
Private Sub frm_Textsuchen_Load(sender As Object, e As EventArgs) Handles MyBase.Load
txt_String.Text = " "
btn_String.Text = "Text setzen"
End Sub
Private Sub btn_String_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_String.Click
btn_String.Text = "Text rückwärts"
txt_String.Text = "Benutzerdefinierte Zahlenformatzeichenfolge"
Dim s As String
Dim t As String
s = StrReverse(txt_String.Text)
t = txt_String.Text
If btn_String.Text = "Text setzen" Then
txt_String.Text = "Benutzerdefinierte Zahlenformatzeichenfolge"
Else
txt_String.Text = s
End If
End Sub
Private Sub btn_Suchwort_Click(sender As Object, e As EventArgs) Handles btn_Suchwort.Click
Select Case True
Case txt_Suchwort
txt_Suchwort.Text = String.Compare(txt_String.Text).ToString
Case optSuche.Checked
txt_Suchwort.Text = String.Compare(txt_String.Text, CInt(txt_String)).ToString
txt_String.Select(CInt(txt_String.Text))
txt_String.HideSelection = False
End Select
End Sub
End Class