如何判断是否本机存在这个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