Accessで選曲、音楽再生する方法を教えて下さい

解決済

質問者：nzmsys
質問日時：2013/03/15 12:09
回答数：3件

Accessで音楽CDを管理しております。レコードにはアルバム名やアーティスト、曲名等が入力してあります。フォームでアルバム名のコマンドボタンをクリックしたら、そのアルバムを全曲（アルバム単位で一曲目から最後の曲まで）を再生することはできるでしょうか。音楽CDはDドライブに取り込んであります。音楽ソフトはWindows Media Prayerです。
よろしくお願い致します。

通報する

この質問への回答は締め切られました。

質問の本文を隠す

回答 (3件)

ベストアンサー優先
最新から表示
回答順に表示

No.1ベストアンサー

回答者： neKo_deux
回答日時：2013/03/15 12:23

> フォームでアルバム名のコマンドボタンをクリックしたら、そのアルバムを全曲（アルバム単位で一曲目から最後の曲まで）を再生することはできるでしょうか。

プレイリストファイル(～.wpl)を作成し、そちらをMedia Playerで開くとかでは。
wplファイルはテキストファイルですし、タイトルと曲名書き換えれば使えるでしょうから、適当なプレイリスト作って内容確認してみるのが良いです。

- 0
- 件

通報する

この回答へのお礼

ご回答を頂きましてありがとうございました。
プレイリストファイル(～.wpl)を作成する方法って思いつきませんでした。
早速兆戦してみます。（素人の私でもうまくいく予感が・・・・・・？）
ありがとうございました。

通報する

お礼日時：2013/03/15 13:25

No.3

回答者： neKo_deux
回答日時：2013/03/15 14:24

Accessは手元に無いのでExcelで試しましたが、配列kyoku()に曲のパス、kyokusuに曲数が入ってるとして、

pathWMP = """C:\Program Files (x86)\Windows Media Player\wmplayer.exe"""
pathPlayList = "C:\Users\△△\Desktop\test.wpl"
Dim kyoku(10)
kyokusu = 2
kyoku(1) = "C:\～1.mp4"
kyoku(2) = "C:\～2.mp4"

Open pathPlayList For Output As #1
Print #1, "<?wpl version=""1.0""?>"
Print #1, "<smil>"
Print #1, " <head>"
Print #1, " <title>～</title>"
Print #1, " </head>"
Print #1, " <body>"
Print #1, " <seq>"
For i = 1 To kyokusu
Print #1, " <media src=""" & kyoku(i) & """/>"
Next i
Print #1, " </seq>"
Print #1, " </body>"
Print #1, "</smil>"
Close #1
Shell (pathWMP & pathPlayList)

とかで再生できました。
幸いと言うか、自分の環境だと繰り返し実行してもプレイリストのファイル名とかタイトルとかが履歴に残らないみたい？

- 0
- 件

通報する

この回答へのお礼

ご回答を頂きましてありがとうございました。
残念ながら私には理解できないところが多々ありますが、兆戦し甲斐がありそうですので勉強します。
どうもありがとうございました。

通報する

お礼日時：2013/03/15 15:01

No.2

回答者： IDii24
回答日時：2013/03/15 12:49

出来ますけど相当プログラム書かないとダメですよ。

やる気があるならですが。
WMPのモジュールをVBAの参照設定で読みだして、プログラムでパラメーターを渡す。
このパラメーターや読み込み、停止、音量、次の曲、その他、イコライザーなどなどすべての動作を記述してWMPをコンポーネントとしてプログラムに組み込んで使います。
つまりプレーヤーを作る事になりますが、こんなことをするならAccessを止めて他のプレーヤーにした方が良いです。