Excel VBA質問箱 IV

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

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


74774 / 76732 ←次へ | 前へ→

【6414】Re:メディアプレイヤーを終了させたいのですが
回答  ichinose  - 03/6/27(金) 19:57 -

引用なし
パスワード
   ▼ひで さん:
こんばんは。
>みなさんこんにちは
>よろしくお願いします
>
>メディアプレイヤーを呼び出してある音(音楽)を
>10秒間だけだし、プレイヤーを終了(閉じたい)させたいのですが
>終了のしかたがわかりません
>どなたか教えていただけないでしょうか
>お願いいたします。
>
>Sub test3xp() 'winXp xls2002
>
>Shell "C:\Program Files\Windows Media Player\wmplayer C:\NewStories.wma", vbHide
>Application.Wait (Now + TimeValue("00:00:10"))
>
>'Media Playerを終了
>
>End Sub
本家メディアプレーヤーを使用するのではなく、
メディアプレーヤーコントロールを使用してみてはどうですか?
その他のコントロールに「Windows Media Player」がありますから、チェックして
フォームに貼り付けてください。
'===============================
Sub test()
  Dim st As Date
  Load UserForm1
  UserForm1.MediaPlayer1.Filename = "D:\家庭用\世界に一つだけの花(カラオケ).WAV"
  st = Now + TimeValue("00:00:10")
  Do Until Now >= st
   DoEvents
   Loop
  Unload UserForm1
End Sub
探ってみればいろんな方法がありそうですが、上記のコードでもいけそうです。
ちなみに私が練習中の歌です。ははっ・・・。
1 hits

【6396】メディアプレイヤーを終了させたいのですが ひで 03/6/27(金) 11:53 質問
【6413】Re:メディアプレイヤーを終了させたいのです... JuJu 03/6/27(金) 18:56 回答
【6414】Re:メディアプレイヤーを終了させたいのです... ichinose 03/6/27(金) 19:57 回答
【6415】Re:メディアプレイヤーを終了させたいのです... ichinose 03/6/27(金) 20:01 発言
【6426】Re:メディアプレイヤーを終了させたいのです... ひで 03/6/29(日) 18:53 お礼
【6438】・・・とくべつな〜オンリーワン♪ ひで 03/6/30(月) 9:29 お礼

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