Windows Media Player spielt bloss das erste Video in Fullscreen

kafffee · 11. Dezember 2020, 12:06

Mahlzeit zusammen,

ich hab ein kleines Problem mit der Darstellung von mehreren Videos in Folge. Und zwar wird immer nur das erste Video im Vollbildmodus gezeigt...

Ich rufe eine Methode Uhr() auf, die dann das Video spielt. Wenn das Video zu Ende ist, rufe ich diese Methode erneut ab, mittels:

VB.NET-Quellcode

Private Sub AxWindowsMediaPlayer1_PlayStateChange(sender As Object, e As _WMPOCXEvents_PlayStateChangeEvent) Handles AxWindowsMediaPlayer1.PlayStateChange
If AxWindowsMediaPlayer1.playState = WMPLib.WMPPlayState.wmppsStopped Then
Uhr()
End If
End Sub

Diese nimmt sich aus einer ListBox dann den nächsten Dateinamen. Ich habe im Internet folgenden Code gefunden, den ich aber nicht verstehe (v.a. das Application.DoEvents()):

VB.NET-Quellcode

Do While AxWindowsMediaPlayer1.playState <> WMPLib.WMPPlayState.wmppsPlaying
Application.DoEvents()
Loop
AxWindowsMediaPlayer1.fullScreen = True

Diesen Code hab ich in Uhr() gepackt und es hat erst einmal noch funktioniert. Doch dann hab ich an anderer Stelle den Code verändert und jetzt funktioniert es nicht mehr.

Kann man vielleicht jemand helfen den Code zu verstehen, ich glaube er ist einfach an der falschen Stelle im Programm...

RodFromGermany · 11. Dezember 2020, 12:41

kafffee schrieb:

Doch dann hab ich an anderer Stelle den Code verändert

Was ganz genau soll denn Dein zweites Snippet tun?

kafffee · 11. Dezember 2020, 12:46

Ich weiss nicht genau was ein Snippet ist. Aber wenn ich dich richtig verstehe sollen einfach mehrere Videos in Reihe abgespielt werden (in full screen). Die Dateinamen sind sortiert in einer Listbox...

RodFromGermany · 11. Dezember 2020, 12:54

kafffee schrieb:

Snippet

Das untere Quellcode-Schnipsel (Snippet) mit den Zeilen 1 bis 4.
Dann solltest Du mal den kompletten Code posten.
Zippen ohne die bin- und obj-Verzeichnisse, Erweiterte Antwort => Dateianhänge => Hochladen

kafffee · 11. Dezember 2020, 22:32

Eh voila:

Die Codezeilen die ich erwähnt hab findest du in Form2 auf Zeile 74-77

Wenn du noch Fragen hast melde dich kurz

RodFromGermany · 12. Dezember 2020, 06:43

@kafffee Bei mir hat das tadellos funktioniert.
Die Projektdatei ist etwas verquer bezüglich Form2.
Den Eintrag Form2 löschen und wieder neu hinzufügen.
Und:
Klassen werden umbenannt, indem im Projektmappen-Explorer die Datei umbenannt wird (Form1 <=> Startbildschirm).
Ansonsten solltest Du Dir noch mal die Instanziierung von Dialogen befassen:
Dialoge: Instanziierung von Forms und Aufruf von Dialogen
====
Und:
in PictureBox1_Click():

VB.NET-Quellcode

Timer1.Enabled = Not Timer1.Enabled

kafffee · 12. Dezember 2020, 10:11

@RodFromGermany
Was meinst du mit verquer? Bloß den Name von Form2 verändern?

Kann es sein dass deine Videos sowieso schon full screen sind weil sie die entsprechende Auflösung haben? Ich hab da nämlich so einen Ordner mit Handyvideos aus dem Jahre 2006 und da wird immer nur das zuallererst abgespielte in Vollbild angezeigt, alle weiteren werden nicht hoch skaliert bzw. werden in Originalgrösse abgespielt

RodFromGermany · 12. Dezember 2020, 10:41

