Dim objTestObject As Object
On Error GoTo err_handler
Set objTestObject = CreateObject("TestGetObject.ShwMsg")
objTestObject.addnum
MsgBox objTestObject.Number
If Err.Number <> 0 Then
MsgBox "wrong"
Exit Sub
End If
If objTestObject Is Nothing Then
MsgBox "Wrong"
Else
objTestObject.ShwMsg
End If
Set objTestObject = GetObject("", "TestGetObject.ShwMsg")
objTestObject.ShwMsg
Set objTestObject = GetObject(, "TestGetObject.ShwMsg")(这一句出错)
objTestObject.ShwMsg Set objTestObject = Nothing
到底如何提取,当前已经实例化的对象?谢谢!!
On Error GoTo err_handler
Set objTestObject = CreateObject("TestGetObject.ShwMsg")
objTestObject.addnum
MsgBox objTestObject.Number
If Err.Number <> 0 Then
MsgBox "wrong"
Exit Sub
End If
If objTestObject Is Nothing Then
MsgBox "Wrong"
Else
objTestObject.ShwMsg
End If
Set objTestObject = GetObject("", "TestGetObject.ShwMsg")
objTestObject.ShwMsg
Set objTestObject = GetObject(, "TestGetObject.ShwMsg")(这一句出错)
objTestObject.ShwMsg Set objTestObject = Nothing
到底如何提取,当前已经实例化的对象?谢谢!!
解决方案 »
- datagrid控件怎么不能使用鼠标滚轮上下滚动呢?
- [求助]一个解译模块的编写!!!!
- **** 并非老调重弹!是没有好的方案!Row cannot located for updating.Some values may have been changed since it was last read
- 请教
- 如何利用Winsock控件在局域网中传输文件?
- ??? 加急电报
- 请问VB中有没有已经做好的表盘显示时间的控件?
- ?我用win2000Server的证书颁发给自己的控件签名,颁发之后只有一个.cer的文件,但是缺少.pvk私钥文件
- 怎样选中Datagrid某一行的数据,我用的是:Datagrid.datasource=rsdata.
- 送分啦(1000):我的OICQ:33676851:进来都有分:还不快来...先来先得。。。
- 不能在新窗口打开链接??解决马上给分~~~~~
- 100分请教双显示器问题???
第一个必输参数是字符
如果这么GetObject(, "TestGetObject.ShwMsg"),表示提取已经实例化的对象,
如果这么GetObject("", "TestGetObject.ShwMsg"),表示重新创建新的对象,如何理解呢?
我现在就是需要等到一个已经实例化的对象