COM是个大垃圾!!
书上(MS press Distributed Application for Microsoft Visual Basic 6.0 MSCD Training Kit for Exam 70-175)说”the context is not available in the Initialize and Terminate events. 。。。To utilize the context object during initialization or shutdown,implement the ObjectControl interface in your class“但实际上我在Class_Initialize中写下如下代码后,调用该对象时得到的是” Context Object is not available in Class_Initialize”???
Private Sub Class_Initialize()
Dim oc As ObjectContext
Set oc = GetObjectContext()
If oc Is Nothing Then
MsgBox "Context Object is not available in Class_Initialize"
Else
MsgBox "Context Object is available in Class_Initialize"
End If
End Sub
该类并没有实现ObjectControl接口.
我的测试环境是:windows 2000 advance server(ver 2195,sp1)+vb6中文企业版(sp4)