Deine Form2 war als Link in die Projektmappe integriert, kann sein, dass Du eine Datei|Klasse bearbeitest und eine andere Datei|Klasse ausführst.

kafffee schrieb:

mit Handyvideos aus dem Jahre 2006

OK, kann sein, dass die nicht die erforderliche Auflösung haben.
Umbenennen von Dateien UND Klassen GEMEINSAM geht so:

Ich hab mir mal Deine Klassen leicht überarbeitet:

Spoiler anzeigen

VB.NET-Quellcode

Imports Microsoft.VisualBasic
Public Class Startbildschirm
Public Array As New List(Of String)
Private _rnd As New Random()
Private MyForm2 As Form2
Private Sub Startbildschirm_Load(sender As Object, e As EventArgs) Handles MyBase.Load
TableLayoutPanel1.Left = (Me.Width - TableLayoutPanel1.Width) \ 2
TableLayoutPanel1.Top = (Me.Height - TableLayoutPanel1.Height) \ 2
End Sub
Private Sub btnBeenden_Click(sender As Object, e As EventArgs) Handles btnBeenden.Click
Me.Close()
End Sub
Private Sub btnOrdnerauswahl_Click(sender As Object, e As EventArgs) Handles btnOrdnerauswahl.Click
If Not String.IsNullOrEmpty(txtPfad.Text) Then
' da starten, wo wir eben aufgehört haben
FolderBrowserDialog1.SelectedPath = txtPfad.Text
End If
FolderBrowserDialog1.ShowDialog()
txtPfad.Text = FolderBrowserDialog1.SelectedPath
End Sub
Private Sub btnDiaStarten_Click(sender As Object, e As EventArgs) Handles btnDiaStarten.Click
If Not IO.Directory.Exists(txtPfad.Text) Then
MessageBox.Show("Ungültiger Ordner!")
Return
End If
Dim searchType = FileIO.SearchOption.SearchTopLevelOnly
If chkUnterordner.Checked = True Then
searchType = FileIO.SearchOption.SearchAllSubDirectories
End If
For Each foundFile As String In My.Computer.FileSystem.GetFiles(txtPfad.Text, searchType, "*.jpg", "*.jpeg", "*.gif", "*.wmf", "*.png", "*.bmp", "*.mp4", "*.avi")
ListBox1.Items.Add(foundFile)
Array.Add(foundFile)
Next
Array = Array.OrderBy(Function() _rnd.Next()).ToList()
ListBox2.DataSource = Array
MyForm2 = New Form2
MyForm2.MyStartbildschirm = Me
MyForm2.Show()
End Sub
Private Sub chkTimer_CheckedChanged(sender As Object, e As EventArgs) Handles chkTimer.CheckedChanged
numSekundenzahl.Enabled = chkTimer.Checked
End Sub
Private Sub btnBeenden_MouseHover(sender As Object, e As EventArgs) Handles btnBeenden.MouseHover, txtPfad.MouseHover,
btnDiaStarten.MouseHover, chkUnterordner.MouseHover, btnOrdnerauswahl.MouseHover
Dim ctrl = CType(sender, Control)
ctrl.BackColor = Color.FromArgb(142, 187, 242)
End Sub
Private Sub btnDiaStarten_MouseLeave(sender As Object, e As EventArgs) Handles btnBeenden.MouseLeave, txtPfad.MouseLeave,
btnDiaStarten.MouseLeave, chkUnterordner.MouseLeave, btnOrdnerauswahl.MouseLeave
Dim ctrl = CType(sender, Control)
ctrl.BackColor = Color.Yellow
End Sub
End Class

VB.NET-Quellcode

