注册OCX控件的函数

时　间:2016-03-15 22:32:26
作　者:在水一方   ID：20576  城市：沈阳
摘　要:我们做工程经常会遇到使用第三方控件的情况，ocx控件必须先注册才能使用，可以在系统加载时利用下面的函数“自动”注册控件，方便我们发布使用控件。
正　文:

Function RegOCX(ocxObj As String, filePath As String) As Long    '注册控件
'    On Error Resume Next
    Dim OcxReg1 As String, OcxReg2 As String
    Dim RetVal As Long
    OcxReg1 = filePath & "\" & ocxObj  '判断目标文件是否存在
    OcxReg2 = "C:\WINDOWS\system32\" & ocxObj    '判断来源文件是否存在
    '    MsgBox OcxReg1 & OcxReg2
    If Dir(OcxReg1) = "" Then
        MsgBox OcxReg1 & " 不存在，无法正常注册控件。", , "控件来源"
    Else
        FileCopy OcxReg1, OcxReg2
        If Dir(OcxReg2) = "" Then
            MsgBox " 控件未能正确复制，无法注册控件。", , "控件目标"
        Else
            RetVal = Shell("regsvr32.exe /s " & ocxObj, 1)
            If RetVal = 0 Then
                MsgBox "无法完成自动注册，您需要手动注册【" & ocxObj & "】这个控件，请联系管理员！", , "系统提示"
                Kill OcxReg2
            Else
                MsgBox "控件【" & ocxObj & "】注册成功！", , "系统提示"
                RegOCX = 1
            End If
        End If
    End If
End Function


Access软件网官方交流QQ群 (群号:54525238) 　　　　　　Access源码网店