Guten Abend
Wie kann ich pro klick auf den "Button1" eine neue Zeile aus dem Textdokument "123.txt" lesen und im "Radiobutton1" ausgeben?
Also zb.
beim 1 klick auf "button1" - zeile 1 aus 123.txt - radiobutton "Apfel"
beim 2 klick auf "button1"- zeile 2 aus 123.txt - radiobutton "Wörter"
beim 3 klick auf "button1"- zeile 3 aus 123.txt - radiobutton "Dächer"
etc.
und gleichzeitig pro klick auf den "Button1" eine neue Zeile aus dem Textdokument "Frage.txt" lesen und in der "RichTextBox1" ausgeben?
beim 1 klick auf "button1" - zeile 1 aus frage.txt - richtextbox " was wächst auf dem Baum und ist gesund?"
beim2 klick auf "button1" - zeile 2 aus frage.txt - richtextbox " Was ist die Mehrzahl von Wort ?"
beim 1 klick auf "button1" - zeile 3 aus frage.txt - richtextbox" Was ist die Mehrzahl von Dach?"
Bis jetzt habe ich das, aber leider kann ich nur 1 Zeile auslesen und die Umlaute werden auch nicht richtig dargestellt.
Ich hoffe Ihr versteht was ich meine
mfg Guzu
Wie kann ich pro klick auf den "Button1" eine neue Zeile aus dem Textdokument "123.txt" lesen und im "Radiobutton1" ausgeben?
Also zb.
beim 1 klick auf "button1" - zeile 1 aus 123.txt - radiobutton "Apfel"
beim 2 klick auf "button1"- zeile 2 aus 123.txt - radiobutton "Wörter"
beim 3 klick auf "button1"- zeile 3 aus 123.txt - radiobutton "Dächer"
etc.
und gleichzeitig pro klick auf den "Button1" eine neue Zeile aus dem Textdokument "Frage.txt" lesen und in der "RichTextBox1" ausgeben?
beim 1 klick auf "button1" - zeile 1 aus frage.txt - richtextbox " was wächst auf dem Baum und ist gesund?"
beim2 klick auf "button1" - zeile 2 aus frage.txt - richtextbox " Was ist die Mehrzahl von Wort ?"
beim 1 klick auf "button1" - zeile 3 aus frage.txt - richtextbox" Was ist die Mehrzahl von Dach?"
Bis jetzt habe ich das, aber leider kann ich nur 1 Zeile auslesen und die Umlaute werden auch nicht richtig dargestellt.
Quellcode
- Dim counter = "()"
- Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
- counter = "()" + "1"
- Dim Fragen() As String = IO.File.ReadAllLines("C:\Fragen.txt")
- RichTextBox1.Text = Fragen((counter("")))
- Dim Antwort() As String = IO.File.ReadAllLines("C:\123.txt")
- RadioButton1.Text = Antwort(counter)
Ich hoffe Ihr versteht was ich meine
mfg Guzu