Visual Basic 中学校 > Visual Basic サンプル集 > Visual Basic サンプル集目次 >
動画ファイルを再生する
以下の例ではAVIファイルとmpegファイルが再生可能。ただしインストールされているCodecにより同じAVIやmpegでも再生できるものとできないものがある場合がある。
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 FunctionPrivate 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 SubPrivate 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 AVIファイルを再生する 参照