VBで動画を再生するには

タグの編集
投稿者 KEN  (小学生) 投稿日時 2009/10/10 20:33:46
以前
「簡単なMP3プレーヤーを作っています」
というものを質問しましたが、
ファイルを選択した際、
拡張子が".wmv"や".avi"だった場合、
AxWindowsMediaPlayerが配置してあるVideoPlay.vbを開いて、Loadイベントで指定した".Wmv”か".avi"を再生する
というふうにしたいのですが、どうしたらいいのでしょうか?
投稿者 KEN  (小学生) 投稿日時 2009/10/11 00:59:40
VBのバージョンは2008です。
投稿者 KEN  (小学生) 投稿日時 2009/10/11 01:00:39
>Loadイベントで指定した".Wmv”か".avi"を再生する
というのは、VideoPlay.VbのLoadイベントで".Wmv”か".avi"を再生するということです。
投稿者 brv  (中学生) 投稿日時 2009/10/11 01:40:47
こんなのでどうでしょう。
    Private Sub Form1_Load(ByVal sender As System.ObjectByVal e As System.EventArgs) Handles MyBase.Load
        '※AxWindowsMediaPlayer1はActiveXのWMPコントロール 
        Dim filePath As String = "" 'この変数にパスが入ってることを前提とする 
        Select Case IO.Path.GetExtension(filePath)
            Case ".avi"".wmv"
                AxWindowsMediaPlayer1.URL = filePath
            Case Else
                MessageBox.Show(filePath & "が開かれました")
        End Select
    End Sub
投稿者 KEN  (小学生) 投稿日時 2009/10/11 05:18:25
できました。

ありがとうございました。