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