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

1 WindowsMediaPlayerとは？
2 特別企画！IT企業の実情をIT企業の社長に聞いてみた！

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

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

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

ダウンロード

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

WindowsMediaPlayer 16.01 KB

Download

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

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

特別企画！IT企業の実情をIT企業の社長に聞いてみた！

独学者が多いVBAプログラマー「せっかくプログラム言語を覚えたし、IT企業に転職しようかな？でも、IT企業って良いイメージ聞かないし実際はどうなんだ？」という疑問にIT企業の社長に直に聞いてみました！！

記事を見てみる

カテゴリーで絞る

月で探す

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

taka

最新記事 by taka (全て見る)