PS Habe es aktuelle so, was sehr viel schreiberei ist weil die buttons noch mehr werden.
VB.NET-Quellcode
- Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
- Dim playlist As WMPLib.IWMPPlaylist = Einstellungen.AxWindowsMediaPlayer1.newPlaylist("MyPlayList", "D:\blume.m3u")
- Einstellungen.AxWindowsMediaPlayer1.currentPlaylist = playlist
- Einstellungen.AxWindowsMediaPlayer1.settings.setMode("shuffle", True)
- Einstellungen.AxWindowsMediaPlayer1.Ctlcontrols.play()
- Button2.Text = "PLAY"
- Button3.Text = ""
- Button5.Text = ""
- End Sub
Das ist ja die funktionierende Version. Es kommen aber noch mehr Buttons dazu. Dann wäre die Liste mit ButtonX.Text="" elend lang. Das wollte ich umgehen.
Aber wenn es anscheind nicht machbar ist muss ich halt das so machen