Imports AxWMPLib
Public Class Form2
Public MyStartbildschirm As Startbildschirm
Public Zaehler As Integer
Public VideoRunning As Boolean
Public Function AutoSizeImage(ByVal bmp As Image,
ByVal maxWidth As Integer,
ByVal maxHeight As Integer,
Optional ByVal bStretch As Boolean = False) As Image
' Größenverhältnis der max. Dimension
Dim maxRatio As Single = CSng(maxWidth / maxHeight)
' Bildgröße und aktuelles Größenverhältnis
Dim imgWidth As Integer = bmp.Width
Dim imgHeight As Integer = bmp.Height
Dim imgRatio As Single = CSng(imgWidth / imgHeight)
' Bild anpassen?
If (Not (imgWidth > maxWidth Or imgHeight > maxHeight) Or bStretch) Then
' unverändertes Originalbild zurückgeben
Return bmp
End If
If imgRatio <= maxRatio Then
' Größenverhältnis des Bildes ist kleiner als die
' maximale Größe, in der das Bild angezeigt werden kann.
' In diesem Fall muss die Bildbreite angepasst werden.
imgWidth = CInt(imgWidth / (imgHeight / maxHeight))
imgHeight = maxHeight
Else
' Größenverhältnis des Bildes ist größer als die
' maximale Größe, in der das Bild angezeigt werden kann.
' In diesem Fall muss die Bildhöhe angepasst werden.
imgHeight = CInt(imgHeight / (imgWidth / maxWidth))
imgWidth = maxWidth
End If
' Bitmap-Objekt in der neuen Größe erstellen
Dim bmp2 As New Bitmap(imgWidth, imgHeight)
' Bild interpolieren, damit die Qualität erhalten bleibt
Using g As Graphics = Graphics.FromImage(bmp2)
g.InterpolationMode = Drawing2D.InterpolationMode.HighQualityBicubic
g.DrawImage(bmp, New Rectangle(0, 0, imgWidth, imgHeight))
End Using
' neues Bitmap zurückgeben
Return bmp2
End Function
Public Sub Uhr()
If MyStartbildschirm.ListBox1.Items.Count = 0 Then
MessageBox.Show("Im ausgewählten Ordner sind keine unterstützten Dateien!")
Me.Hide()
MyStartbildschirm.Show()
Return
End If
Me.Focus()
Me.Timer1.Stop()
If MyStartbildschirm.ListBox2.Items(Zaehler).ToString().ToLower().EndsWith(".avi") OrElse
MyStartbildschirm.ListBox2.Items(Zaehler).ToString().ToLower().EndsWith(".mp4") OrElse
MyStartbildschirm.ListBox1.Items(Zaehler).ToString().ToLower().EndsWith(".avi") OrElse
MyStartbildschirm.ListBox1.Items(Zaehler).ToString().ToLower().EndsWith(".mp4") Then
PictureBox1.Enabled = False
PictureBox1.Visible = False
AxWindowsMediaPlayer1.Visible = True
AxWindowsMediaPlayer1.Enabled = True
AxWindowsMediaPlayer1.Dock = DockStyle.Bottom Or DockStyle.Left Or DockStyle.Right Or DockStyle.Top
Dim file As String
If MyStartbildschirm.chkZufall.Checked = True Then
file = MyStartbildschirm.ListBox2.Items(Zaehler).ToString()
Else
file = MyStartbildschirm.ListBox1.Items(Zaehler).ToString()
End If
AxWindowsMediaPlayer1.URL = file
Do While AxWindowsMediaPlayer1.playState <> WMPLib.WMPPlayState.wmppsPlaying
Application.DoEvents()
Loop
AxWindowsMediaPlayer1.fullScreen = True
Else
AxWindowsMediaPlayer1.Enabled = False
AxWindowsMediaPlayer1.Visible = False
Timer1.Interval = CInt(MyStartbildschirm.numSekundenzahl.Value * 1000)
Timer1.Enabled = True
PictureBox1.Visible = True
PictureBox1.Enabled = True
Me.PictureBox1.Dock = DockStyle.Bottom Or DockStyle.Left Or DockStyle.Right Or DockStyle.Top
' Bild laden
Try
Dim file As String
If MyStartbildschirm.chkTimer.Checked Then
file = MyStartbildschirm.ListBox2.Items(Zaehler).ToString()
Else
file = MyStartbildschirm.ListBox1.Items(Zaehler).ToString()
End If
Using Stream = New System.IO.FileStream(file, IO.FileMode.Open)
Dim BMP = New Bitmap(Stream)
With PictureBox1
If PictureBox1.Image IsNot Nothing Then
' altes Bild zerstören
PictureBox1.Image.Dispose()
End If
' Bild anpassen an PictureBox
' und neues Bild zuweisen
.Image = AutoSizeImage(BMP, .ClientRectangle.Width, .ClientRectangle.Height)
End With
End Using
Catch ex As Exception
MessageBox.Show("Datei konnte nicht geöffnet werden! Fehlermeldung: " & ex.Message)
End Try
Timer1.Start()
End If
If Zaehler = MyStartbildschirm.ListBox2.Items.Count - 1 Then
Zaehler = 0
Else
Zaehler += 1
End If
End Sub
Private Sub Form2_Load(sender As Object, e As EventArgs) Handles MyBase.Load
VideoRunning = False
Zaehler = 0
'PictureBox1.Left = Me.Width / 2 - PictureBox1.Width / 2
'PictureBox1.Top = Me.Height / 2 - PictureBox1.Height / 2
Timer1.Interval = CInt(MyStartbildschirm.numSekundenzahl.Value * 1000)
MessageBox.Show("SPACE: nächstes Bild/Video" & Environment.NewLine & "KLICK: pausieren" & Environment.NewLine & "ESC: beenden")
Uhr()
End Sub
Private Sub Form2_Click(sender As Object, e As EventArgs) Handles Me.Click
Me.Hide()
End Sub
Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
Uhr()
End Sub
Private Sub PictureBox1_Click(sender As Object, e As EventArgs) Handles PictureBox1.Click
' nur bei Bildern aktiv
Timer1.Enabled = Not Timer1.Enabled
End Sub
Private Sub AxWindowsMediaPlayer1_PlayStateChange(sender As Object, e As _WMPOCXEvents_PlayStateChangeEvent) Handles AxWindowsMediaPlayer1.PlayStateChange
If AxWindowsMediaPlayer1.playState = WMPLib.WMPPlayState.wmppsStopped Then
Timer1.Start()
End If
End Sub
Private Sub Form2_KeyDown(sender As Object, e As KeyEventArgs) Handles Me.KeyDown
If e.KeyCode = Keys.Escape Then
Timer1.Stop()
AxWindowsMediaPlayer1.Ctlcontrols.pause()
Me.Hide()
MyStartbildschirm.ListBox2.DataSource = New String() {}
'MyStartbildschirm.ListBox2.Refresh()
MyStartbildschirm.ListBox1.Items.Clear()
MyStartbildschirm.Show()
ElseIf e.KeyCode = Keys.Space Then
AxWindowsMediaPlayer1.Ctlcontrols.stop()
Uhr()
End If
End Sub
End Class

