- Home
·
- Sound/MP3
·
- Plays an AVI on a form without using any ocx control.
Plays an AVI on a form without using any ocx control.
Plays an AVI on a form without using any ocx control.
Rate Plays an AVI on a form without using any ocx control.
(2(2 Vote))
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
Plays an AVI on a form without using any ocx control. Comments
No comments yet — be the first to post one!
Post a Comment