luckie
asked on
How to play quicktime movies in VB6?
The multimedia control can't do this. Could anyone suggest some others? Thanks...btw, I don't want to see the control panel like the one in the multimedia control, I just need to simply play the movie in a picturebox...
Bye
Jack
Bye
Jack
ASKER
Private Sub Form_Load()
MMControl1.FileName = "C:\butterfly.mpg"
MMControl1.hWndDisplay = Picture1.hWnd
MMControl1.Command = "Open"
MMControl1.Command = "Play"
MMControl1.Notify = True
MMControl1.Visible = False
End Sub
Private Sub MMControl1_PlayCompleted(E rrorcode As Long)
MMControl1.From = 0
MMControl1.Command = "Close"
MMControl1.Command = "Open"
MMControl1.Command = "Play"
End Sub
BTW, I want to loop the movie. How do I make the above work properly?
thx
MMControl1.FileName = "C:\butterfly.mpg"
MMControl1.hWndDisplay = Picture1.hWnd
MMControl1.Command = "Open"
MMControl1.Command = "Play"
MMControl1.Notify = True
MMControl1.Visible = False
End Sub
Private Sub MMControl1_PlayCompleted(E
MMControl1.From = 0
MMControl1.Command = "Close"
MMControl1.Command = "Open"
MMControl1.Command = "Play"
End Sub
BTW, I want to loop the movie. How do I make the above work properly?
thx
ASKER CERTIFIED SOLUTION
membership
This solution is only available to members.
To access this solution, you must be a member of Experts Exchange.
ASKER
Sorry, What I really need is not source code, I need a library component like the microsoft multimedia controls
Thanks
Jack
Thanks
Jack
ASKER
MMControl1.FileName = "C:\butterfly.mpg"
MMControl1.hWndDisplay = Picture1.hWnd
MMControl1.Command = "Open"
MMControl1.Command = "Play"
MMControl1.Notify = True
MMControl1.Visible = False
End Sub
Private Sub MMControl1_PlayCompleted(E
MMControl1.From = 0
MMControl1.Command = "Close"
MMControl1.Command = "Open"
MMControl1.Command = "Play"
End Sub
BTW, I want to loop the movie. How do I make the above work properly?
thx