• 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.

• 1
• 2
• 3
• 4
• 5

(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