Hallo erstmal...
bin neu hier im Forum und beschäftige mich seit ca. einer Woche mit Visual Basic.
Habe nun eine Aufgabenstellung vorliegen in der ich in einer GUI mit 2 TextBoxen und einem Button es so programmieren soll, dass bestehender Text aus der ersten Textbox auf Knopfdruck in die zweite TextBox ausgegeben wird.
Allerdings soll erst ab einem bestimmten Buchstaben pro Zeile der ersten TextBox kopiert werden und nicht der ganze Text, sodass man beispielsweise die ersten 54 Ziffernfolge der ersten Zeile weg lässt.
Hier mein bisher geschriebener Code der nicht wirklich funktioniert. Das einfache ausgeben der TextBox 1 in die TextBox 2 ist kein Problem, aber sobald ich mit dem Mid() Befhel die Startposition der Zeilen definieren will, geht gar nichts mehr:
[highlight=vbnet]
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
For Each Item In Split(TextBox1.Text, vbCrLf)
Dim a As String
a = Mid(Item, 54)
TextBox2.Text = a
Next
End Sub
End Class
[/highlight]
bin neu hier im Forum und beschäftige mich seit ca. einer Woche mit Visual Basic.
Habe nun eine Aufgabenstellung vorliegen in der ich in einer GUI mit 2 TextBoxen und einem Button es so programmieren soll, dass bestehender Text aus der ersten Textbox auf Knopfdruck in die zweite TextBox ausgegeben wird.
Allerdings soll erst ab einem bestimmten Buchstaben pro Zeile der ersten TextBox kopiert werden und nicht der ganze Text, sodass man beispielsweise die ersten 54 Ziffernfolge der ersten Zeile weg lässt.
Hier mein bisher geschriebener Code der nicht wirklich funktioniert. Das einfache ausgeben der TextBox 1 in die TextBox 2 ist kein Problem, aber sobald ich mit dem Mid() Befhel die Startposition der Zeilen definieren will, geht gar nichts mehr:
[highlight=vbnet]
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
For Each Item In Split(TextBox1.Text, vbCrLf)
Dim a As String
a = Mid(Item, 54)
TextBox2.Text = a
Next
End Sub
End Class
[/highlight]
Comment