VBA ユーザーフォームで音楽や動画を再生【WindowsMediaPlayerコントロール】



The following two tabs change content below.

taka

あることがキッカケでVBAを独学で勉強しました、今ではブログを通してVBAでできることを解説しつつ、VBAや他の言語の勉強、ブログ運営の勉強をしています(^^♪

どうも、takaです(^^♪

久しぶり?のVBAネタですね(笑)

皆さんはVBAのUserFoamで音楽や動画の再生が出来ることが可能なのをご存知ですか? ^^) _旦~~

なんとVBAは「WindowsMediaplayeコントロール」があります(笑)なので音楽や動画、写真まで再生することが可能なんですね(笑)

今回はそんなマニアックなコントロールをご紹介します(^^♪

WindowsMediaPlayerとは?

WindowsMediaplayerコントロールは【音楽・動画・写真】などが再生が可能なコントロールです、Windowsに標準で搭載されているソフトウェアなので皆さんご存知な方も多いのではないでしょうか(^^♪

↓こんなやつですね(-ω-)

WindowsMediaPlayerコントロールの設置

WindowsMediaplayerコントロールはデフォルトでは表示されていません。今回ご紹介する【WindowsMediaplayerコントロール】の設置、【その他コントロール】の設置については

表示されていないユーザーフォームコントロールを表示する方法

表示されていないユーザーフォームコントロールを表示する方法表示されていないコントロールって?こんばんはtakaです、今回は【表示されていないユーザーフォームコン…

で紹介しましたので省略させていただきます。

画像は音楽の再生中のWindowsMediaplayerの様子です(^^♪

WindowsMediaplayerのよく使うプロパティ

WindowsMediaplayerのプロパティはこのようになっています、思ったより少ないですよね(笑)

ここではよく使うであろう、WindowsMediaplayerのプロパティをご紹介します(^^♪

enableContextMenuプロパティ

enableContextMenuプロパティはメディアの再生中に右クリックして表示される メニューを有効にするかどうかを指定するプロパティです(^^)/

説明
True既定値、 メニューを有効にします。
Falseメニューを表示できません。

個人的には「Ture」のままでいいと思います(^^)

fullScreenプロパティ

fullScreenプロパティは動画・画像ファイルを選択時に自動で全画面再生をさせるかどうかを設定するプロパティです(^^♪

説明
True動画・画像ファイルを選択時に自動で全画面再生されます。
False既定値、動画・画像ファイルを自動で全画面再生されません

uiMode プロパティ

uiMode プロパティは、フォーム上で表示されるコントロールの表示させるモードを指定するプロパティです、それぞれ表示させるコントロールの操作メニューなどに差があります。

規定値で問題ありませんが、覚えておくと色々と便利だと思います(^^)/

説明使用画面
nonenoneモードではコントロール上のメニューがありません。ビデオ ウィンドウまたは視覚エフェクト ウィンドウのみが表示されます。
miniminiモードでは、ビデオ ウィンドウまたは視覚エフェクト ウィンドウのほかに、再生/一時停止、停止、ミュート、および音量のコントロールメニューが表示されてます。
full既定値、fullモードでは、ビデオ ウィンドウまたは視覚エフェクト ウィンドウのほかに、ステータス ウィンドウ、検索バー、再生/一時停止、停止、ミュート、次へ、前へ、早送り、高速巻き戻し、および音量のコントロールが表示されて埋め込まれます。

URLプロパティ

URLプロパティは、メディアファイルをフルパスで指定することでMediaplayerコントロールで再生することができます。

下記のコードでは「Cドライブのtestフォルダのtestという音楽ファイルを再生」するコードです(^^♪

WindowsMediaplayerコントロールの使用例

WindowsMediaplayerコントロールの使用例として簡単なコードをご紹介します(^^)/

下記の画像のようなフォームを用意して参照ボタンで指定したファイルを再生します(^^♪

下記にサンプルを用意しておきますのでお好きに改変してください!

今回はすべてのファイルを表示していますが、Excelファイルなどを指定すると注意書きが表示され、再生はできません。表示するファイルの種類を指定するなどして対応してください

ダウンロード

当サイトの免責事項をお読みになってからお使いください。

ファイルやコードの利用、WEBサイトの利用について

サンプルコードなどは当サイトの免責事項をよくお読みになってからお使いください。

Twitterフォロー

 

Twitterもやってます(^^♪Excelについてはあまり触れませんがブログの更新のお知らせはツイートしています(^^♪

Twitterフォロー

 



コメントを残す

メールアドレスが公開されることはありません。 * が付いている欄は必須項目です