有没有真正自动注册并引用Activex控件的代码

tmtony

有没有真正自动注册并引用Activex控件的代码?
虽然论坛上有很多这类型的代码,但因为MDE在客户机器还未安装有相应控件时, 自动注册的VBA代码本身运行就会出错
所以实际上要再一次打开程序, 注册才能成功
有没有更好的解决方法, 请高手讨论

andymark

这里有另一种方法，没真正测试过

'ActtiveX控件都有DllRegisterServer和
'DllUnregisterServer两个输出函数
'点击Command2反注册Threed32.Ocx控件，在VB菜单中选
'Project|components或按Ctrl+T，在控件列表框中可以看
'到已经没有Threed32.Ocx了。再运行程序，点击Command1
'重新注册控件。


Private Declare Function RegComCtl32 Lib "Threed32.OCX" _
        Alias "DllRegisterServer" () As Long
Private Declare Function UnRegComCtl32 Lib "Threed32.OCX" _
        Alias "DllUnregisterServer" () As Long
Private Declare Function FormatMessage Lib "kernel32" _
        Alias "FormatMessageA" (ByVal dwFlags As Long, _
        lpSource As Any, ByVal dwMessageId As Long, _
        ByVal dwLanguageId As Long, ByVal lpBuffer _
        As String, ByVal nSize As Long, Arguments As _
        Long) As Long
Private Declare Function GetLastError Lib "kernel32" () As Long

Const ERROR_SUCCESS = &H0

Private Sub Command1_Click()
    Dim astr As String
   
    '注册Threed32.Ocx
    If RegComCtl32 = ERROR_SUCCESS Then
        MsgBox "注册成功"
    Else
        astr = String$(256, 20)
        FormatMessage FORMAT_MESSAGE_FROM_SYSTEM Or _
            FORMAT_MESSAGE_IGNORE_INSERTS, 0&, GetLastError, _
            0&, astr, Len(astr), ByVal 0
        MsgBox astr
    End If
End Sub

Private Sub Command2_Click()
    Dim astr As String
   
    '反注册Threed32.Ocx
    If UnRegComCtl32 = ERROR_SUCCESS Then
        MsgBox "反注册成功"
    Else
        astr = String$(256, 20)
        FormatMessage FORMAT_MESSAGE_FROM_SYSTEM Or _
            FORMAT_MESSAGE_IGNORE_INSERTS, 0&, GetLastError, _
            0&, astr, Len(astr), ByVal 0
        MsgBox astr
    End If
End Sub

water_buffalo

学习，还没有接触到这一块的内容。

tmtony

谢谢 andymark兄代码.
我说错了, 应该是Access自动引用 的问题,  即自动在引用中添加 控件的引用
因为如果自动引用代码是程序自己运行时, 但此时控件并未正常引用, 所以MDE代码执行时就有错.

hhcatv068

太复杂

bonesoup

可用一个不含控件的临时的启动窗体运行引用代码。然后再把启动窗体设置为MAIN，这样不会报错。