如何不直接添加控件(即只用代码)而能使用wmplayer 和 realplayer？

Question

我在做一个简易的网络收音机，要用到wmplayer 和 realplayer，但有不想直接通过“部件”的方法直接使用控件，而是用代码来引用。
如果直接使用这两者的控件，在未安装的机子上程序的主界面还没看到就出错。我想让程序在遇到此类情况时弹出警告提示，而不是直接就程序崩溃。

Answer 1

启动主窗体前先用CreateObject尝试创建一下对象看看.成功就证明有,失败就证明没有或不正常:dim I as objectset i=createobject("WMPLibCtl.WindowsMediaPlayer")if i is nothing then
    msgbox "没有"
else
    msgbox "OK"
end if
对象所在库的查看,引用对象后按F2在对象浏览器里找.

Answer 2

To myjian :
跳出警告：ActiveX 部件不能创建对象

Answer 3

......晕,我只是打个比方,你要换上正确的类名啊.createobject("MediaPlayer.MediaPlayer")帮你找了一下REALPLAY我没装,你自己找找类名吧.不要太懒.

Answer 4

我很菜啊 又有疑问了：
1.如何找类名
2.我使用creatobject创建了对象后，怎么能够控制这个对象的一些属性呢

Answer 5

我也不知道.......我是搜索到的类名.平时这样用法很少,所以估计研究的人不会太多.....不过可以用一个偏方,就是把你的控件放在另一个窗体上,而主窗体上只有标准控件.然后在Load另一窗体时用On error goto来捕捉错误:Private Sub Command1_Click()
    On Error GoTo ErrHandle
    
    Load Form2     'Form2里面放了那些不确定有还是没有的控件
    MsgBox "OK"
    Unload Form2   '没出错就证明有
    
    Exit Sub
ErrHandle:
    MsgBox Err.Description
End Sub代码测试通过........

Answer 6

To myjian:
谢谢你的耐心指教。我到处提问，回答的人却不多，用搜索也好难找，看来是比较少的人研究。这种曲折救码的方法值得也不失为一种好方法
为了看看有没有更佳的方法，我还是再等等看再结贴散分。Thank you! 

Answer 7

主要是这种用法比较少见,一般来说直接在软件说明文档里讲明所要求的运行环境即可,没必要费这力气这么折腾.没见到很多软件都在其下载页说明了"本软件运行需要XXXXX的支持,点此下载"之类的吗.你这个需求我就只能想到这两种方案,剩下的就是等待有研究过的朋友来折腾啦:)