 |
TJ_01 Level: VB Lord

 Registered: 24-08-2005 Posts: 320
|
Re: play avi file inside form
I hope this code helps..
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
Private Sub Form_Click()
Dim Ret As Long, A$, x As Integer, y As Integer
x = 0
y = 0
A$ = "C:\Windows\Movie.avi" 'Change the path and filename
Ret = mciSendString("stop movie", 0&, 128, 0)
Ret = mciSendString("close movie", 0&, 128, 0)
Ret = mciSendString("open AVIvideo!" & A$ & " alias movie parent " & Form1.hWnd & " style child", 0&, 128, 0)
Ret = mciSendString("put movie window client at " & x & " " & y & " 0 0", 0&, 128, 0)
Ret = mciSendString("play movie", 0&, 128, 0)
End Sub
Private Sub Form_Terminate()
Dim Ret As Long
Ret = mciSendString("close all", 0&, 128, 0)
End Sub |
____________________________
Im JAMES
|
|
24-08-2005 at 07:54 AM |
|
|
|
|
 |
 |