请问: tlb 档该如何注册

fatcoder 2003-10-20 05:44:12
我用regsvr32 aaa.tlb
出错,说不能注册这个类型
...全文
148 5 打赏 收藏 转发到动态 举报
写回复
用AI写文章
5 条回复
切换为时间正序
请发表友善的回复…
发表回复
guanchen 2003-10-22
  • 打赏
  • 举报
回复
up
fatcoder 2003-10-21
  • 打赏
  • 举报
回复
up一下
bbe 2003-10-21
  • 打赏
  • 举报
回复
'vbAccelerator vbRegTypeLib
---------------------------------------------------------------


Private Type GUID
Data1 As Long
Data2 As Integer
Data3 As Integer
Data4(0 To 7) As Byte
End Type
Private Enum eSYSKIND
SYS_WIN16 = 0&
SYS_WIN32 = 1&
SYS_MAC = 2&
End Enum

Private Declare Function LoadTypeLib Lib "oleaut32.dll" ( _
pFileName As Byte, pptlib As Object) As Long
Private Declare Function RegisterTypeLib Lib "oleaut32.dll" ( _
ByVal ptlib As Object, szFullPath As Byte, _
szHelpFile As Byte) As Long
Private Declare Function UnRegisterTypeLib Lib "oleaut32.dll" ( _
libID As GUID, _
ByVal wVerMajor As Integer, _
ByVal wVerMinor As Integer, _
ByVal lCID As Long, _
ByVal tSysKind As eSYSKIND _
) As Long

Public Function RegTypelib(sLib As String, ByVal bState As Boolean) As Long
Dim suLib() As Byte
Dim errOK As Long
Dim tlb As Object
If bState Then
' Basic automatically translates strings to Unicode Byte arrays
' but doesn't null-terminate, so you must do it yourself
suLib = sLib & vbNullChar
' Pass first byte of array
errOK = LoadTypeLib(suLib(0), tlb)
If errOK = 0 Then
errOK = RegisterTypeLib(tlb, suLib(0), 0)
End If
RegTypelib = errOK

End If

End Function

Public Function UIRegisterTypeLib(ByVal sLib As String, ByVal bState As Boolean, ByVal bShowMessage As Boolean) As Boolean
Dim errNo As Long
Dim sPre As String

errNo = RegTypelib(sLib, bState)
If bShowMessage Then
If bState Then
sPre = "Register Type Library "
Else
sPre = "Unregister Type Library "
End If
If errNo = 0 Then
MsgBox sPre & sLib & " succeeded.", vbInformation
Else
MsgBox sPre & sLib & " failed: the error returned was " & Hex$(errNo), vbCritical
End If
End If
UIRegisterTypeLib = (errNo = 0)
End Function
fatcoder 2003-10-21
  • 打赏
  • 举报
回复
写了一个Active exe文件,需要远程调用,
因此生成了一个.TLB文件,
但在客户端用regsvr32 注册时,
却出现了不支持的注册类型的错误.

请高手指点,该如何解决,
fatcoder 2003-10-21
  • 打赏
  • 举报
回复
up

1,502

社区成员

发帖
与我相关
我的任务
社区描述
VB 网络编程
社区管理员
  • 网络编程
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