这段代码，为什么在第一次加载的时候会出错？

wjfling 发表于 2003-10-30 11:31:00

这段代码，为什么在第一次运行VBA的时候会出错(类型不匹配)，以会就没这种情况了。

wjfling 发表于 2003-10-30 11:34:00

topirol 发表于 2003-10-30 11:38:00

没有注册cad目录下的vl.tlb吧,用下面函数注册看看

来源：明经通道　作(译)者：郑立楷　
上传者：mccad 　上传时间：2003-5-3
Function AutoRegFile(FileName As String)
Dim reged As Boolean
Dim RegFile1 As String
Dim RegFile2 As String
Dim BeReg As String
Dim RetVal
BeReg=Dir(FileName)
If BeReg<>"" then
RegFile1 = Environ("windir") & "\system\regsvr32.exe "
RegFile2 = Environ("windir") & "\system32\regsvr32.exe "
If Dir(RegFile1) <> "" Or Dir(RegFile2) <> "" Then
   If Dir(RegFile1) <> "" Then
         RegFile1 = RegFile1 & "/s" & " " & BeReg
         RetVal = Shell(RegFile1, 1)
   Else
         RegFile2 = RegFile2 & "/s" & " " & BeReg
         RetVal = Shell(RegFile2, 1)
   End If
Else
   MsgBox "找不到regsvr32.exe文件，你可能无法使用本软件！", vbCritical, "无法自动注册控件"
End If
Else
MsgBox "找不到控件文件！", vbCritical, "无法自动注册控件"
End If
End Function
功能
自动注册控件
语法
(AutoRegFile FileName)
参数
FileName:文件名，必须包含路径

gyl 发表于 2003-10-30 13:30:00

vl.tlb需要手工注册吗？

efan2000 发表于 2003-10-30 18:39:00

如果有安装过VL，并且VL的编辑环境可以正常打开的话，那么应该已经注册。

页: [1]

明经CAD社区's Archiver

这段代码，为什么在第一次加载的时候会出错？