Public Class Form1 Private Sub btnGetSound_Click(以下省略) wmp.URL = "C:\Program Files\TESTPG\音声\A.mp3" wmp.Ctlcontrols.play() End Sub
Private Sub wmp_StatusChange() Handles wmp.StatusChange If wmp.playState = WMPLib.WMPPlayState.wmppsStopped Then wmp.newMedia("C:\Program Files\TESTPG\音声\B.mp3") wmp.Ctlcontrols.play()・・・* End If End Sub End Class
newMediaはIWMPMedia型のオブジェクトを返すだけなので、これを使う場合、その返値のIWMPMediaオブジェクトをWindowsMediaPlayerオブジェクトのcurrentMediaに設定してやる必要があります。 Dim media As IWMPMedia = wmp.newMedia(...) wmp.currentMedia = media wmp.Ctlcontrols.play() ' currentMediaに設定しただけで再生開始されるか、play()が必要かは覚えてないですが