Hallo an alle!
Bin ein ziemlicher Anfänger das mal vorab. Ich benutze Visual Studio 2019. Leider hab ich nicht herausgefunden,
wie man normalen Text und Quellcode in einem Post richtig formatieren kann... Bei mir wird dann entweder alles
als Text oder alles als Quellcode angezeigt... Ich bin dankbar für einen Tip dann werd ich diesen Beitrag nochmal editieren
und den Quellcode auch als solchen darstellen...
Doch nun zum eigentlichen Thema:
Ich bin dabei ein kleines Programm zu schreiben, das mir Videos und Bilder aus einem ausgewählten Ordner als
Diashow anzeigen soll. Optional in zufälliger Reihenfolge (Auswahl durch Startbildschirm.CheckBox2).
Die Public Sub Uhr() wird dann von einem Timer aufgerufen.
Die sortierten Dateien sind hinterlegt in Startbildschirm.ListBox1
Die zufällige Reihenfolge in Startbildschirm.ListBox2
Wenn ich das Programm ausführe, kommt es oft zu einem der folgenden Fehler (entweder der eine oder der andere). Das passiert jedoch nicht jedesmal, sondern wie gesagt nur manchmal. Ich habe das Ganze mal gegoogelt und probiert, das mit ausgeschaltetem Virenscanner zu probieren. Kein Ergebnis. Auch habe ich versucht, die PictureBox nach jedem Durchlauf wieder zu leeren. Auch kein Ergebnis...
Die Fehlermeldung hab ich in den Zeilen, in denen sie auftreten, auskommentiert:
CodeTags gesetzt ~VaporiZed
Bin ein ziemlicher Anfänger das mal vorab. Ich benutze Visual Studio 2019. Leider hab ich nicht herausgefunden,
wie man normalen Text und Quellcode in einem Post richtig formatieren kann... Bei mir wird dann entweder alles
als Text oder alles als Quellcode angezeigt... Ich bin dankbar für einen Tip dann werd ich diesen Beitrag nochmal editieren
und den Quellcode auch als solchen darstellen...
Doch nun zum eigentlichen Thema:
Ich bin dabei ein kleines Programm zu schreiben, das mir Videos und Bilder aus einem ausgewählten Ordner als
Diashow anzeigen soll. Optional in zufälliger Reihenfolge (Auswahl durch Startbildschirm.CheckBox2).
Die Public Sub Uhr() wird dann von einem Timer aufgerufen.
Die sortierten Dateien sind hinterlegt in Startbildschirm.ListBox1
Die zufällige Reihenfolge in Startbildschirm.ListBox2
Wenn ich das Programm ausführe, kommt es oft zu einem der folgenden Fehler (entweder der eine oder der andere). Das passiert jedoch nicht jedesmal, sondern wie gesagt nur manchmal. Ich habe das Ganze mal gegoogelt und probiert, das mit ausgeschaltetem Virenscanner zu probieren. Kein Ergebnis. Auch habe ich versucht, die PictureBox nach jedem Durchlauf wieder zu leeren. Auch kein Ergebnis...
Die Fehlermeldung hab ich in den Zeilen, in denen sie auftreten, auskommentiert:
VB.NET-Quellcode
- Public Sub Uhr()
- If Startbildschirm.ListBox2.Items(Zaehler).Substring(Startbildschirm.ListBox2.Items(Zaehler).Length - 3) = "avi" Or Startbildschirm.ListBox2.Items(Zaehler).Substring(Startbildschirm.ListBox2.Items(Zaehler).Length - 3) = "mp4" Then
- Timer1.Stop()
- If Startbildschirm.CheckBox2.Checked = True Then
- AxWindowsMediaPlayer1.URL = Startbildschirm.ListBox2.Items(Zaehler)
- Else
- AxWindowsMediaPlayer1.URL = Startbildschirm.ListBox1.Items(Zaehler)
- End If
- PictureBox1.Visible = False
- AxWindowsMediaPlayer1.Visible = True
- If Zaehler = Startbildschirm.ListBox2.Items.Count - 1 Then
- Zaehler = 0
- Else
- Zaehler = Zaehler + 1
- End If
- Else
- PictureBox1.Visible = True
- AxWindowsMediaPlayer1.Visible = False
- ' Bild laden
- Dim Stream2 As New System.IO.FileStream(Startbildschirm.ListBox2.Items(Zaehler), IO.FileMode.Open)
- Dim Stream1 As New System.IO.FileStream(Startbildschirm.ListBox1.Items(Zaehler), IO.FileMode.Open) 'Fehlermeldung: System.IO.IOException: "Der Prozess kann nicht auf die Datei "C:\Users\test\test.gif" zugreifen, da sie von einem anderen Prozess verwendet wird."
- Dim Bitmap2 As Bitmap
- Dim Bitmap1 As Bitmap
- Bitmap2 = New Bitmap(Stream2)
- Bitmap1 = New Bitmap(Stream1) 'Fehlermeldung: System.ArgumentException: "Ungültiger Parameter."
- Stream2.Close()
- Stream1.Close()
- ' Bild anpassen an PictureBox
- If Startbildschirm.CheckBox2.Checked = True Then
- With PictureBox1
- .Image = AutoSizeImage(Bitmap2, .ClientRectangle.Width, .ClientRectangle.Height)
- End With
- Else
- With PictureBox1
- .Image = AutoSizeImage(Bitmap1, .ClientRectangle.Width, .ClientRectangle.Height)
- End With
- End If
- If Zaehler = Startbildschirm.ListBox2.Items.Count - 1 Then
- Zaehler = 0
- Else
- Zaehler = Zaehler + 1
- End If
- End If
- End Sub
CodeTags gesetzt ~VaporiZed
Dieser Beitrag wurde bereits 4 mal editiert, zuletzt von „VaporiZed“ ()