Hallo Leute,
hab hier ein Mega Problem was ich mir einfach garnicht erklären kann. Es geht um folgendes in einer Listbox stehen filme , wird nun ein film angeklickt (in der listbox verändert sich die auswahl) wird ein cover dazu auf der festplatte gesucht. es gibt 3 arten wie das cover heißen kann.
Das funktioniert auch alles wunderbar folgende Fälle :
Ich wähle einen film zu dem es kein cover gibt: er probiert 3 mal und gibt das errorimage aus (kein cover)
das funktioniert auch so oft hintereinander wie ich möchte
ich wähle einen film zu dem es ein cover in der form 2 gibt (i=2) , die erste form finded er nicht , die zweite finded er und zeigt das cover an -> prima =)
wähle ich nach dem film einen ohne cover wieder aus funktionier das prima =)
Und jetzt der Hammer wähle ich nachdem ich einmal einen Film mit gefunden Cover habe wieder einen mit Cover aus, stürzt das Programm komplett ab dem Punkt ab, ab dem es das Cover gibt (z.B i=3)
Dann kommt auch keine Meldung in VB oder sonst was, ich muss das Programm über den Taskmanger beenden.
Ich verstehe das nicht hoffe jemand von euch hat eine Idee.
hab hier ein Mega Problem was ich mir einfach garnicht erklären kann. Es geht um folgendes in einer Listbox stehen filme , wird nun ein film angeklickt (in der listbox verändert sich die auswahl) wird ein cover dazu auf der festplatte gesucht. es gibt 3 arten wie das cover heißen kann.
Das funktioniert auch alles wunderbar folgende Fälle :
Ich wähle einen film zu dem es kein cover gibt: er probiert 3 mal und gibt das errorimage aus (kein cover)
das funktioniert auch so oft hintereinander wie ich möchte
ich wähle einen film zu dem es ein cover in der form 2 gibt (i=2) , die erste form finded er nicht , die zweite finded er und zeigt das cover an -> prima =)
wähle ich nach dem film einen ohne cover wieder aus funktionier das prima =)
Und jetzt der Hammer wähle ich nachdem ich einmal einen Film mit gefunden Cover habe wieder einen mit Cover aus, stürzt das Programm komplett ab dem Punkt ab, ab dem es das Cover gibt (z.B i=3)
Dann kommt auch keine Meldung in VB oder sonst was, ich muss das Programm über den Taskmanger beenden.
Ich verstehe das nicht hoffe jemand von euch hat eine Idee.
VB.NET-Quellcode
- Private Sub ListBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListBox1.SelectedIndexChanged
- picexist = False
- i = 1
- If i = 1 And picexist = False Then
- picture = ListBox1.SelectedItem
- picture = Replace(picture, ".ts", ".jpg")
- picturecheck()
- End If
- If i = 2 And picexist = False Then
- picture = (Label3.Text & "_" & Label5.Text)
- picture = Replace(picture, " ", "_")
- picture = Replace(picture, "-", "_")
- picture = Replace(picture, "'", "_")
- picture = (picture & ".jpg")
- picturecheck()
- End If
- If i = 3 And picexist = False Then
- picture = (Label5.Text)
- picture = Replace(picture, " ", "_")
- picture = Replace(picture, "-", "_")
- picture = Replace(picture, "'", "_")
- picture = (picture & ".jpg")
- picturecheck()
- End If
- If picexist = True Then
- PictureBox3.ImageLocation = ("ftp://" & My.Settings.User(index) & ":" & My.Settings.Password(index) & "@" & My.Settings.IP(index) & ":" & My.Settings.Port(index) & Movies & picture)
- logmessage = (TimeOfDay & " Uhr " & "Bild geladen : " & picture)
- Log()
- Else
- PictureBox3.ImageLocation = ("ftp://" & My.Settings.User(index) & ":" & My.Settings.Password(index) & "@" & My.Settings.IP(index) & ":" & My.Settings.Port(index) & Movies & picture)
- logmessage = (TimeOfDay & " Uhr " & "Kein Bild gefunden")
- Log()
- End If
- End Sub
VB.NET-Quellcode
- Sub picturecheck()
- If picexist = False And i <= 3 Then
- Try
- Dim webreq As Net.FtpWebRequest = Net.FtpWebRequest.Create("ftp://" & My.Settings.IP(index) & ":" & My.Settings.Port(index) & Movies & picture)
- webreq.Credentials = New System.Net.NetworkCredential(My.Settings.User(index), My.Settings.Password(index))
- webreq.GetResponse()
- picexist = True
- logmessage = (TimeOfDay & " Uhr " & "Bild gefunden : " & picture)
- Log()
- Catch ex As Net.WebException
- MsgBox(ex.Message)
- i = i + 1
- logmessage = (TimeOfDay & " Uhr " & "Bild nicht gefunden : " & picture)
- Log()
- End Try
- End If
- End Sub