マルチメディアコントロールの自動巻き戻し

トリッス 2003-10-31 01:46:36 No: 109602

マルチメディアコントロール（MMControl）を使い，
Waveファイル再生のプログラムを作成しています。
再生，巻き戻し，停止のボタンだけ表示し，
開いたファイルが再生できましたが，
これを再生と停止ボタンだけにし，最後まで再生したら
自動で最初にもどるようにしたいと思います。
VB6（SP5）を使用しています。よろしくお願いします。

ねろ 2003-10-31 02:49:08 No: 109603

これで何時まででもStopを押すまで、ぐるぐると
Private Sub MMControl1_Done(NotifyCode As Integer)
    If NotifyCode = 1 Then '
         MMControl1.Command = "Prev"
         MMControl1.Command = "Play"
    End If
End Sub

トリッス 2003-10-31 18:09:17 No: 109604

ねろさん，ありがとうございました。
解決いたしました。