|
▼ひで さん:
こんばんは。
>みなさんこんにちは
>よろしくお願いします
>
>メディアプレイヤーを呼び出してある音(音楽)を
>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
探ってみればいろんな方法がありそうですが、上記のコードでもいけそうです。
ちなみに私が練習中の歌です。ははっ・・・。
|
|