哪位高人能指点一下，关于在VB中QuickTime控件的使用方法呀！！急！！！

Question

问题在：
http://community.csdn.net/Expert/topic/3741/3741675.xml?temp=2.447146E-02
分统一给！！！

Answer 1

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

Answer 2

想不到 VB 程序员这么爱顶:)万众一心，很团结嘛；看看下面这些有用吗？
Links for REALbasic doumentation:
http://highspeed.realsoftware.com/Version5/REALbasicQuickStart.zip
http://highspeed.realsoftware.com/Version5/REALbasicTutorial.zip
http://highspeed.realsoftware.com/Version5/REALbasicUsersGuide.zip
http://highspeed.realsoftware.com/Version5/REALbasicLanguageReference.zip
Subscribe to REAL Software sponsored mailing lists:
mailto:[email protected]
mailto:[email protected]
Mailing list archives:
http://support.realsoftware.com/listarchives/search.php
Support and Feedback:
http://support.realsoftware.com/feedback/
Online tutorials and other resources:
http://www.applelinks.com/rbu/
http://www.ResExcellence.com/realbasic/
http://mac.oreilly.com/news/realbasic_0901.html
http://www.rbgarage.com/links/
Download QuickTime for Windows:
http://www.apple.com/quicktime/download/
Quesa Web Page:
http://www.quesa.org/

Answer 3

该问题已经结贴？
mndsoft 这样也行？佩服！写的和 Media Player 有区别吗？
App.Path？VB6 的？嘿嘿，代码错了
dim filehdpath as string
if len(App.Path) < 4 then
filehdpath = App.Path & "movie.mov"
else : filehdpath = App.Path & "\movie.mov"
end if
要么就加上 on error …