kafffee · 12. Dezember 2020, 10:47

@RodFromGermany

OK. Dumme Frage: Und wie ist der Unterschied dazu, dass ich einfach die Name-Eigenschaft von Form2 ändere?

Meine Videos sind alle mit dem gleichen Handy gemacht worden und haben die gleiche Größe/Auflösung.. Und wie gesagt das erste das abgespielt wird wird immer hochskaliert, die anderen nicht...

RodFromGermany · 12. Dezember 2020, 10:55

kafffee schrieb:

Und wie ist der Unterschied dazu, dass ich einfach die Name-Eigenschaft von Form2 ändere?

Allgemeine Coding-Regeln:
Der Name einer Klasse und der Name der Datei, die diese Klasse enthält, sollten identisch sein, das hilft z.B. sehr bei der Suche.

kafffee · 15. Dezember 2020, 17:43

RodFromGermany schrieb:

OK, kann sein, dass die nicht die erforderliche Auflösung haben.

Dann muss ich damit wohl leben

Obwohl wie gesagt immer das erste, das gespielt wird, wird trotz niedriger Auflösung im Vollbild angezeigt.

Noch ne andere Frage. Beim Wiedergeben von Fotos empfängt meine Form KeyDown Events. Ich habs so programmiert, dass bei ESC wieder der Startbildschirm angezeigt wird, und bei SPACE das nächste Bild. Das funktioniert bei den Videos nicht. PictureBox und Windows Media Player sind dabei übereinander auf der Form platziert, und wenn Fotos angezeigt werden mach ich AxWindowsMediapLayer.Visible = False und PIctureBox.Visible = True und dementsprechend umgekehrt.
Form2.Focus() geht nicht, hab ich schon probiert...

