Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


58893 / 76738 ←次へ | 前へ→

【22566】コントロールのmadiaplayerの操作マクロを教えてください。
質問  おっさん  - 05/2/23(水) 21:54 -

引用なし
パスワード
   コントロールの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を繰り返し演奏し停止できますでしょうか?
 勉強しますのでよろしく願います。

0 hits

【22566】コントロールのmadiaplayerの操作マクロを教えてください。 おっさん 05/2/23(水) 21:54 質問
【22574】Re:コントロールのmadiaplayerの操作マクロ... IROC 05/2/24(木) 8:43 回答
【22621】Ontimeがうまく使えません おっさん 05/2/24(木) 21:56 質問

58893 / 76738 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free