表紙へ

マルチメディア

6.MPEGを再生する

 

以下の例を実行するにはフォームにコマンドボタンを2つとピクチャーボックスを1ち配置する。また、MPEGのファイル名はちゃんと存在するものを指定すること。

 

Private Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" _
(ByVal lpstrCommand As String, ByVal lpstrReturnString As String, _
ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long

Const FileName As String = """C:\Test.mpeg"""

Private Sub Command1_Click()

    SendString "open " & FileName
    SendString "window " & FileName & " handle " & Picture1.hWnd
    SendString "play " & FileName

End Sub

Private Sub Command2_Click()

    SendString "close " & FileName

End Sub

Public Function SendString(cmdString As String) As Long

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

End Function
 

メモ:MPEGのファイル名は必ず3つのダブルクォーテーションでくくること。これは文字列中にダブルクォーテーションを含む必要があるため。

なお、同じ方法でAVIも再生できる。