Visual Basic Forum

Fir Kay · Poster Anmeldedatum: 01.05.2008 Beiträge: 109

Moin,
ich habe gerade folgenden Fehler bekommen. Ich habe schon in der MDSN Hilfe oder wie das auch heißt geguckt und die meinten da ich muss irgendein Verweis auf Null bringen oda so.
Könnt ihr mir i-wie weiterhelfen?

^^kev#### · Verfasst am: 12.09.2008, 17:10

Wäre gut wenn du den Sourcecode, wo der Fehler auftritt, posten würdest Wink

Fir Kay · Poster Anmeldedatum: 01.05.2008 Beiträge: 109

Keine Ahnung wo der Fehler auftritt. Das Fehlerfenster öffnet sich wenn ich das Programm debugge, streicht aber nirgends ein Fehler an:Visual Basic: [code]Imports System.IO
Public Class Form1
Dim deu As String
Dim eng As String
Dim mywords2() As String = System.IO.File.ReadAllLines(TextBox2.Text)
Dim mywords() As String = System.IO.File.ReadAllLines(TextBox1.Text)

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
OpenFileDialog1.ShowDialog()
End Sub

Private Sub OpenFileDialog1_FileOk(ByVal sender As System.Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles OpenFileDialog1.FileOk
TextBox1.Text = OpenFileDialog1.FileName
End Sub

Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
If TextBox2.Text = deu Then
MsgBox("Richtig!")
eng = rndword(mywords)
deu = rndword(mywords2)
Else
MsgBox("Falsch!")
eng = rndword(mywords)
deu = rndword(mywords2)
End If
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
OpenFileDialog2.ShowDialog()
End Sub

Private Sub OpenFileDialog2_FileOk(ByVal sender As System.Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles OpenFileDialog2.FileOk
TextBox3.Text = OpenFileDialog2.FileName

eng = rndword(mywords)
deu = rndword(mywords2)
Label2.Text = eng
End Sub

Private Function rndword(ByVal words() As String) As String
Dim rnd As New System.Random
Dim temp As Integer = rnd.Next(0, words.Length)
Return words(temp)
End Function
End Class[/code]

noname · Poster Anmeldedatum: 01.05.2008 Beiträge: 131

Deine Textboxen dürfen nicht leer sein.

Fir Kay · Poster Anmeldedatum: 01.05.2008 Beiträge: 109

Ne ist es nicht. Hät mich aber auch gewundert.

sollniss · Überflieger Anmeldedatum: 01.05.2008 Beiträge: 699

Visual Basic: [code]If TextBox2.Text = "deu" Then[/code]

Fir Kay · Poster Anmeldedatum: 01.05.2008 Beiträge: 109

Das wird nichts bringen, weil es eine Variabel ist. Und die müssen ja nicht in Zeichen gesetzt werden.

noname · Poster Anmeldedatum: 01.05.2008 Beiträge: 131

Visual Basic: [code] Dim temp As Integer = rnd.Next(0, words.Length - 1)[/code]

Dann wär der Fehler aber nur zufällig.

Fir Kay · Poster Anmeldedatum: 01.05.2008 Beiträge: 109

So könnte es auch sein, aber ich hab den Fehler gerade selbst gefunden.