Guten Morgen
mein Problem Heute ist das Windows Media Player Control, und zwar mit Player.Ctlcontrols.play().
Ich Poste erst einmal den ganzen Code den ich hab.
Spoiler anzeigen
In diesem Teil des Codes
funktioniert Player.Ctlcontrols.play().
Aber in diesem teil des Codes nicht.
Hab im Internet schon gesucht aber nichts gefunden.
Hoffe das mir jemand Helfen kann.
MfG. Willi
mein Problem Heute ist das Windows Media Player Control, und zwar mit Player.Ctlcontrols.play().
Ich Poste erst einmal den ganzen Code den ich hab.
VB.NET-Quellcode
- Imports AxWMPLib
- Public Class Form1
- Dim listeLaden As New Specialized.StringCollection
- Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
- Dim liste As System.Collections.Specialized.StringCollection = My.Settings.URL
- For Each s As String In liste
- ListBox1.Items.Add(s)
- 'ListBox1.SelectedIndex = 0
- Player.URL = CType(ListBox1.SelectedItem, String)
- ListBox1.SelectedItem = My.Settings.Item
- Player.Ctlcontrols.currentPosition = My.Settings.Position
- Next
- End Sub
- Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
- 'listbox laden
- ListBox1.Items.Clear()
- Using ofd As New OpenFileDialog
- ofd.Multiselect = True
- If ofd.ShowDialog = DialogResult.OK Then
- For Each eintrag As String In ofd.FileNames
- listeLaden.Add(eintrag)
- ListBox1.Items.Add(eintrag)
- ListBox1.SelectedIndex = 0
- Player.URL = CType(ListBox1.SelectedItem, String)
- Next
- End If
- End Using
- End Sub
- Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
- 'speichern
- My.Settings.URL = listeLaden
- My.Settings.Position = Player.Ctlcontrols.currentPosition
- My.Settings.Item = CType(ListBox1.SelectedItem, String)
- My.Settings.Save()
- My.Settings.Reload()
- End Sub
- Private Sub ListBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ListBox1.SelectedIndexChanged
- Player.URL = CType(ListBox1.SelectedItem, String)
- End Sub
- Private Sub Form1_Closed(sender As Object, e As EventArgs) Handles Me.Closed
- My.Settings.Item = CType(ListBox1.SelectedItem, String)
- My.Settings.Position = Player.Ctlcontrols.currentPosition
- My.Settings.Save()
- My.Settings.Reload()
- End Sub
- Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
- Player.Ctlcontrols.play()
- End Sub
- Private Sub Player_PlayStateChange(sender As Object, e As _WMPOCXEvents_PlayStateChangeEvent) Handles Player.PlayStateChange
- If Player.playState = WMPLib.WMPPlayState.wmppsMediaEnded Then
- ListBox1.SelectedIndex = ListBox1.SelectedIndex + 1
- Player.Ctlcontrols.play()
- End If
- End Sub
- End Class
In diesem Teil des Codes
funktioniert Player.Ctlcontrols.play().
Aber in diesem teil des Codes nicht.
Hab im Internet schon gesucht aber nichts gefunden.
Hoffe das mir jemand Helfen kann.
MfG. Willi