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

1 WindowsMediaPlayerとは？

この記事を書いた人
最新の記事

taka

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

WindowsMediaPlayerとは？

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

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

WindowsMediaPlayerコントロールの設置

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

E-VBA

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

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

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

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

WindowsMediaplayerのよく使うプロパティ

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

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

enableContextMenuプロパティ

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

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

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

fullScreenプロパティ

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

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

uiMode プロパティ

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

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

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

URLプロパティ

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

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

Private Sub UserForm_Initialize()
WindowsMediaPlayer1.URL = "C:\test\test.wav"
End Sub

Private Sub UserForm_Initialize()

WindowsMediaPlayer1.URL = "C:\test\test.wav"

End Sub

WindowsMediaplayerコントロールの使用例

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

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

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

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

Private Sub CommandButton1_Click()
Dim FName
Dim strPath As String
strPath = ThisWorkbook.Path 'このVBAコードのあるファイルのパスを指定
Set FName = Application.FileDialog(msoFileDialogFilePicker)
With FName 'ダイヤログボックスの設定
'ダイヤログボックスのファイル表示の設定
.InitialView = msoFileDialogViewDetails
.InitialFileName = strPath
'複数選択をしないよう設定
.AllowMultiSelect = False
End With
If FName.Show() = -1 Then
WindowsMediaPlayer1.URL = FName.SelectedItems(1)
Else 'キャンセルを押されたら終了
MsgBox "キャンセルが押されました"
End If
Set FName = Nothing
End Sub