マルチメディア
5.AVIを再生する
以下の例を実行するにはフォームにコマンドボタンを2つとピクチャーボックスを1ち配置する。また、AVIのファイル名はちゃんと存在するものを指定すること。
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 = """D:\winnt\clock.avi"""
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
メモ:AVIのファイル名は必ず3つのダブルクォーテーションでくくること。これは文字列中にダブルクォーテーションを含む必要があるため。
なお、同じ方法でMPEGも再生できる。