MIDIの再生 (ID:87144)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 Endingイベントを拾えるようにAddHandlerして Endingイベントプロシージャで再度Playメソッドを実行すれば一応 ループできますね。 Private Sub Form1_Load(ByVal sender ...略 mAudio = New Audio("loop.mid") AddHandler mAudio.Ending, AddressOf mAudio_Ending mAudio.Play() End Sub Private Sub mAudio_Ending(ByVal sender As Object, ByVal e As System.EventArgs) mAudio.Stop() '一応Stopメソッドをやったほうがいいかも mAudio.Play() End Sub