首页 诗词 字典 板报 句子 名言 友答 励志 学校 网站地图
当前位置: 首页 > 教程频道 > 开发语言 > VB >

怎么判断是否本机存在这个com类

2012-01-10 
如何判断是否本机存在这个com类我有以下语句生成com对象的实例,但是这个MessengerAPI.Messenger类必须安装

如何判断是否本机存在这个com类
我有以下语句生成com对象的实例,但是这个MessengerAPI.Messenger类必须安装msn之后才会有的,我该如何判断是否存在这个com类呢?这样我就能给客户相应的提示了。谢谢
        Set   m_MSG   =   New   MessengerAPI.Messenger

[解决办法]
使用错误处理。

Private Sub Command1_Click()

On Error Resume Next

Dim objTmp As Object

Set objTmp = CreateObject( "MessengerAPI.Messenger ")

If Err.Number = 429 Then
MsgBox "创建 COM 对象失败。 ", vbCritical, App.Title
End If

End Sub

热点排行