Blu*_*303 5 c# vb.net vb6 vb6-migration visual-studio-2012
我有一个vb6 COM对象,我正在转换为VB.Net 2012
我的示例代码如下所示:
Dim ObjContext ,objx ,objy As Object
Dim Rs As ADODB.Recordset
Set ObjContext = GetObjectContext
Set objx =ObjContext.CreateInstance("abc.class1")
Set Objy = ObjContext.CreateInstance("abcde.class2")
Set Rs = objx.getvalue(query)
If Rs.EOF And Rs.BOF Then
ObjContext.SetAbort
Set objx = Nothing
Set ObjContext = Nothing
Set Objy = Nothing
End If
Run Code Online (Sandbox Code Playgroud)
VB 2012中GetObjectContext()和createinstance()的等价物是什么?
我怎样才能从.net中删除这个概念?
试试这个:
我想你想要这个
Dim ObjContext ,objx ,objy As Object
Dim Rs As ADODB.Recordset
Set ObjContext = GetObjectContext
Dim ObjContext As COMSVCSLib.ObjectContext
Dim objAppServer As New COMSVCSLib.AppServer
ObjContext = objAppServer.GetObjectContext()
Set objx =ObjContext.CreateInstance("abc.class1")
Set Objy = ObjContext.CreateInstance("abcde.class2")
Set Rs = objx.getvalue(query)
If Rs.EOF And Rs.BOF Then
ObjContext.SetAbort
Set objx = Nothing
Set ObjContext = Nothing
Set Objy = Nothing
End If
Run Code Online (Sandbox Code Playgroud)