|
コントロールのmadiaplayerの操作マクロを教えてください。
先般、Madiaplayerの演奏の繰り返しを質問しましたところ、do Loop文では!
とのご指導がありました。当方余りなれておりませんので掲示板で検索して
このループ文が参考になるかと思うものがあり、次のような文を書きました
Private Sub CommandButton3_Click()
Dim Name As String
For i = 1 To 3
Name = Worksheets("ケース2").Range("A1")
WindowsMediaPlayer1.URL = Name
Do
DoEvents
Loop Until WindowsMediaPlayer1 _
.playState = wmppsStoppe
If Worksheets("ケース2").Range("A3") = 0 Then Exit Sub
Next
End Sub
シートA1にMp3ファイルのアドレスが記入してあります。
A3に0を入れたとき終了するように書いたつもりです。
*3回リピートするつもりですが、1回の演奏でMadiaplayerは演奏が止まり「停止」と表示されますが。しかし、Madiaplayerは実行中となっています。
教えてください。
1 Madiaplayerに関する停止・再生などの操作マクロを
2 演奏を繰り返すにはどうしたらよいのでしょうか
回数を指定しなくても良いのです。何回も回っても、停止する時にMadiaplayerのプロパティの「URL]に「""」をコマンドボタンで挿入すると
Madiaplayerは、「準備完了」が表示され「実行中」も出ません。
3 掲示板の掲載マクロを参考にさせていただきましたが、
Loop Until WindowsMediaPlayer1 .playState = wmppsStoppe
のplayState = wmppsStoppeがよく分かりません。
子ども会の写真をイベントの時、地域の方々に公開する写真掲示のファイルをつっくて下ります。今、手探りで行っていますので未熟者と思われますでしょうがご指導をお願いいたします。
又、WindowsMediaPlayerを使わずにMp3を繰り返し演奏し停止できますでしょうか?
勉強しますのでよろしく願います。
|
|