RodFromGermany · 16. Dezember 2020, 05:33

kafffee schrieb:

Das funktioniert bei den Videos nicht.

Deine Video-Wiedergabe ist auch nicht richtig programmiert (die DoEvents()-Schleife), Du müsstest die Videos asynchron abspielen und auf das Play-Ende-Event warten.
Währenddessen kannst Du die Tasten abfragen und darauf reagieren.

kafffee · 16. Dezember 2020, 05:36

Wa heisst asynchron abspielen? Du weisst ich bin Anfänger

RodFromGermany · 16. Dezember 2020, 06:48

@kafffee Windows ist ein Multi-Tasking-Betriebssystem, gleichzeitig können unteerschiedliche Prozesse echt parallel auf den einzelnen Prozessorkernen ablaufen, andere wiederum laufen quasi-parallel in unterschiedlichen Zeitscheiben zeitlich gestückelt nacheinander auf einem Prozessor ab.
So kann quasi gleichzeitig unheimlich viel parallel abgearbeitet werden. Diese Dinger, die da (quasi) parallel abgearbeitet werden, laufen in einem sogenannten Thread ab.
Ein einfaches WinForm-Programm läuft in einem einzigen Thread, dem GUI-Thread.
Wenn Du in einer Button_Click eine langwierige Berechnung machst oder eben ein Video ablaufen lässt (den "Prozess"), ist der Rest des Programms und insbesondere der GUI geblockt, Du kannst das Programm so lange nicht bedienen, solange der Prozess läuft.
Um das Programm weiterhin bedienen zu können, lagert man den Prozess in einen anderen Thread aus und schon kann die GUI wieder bedient werden.
Wenn Du nun die GUI beendest, läuft im Allgemeinen der angestoßene Thread noch weiter, das siehst Du daran, wenn Du das ganze in der Entwicklungsumgebung machst, dass zwar die GUI weg ist, jedoch das Studio noch im Run-Mode ist. Deshalb ist es wichtig, bei Programmbeendigung und so den anderen Thread sauber zu beenden.
Wichtig: Ein Thread sollte sich stets selbst beenden, von außen geht das, indem dem Thread z.B. durch ein Flag gesagt wird, dass er sich beenden soll (er muss dazu lediglich die "Thread-Prozedur" verlassen).
Es geht auch mit der Holözhammer-Methode, indem der Thread "abgeschossen" wird.
Wenn Du Dein Video in einem Thread laufen lassen willst, also "nebenläufig" oder "asynchron", musst Du es asynchron starten, dazu sollte es eine Methode RunVideoAsync() oder so geben, da musst Du mal nachsehen, was Dir die IDE anbietet.
In diesem Fall musst Du noch das RunReady-Event (so etwas in der Art) abbonieren, dann kannst Du in dieser Routine das nächste Video starten oder nicht.
Außerdem sollte es da noch so was geben wie StopAsync(), dass Du das Video anhalten kannst.
Dazu siehst Du Dir die Methoden an, die der VideoPlayer so anbietet.

kafffee · 16. Dezember 2020, 06:54

Wow danke für die ausführliche Antwort. Ich probiere das mal..

Windows Media Player spielt bloss das erste Video in Fullscreen

Windows Media Player spielt bloss das erste Video in Fullscreen

VB.NET-Quellcode

VB.NET-Quellcode

kafffee schrieb:

kafffee schrieb:

VB.NET-Quellcode

kafffee schrieb:

VB.NET-Quellcode

VB.NET-Quellcode

kafffee schrieb:

RodFromGermany schrieb:

kafffee schrieb:

Benutzer online 1

Ähnliche Themen

2 Benutzer haben hier geschrieben