【動画を扱うプログラム】

　あらかじめビデオを使って沖縄の首里城を紹介するムービーを作成しておき、ＶｉｓｕａｌＢａｓｉｃのプログラムでビデオを上映して見せる。

　ポイントは

　　MediaPlayer1.Enabled = True
　　MediaPlayer1.Visible = True
　　MediaPlayer1.DisplaySize = 4
　　MediaPlayer1.FileName = fname & "shurijyo.mpg"

　の部分である。

１．素材の作成

　　次のようなムービーをｍｐｇ形式で作成しておく。

　　ｓｈｕｒｉｊｙｏ．ｍｐｇ

　　なお、"\\SKALA\教材提示ELEVATO\石山　謙\石山研究室(hyosiから開く)\"

　　の中にサンプルがあるので、今回はそれを使用する。

２．コントロールの追加

　ＶｉｓｕａｌＢａｓｉｃでＭｅｄｉａＰｌａｙｅｒが使えるようにする。

３．インターフェイスの作成

（１）コマンドボタンを２つ配置する。

（２）メディアプレイヤーを１つ配置する。

４．プロパティの設定

５．コードの記述

［プログラム全文］

Dim fname As String

Private Sub Command1_Click()
　　fname = "f:\石山研究室(hyosiから開く)\"
　　'↑は実習では、
　　'"\\SKALA\教材提示ELEVATO\石山　謙\石山研究室(hyosiから開く)\"
　　'と記載する。
　　MediaPlayer1.Enabled = True
　　MediaPlayer1.Visible = True
　　MediaPlayer1.DisplaySize = 4
　　MediaPlayer1.FileName = fname & "shurijyo.mpg"
End Sub

Private Sub Command2_Click()
　　End
End Sub

Private Sub Form_Load()
　　MediaPlayer1.Enabled = False
End Sub

６．実行

７．保存

　　フォーム、プロジェクトともに　ｍｏｖｉｅ　という名前で保存する。