VB.NET2005 AxWindowsMediaPlayer1連續播放問題解決

來源:互聯網
上載者:User
window|解決|問題

實際上就是先定義一個WMP的播放清單:

 Dim CurrentList As WMPLib.IWMPPlaylist = Me.AxWindowsMediaPlayer1.currentPlaylist
        Dim Media As WMPLib.IWMPMedia

        '這裡可以使用數組迴圈,從而得到播放清單
        Media = Me.AxWindowsMediaPlayer1.newMedia("K:\娛樂休閑\mp3\寂寞的季節.mp3")
        CurrentList.appendItem(Media)
        Media = Me.AxWindowsMediaPlayer1.newMedia("K:\娛樂休閑\mp3\IBelieve.mp3")
        CurrentList.appendItem(Media) 

重複播放

 Private Sub AxWindowsMediaPlayer1_PlayStateChange(ByVal sender As Object, ByVal e As AxWMPLib._WMPOCXEvents_PlayStateChangeEvent) Handles AxWindowsMediaPlayer1.PlayStateChange
        AxWindowsMediaPlayer1.Ctlcontrols.play()
    End Sub




相關文章

E-Commerce Solutions

Leverage the same tools powering the Alibaba Ecosystem

Learn more >

Apsara Conference 2019

The Rise of Data Intelligence, September 25th - 27th, Hangzhou, China

Learn more >

Alibaba Cloud Free Trial

Learn and experience the power of Alibaba Cloud with a free trial worth $300-1200 USD

Learn more >

聯繫我們

該頁面正文內容均來源於網絡整理,並不代表阿里雲官方的觀點,該頁面所提到的產品和服務也與阿里云無關,如果該頁面內容對您造成了困擾,歡迎寫郵件給我們,收到郵件我們將在5個工作日內處理。

如果您發現本社區中有涉嫌抄襲的內容,歡迎發送郵件至: info-contact@alibabacloud.com 進行舉報並提供相關證據,工作人員會在 5 個工作天內聯絡您,一經查實,本站將立刻刪除涉嫌侵權內容。