ヘッダー

VB.NET2002対応 VB.NET2003対応 VB2005対応

 

Visual Basic 中学校 > VB.NET サンプル >

動画ファイルを再生する

以下の例ではAVIファイルとmpegファイルが再生可能。ただしインストールされているCodecにより同じAVIやmpegでも再生できるものとできないものがある場合がある。

VB.NET2002対応 VB.NET2003対応 VB2005対応

Private Declare Ansi Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As Integer, ByVal hwndCallback As Integer) As Integer
Const FileName As String = """C:\winnt\clock.avi"""
Public Function SendString(ByVal cmdString As String) As Long

   
SendString = mciSendString(cmdString, "", 0, 0)

End
Function
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

    SendString(
"open " & FileName)
    SendString("window " & FileName & " handle " & Me.Handle.ToString)
    SendString(
"play " & FileName)

End
Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

    SendString(
"close " & FileName)

End
Sub

この例ではButton1をクリックすると再生、Button2をクリックすると停止する。

 


VB6対応 VB6では VB6 AVIファイルを再生する 参照