打造自己的CreateObject函数（VB）

vb Code

在CreateObject调用之前，先调用CreateObjectEx函数

下面实现，这样可以知道我们的Class参数是否能创建成功！！！

Type CLSID

Data1 as long

Data2as Integer

Data3 as Integer

Data(7) as byte

end Type

public declare Function CLSIDFromProgID lib "Ole32.dll" (Byval lpszProgID as long,pClsid as CLSID) as long

public Function CreateObjectEx(Class as string) as object

'--注意最好写上

on error goto ErrHandler

dim myclsid as CLSID

dim lngRet as long

dim Obj

lngRet = CLSIDFromProgID(strptr(Class),myclid)

debug.printHex(myclid.Data1)

debug.printHex(myclid.Data2)

debug.printHex(myclid.Data3)

debug.printHex(myclid.Data(0)) & Hex(myclid.Data(1)) & Hex(myclid.Data(2)) & Hex(myclid.Data(3)) & vbcrlf

debug.printHex(myclid.Data(4)) & Hex(myclid.Data(5)) & Hex(myclid.Data(6)) & Hex(myclid.Data(7)) & vbcrlf

'--如果打印出来的全是0，说明我们CreateObject的组件在系统中不存在或者被破坏了

if xxx=0 and xx=00....then

'----Error!!!

else

debug.print "--ok" & vbcrlf

Set Obj = CreateObject(Class)

set CreateObjectEx = obj

end if

set obj = nothing

Exit Function

ErrHandler:

msgbox err.number & vbcrlf & err.description

debug.print "---Error!" & vbcrlf

end function

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!