VBで動画を再生するには への返答

投稿で使用できる特殊コードの説明。(別タブで開きます。)
本名は入力しないようにしましょう。
投稿した後で削除するときに使うパスワードです。返答があった後は削除できません。
返答する人が目安にします。相手が小学生か社会人かで返答の仕方も変わります。
最初の投稿が質問の場合、質問者が解決時にチェックしてください。(以降も追加書き込み・返信は可能です。)
※「過去ログ」について書くときはその過去ログのURLも書いてください。

以下の返答は逆順(新しい順)に並んでいます。

投稿者 KEN  (小学生) 投稿日時 2009/10/11 05:18:25
できました。

ありがとうございました。
投稿者 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 01:00:39
>Loadイベントで指定した".Wmv”か".avi"を再生する
というのは、VideoPlay.VbのLoadイベントで".Wmv”か".avi"を再生するということです。
投稿者 KEN  (小学生) 投稿日時 2009/10/11 00:59:40
VBのバージョンは2008です。
投稿者 KEN  (小学生) 投稿日時 2009/10/10 20:33:46
以前
「簡単なMP3プレーヤーを作っています」
というものを質問しましたが、
ファイルを選択した際、
拡張子が".wmv"や".avi"だった場合、
AxWindowsMediaPlayerが配置してあるVideoPlay.vbを開いて、Loadイベントで指定した".Wmv”か".avi"を再生する
というふうにしたいのですが、どうしたらいいのでしょうか?