Hallo Leute
ich hab' da eine Frage zu folgendem Code.
Er will einfach nicht funktionieren
Wieso?
Bitte helft mir
Danke im Vorraus
Gruß TGenius
ich hab' da eine Frage zu folgendem Code.
VB.NET-Quellcode
- Imports System.IO
- Public Class Form1
- Dim quest As Integer = 1
- Dim sr As StreamReader = New StreamReader("Fragen.txt")
- Dim line As String
- Sub frage(ByVal frage As String, ByVal a1 As String, ByVal a2 As String, ByVal a3 As String, ByVal a4 As String, ByVal right As String)
- Label1.Text = frage
- ComboBox1.Items.Clear()
- ComboBox1.Items.Add(a1)
- ComboBox1.Items.Add(a2)
- ComboBox1.Items.Add(a3)
- ComboBox1.Items.Add(a4)
- End Sub
- Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
- For i As Integer = 1 To quest
- line = sr.ReadLine()
- Next
- Dim frag() As String = line.Split(",")
- frage(frag(0), frag(1), frag(2), frag(3), frag(4), frag(5))
- End Sub
- Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
- For i As Integer = 1 To quest
- line = sr.ReadLine()
- Next
- Dim frag() As String = line.Split(",")
- frage(frag(0), frag(1), frag(2), frag(3), frag(4), frag(5))
- If ComboBox1.Text = frag(5) Then
- MsgBox("Richtig!")
- quest += 1
- Else
- MessageBox.Show("Leider falsch! Du hast verloren!", "Verloren", MessageBoxButtons.OK, MessageBoxIcon.Error)
- End
- End If
- For i As Integer = 1 To quest
- line = sr.ReadLine()
- Next
- Dim fra() As String = line.Split(",")
- frage(frag(0), frag(1), frag(2), frag(3), frag(4), frag(5))
- End Sub
- End Class
Er will einfach nicht funktionieren
Wieso?
Bitte helft mir
Danke im Vorraus
Gruß TGenius