Privates Unterseeboot Button1_Click (ByVal Absender als System.Object, ByVal e als System.EventArgs) behandelt Button1.Click
Wenn TextBox1.Lines.Count >= 2 dann
Schwache Linie als Schnur = TextBox1.Lines (2) 'dritte Linie
Schwache vals () als Schnur = Linie. Spalte („=")
Wenn vals. Länge >= 1 dann
Schwacher Wert als Schnur = vals (1).Split („; ") (0)
Label1.Text = Wert
Beenden wenn
Beenden wenn
Unterseeboot beenden
|