win10注册控件失败怎么办 (win10注册控件失败怎么办)

DLL文件是应用文件的扩展,就是我们使用的一些应用程序附加的一些功能性文件,某些情况下是必不可少的一些文件。

特别是在VBA开发的时候,仅仅使用Excel提供的一些控件是不能很好地完成我们的需要的,那么就用扩展其它功能来丰富我们的应用操作。

本节介绍一下,如何注册DLL文件,当然了,并不仅仅适用于VBA控件注册,其它Windows系统控件注册都适用,本质上是一个很简单的小工具,只不过是在Excel平台下操作。

下图为操作界面

电脑

可以看到界面中并没有什么特别的内容,一个组合框,三个按钮。

组合框里自动搜索出电脑某一目录中的Dll文件,这个是自动进行,"选择目录"按钮可以打开文件对话自定义要搜索的文件夹。

注册和注销两个按钮分别进行DLL文件的注册和注销。

示例图中注册了一个名为:CheckDate.dll的文件。

接下来,看一下代码。

整个过程中重要代码只有两行,附加的一些代码就比较多了,其实没有意义,也有一些意义。

意义在于实现一些本来知道但操作人并不知道的一些过程。

下面这个过程就是获取某目录下的Dll文件过程:

Private Function getDllName(xPath As String) Dim dArr(), di As Integer Dim dllName As String If VBA.Len(xPath) = 0 Then xPath = ThisWorkbook.Path dllName = Dir(xPath & "\*.Dll", vbNormal) If dllName = "" Then ReDim dArr(0) dArr(0) = "电脑;" getDllName = dArr Exit Function Else ReDim Preserve dArr(di) dArr(di) = dllName End If Do While dllName <> dArr(0) di = di + 1 dllName = Dir(ThisWorkbook.Path & "\*.Dll", vbNormal) DoEvents MsgBox dllName Stop Loop getDllName = dArr Erase dArrEnd Function

注册过程代码

'注册控件Sub login(dllName As String) Shell "regsvr32 /s " & Chr(34) & ThisWorkbook.Path & "\" & dllName & Chr(34)End Sub

注销过程代码

'注销控件 注意/u 后面加空格Sub unlogin(dllName As String) Shell "regsvr32 /s /u " & Chr(34) & ThisWorkbook.Path & "\" & dllName & Chr(34)End Sub

注册按钮代码

Private Sub CommandButton1_Click()Dim dllName As StringdllName = VBA.Trim(Me.ComboBox1.Value)If 电脑VBA.Len(dllName) = 0 Then Exit Sublogin dllNameMsgBox "注册成功!", vbInformation, "成功"End Sub

注销按钮代码

Private Sub CommandButton2_Click()Dim dllName As StringdllName = VBA.Trim(Me.ComboBox1.Value)If VBA.Len(dllName) = 0 Then Exit Subunlogin dllNameMsgBox 电脑 "注销成功!", vbInformation, "成功"End Sub

总得来说,如果对Dll文件功能有一些了解,那么使用这个工具真的很省心,不信可以试试。

如果没有对控件引用有一定的了解,可能就不知所云了,不过没关系,当某一天突然学到这个地步的时候,会恍然大悟,原来如此。

人生就是从一个又一个未知到一个又一个明白的过程,当明白昨天的努力,只不是今天低头沉思后的微笑的时候,说明昨天的无知真的是一件很快乐的事情。

欢迎关注、收藏

---END---


电脑 电脑