Option Explicit'是否显示按钮 Private Sub Check1_Click() QTActiveXPlugin1.SetControllerVisible Check1.Value End Sub'播放 Private Sub Command1_Click() QTActiveXPlugin1.Play End Sub'停止播放 Private Sub Command2_Click() QTActiveXPlugin1.Stop End SubPrivate Sub Command3_Click() QTActiveXPlugin1.Rewind End Sub'加载.mov文件 Private Sub Command4_Click() QTActiveXPlugin1.SetURL (App.Path & "\movie.mov") End Sub
http://search.csdn.net/Expert/topic/1311/1311647.xml?temp=.4109918
Private Sub Check1_Click()
QTActiveXPlugin1.SetControllerVisible Check1.Value
End Sub'播放
Private Sub Command1_Click()
QTActiveXPlugin1.Play
End Sub'停止播放
Private Sub Command2_Click()
QTActiveXPlugin1.Stop
End SubPrivate Sub Command3_Click()
QTActiveXPlugin1.Rewind
End Sub'加载.mov文件
Private Sub Command4_Click()
QTActiveXPlugin1.SetURL (App.Path & "\movie.mov")
End Sub