VB运行程序总是出现ActiveX控件不能创建对象 - 编程论坛

#2

xzlxzlxzl2016-10-30 21:12

相关dll坏了或没注册。

#3

xiangyue05102016-10-31 08:40

应该是VB没安装好，如果只是个别控件可以找到之后手动注册一下

#4

乔一恒2016-11-04 12:22

回复 3楼 xiangyue0510

Dim AcadApp As AcadApplication

Private Sub Command1_Click()
On Error Resume Next
Set AcadApp = GetObject(, "AutoCAD.Application")
If Err Then
   Err.Clear
   Set AcadApp = CreateObject("AutoCAD.Application")
   If Err Then
   MsgBox Err.Description
   Exit Sub
   End If
   End If
MsgBox "Now running" + AcadApp.Name + "version" + AcadApp.Version
AcadApp.Visible = True
End Sub
这是源程序，一运行就显示ActiveX不能创建对象，都没法进行下面的工作了，求帮忙！

#5

乔一恒2016-11-04 12:28

回复 2楼 xzlxzlxzl

你好，能说的详细点吗

#6

xss_wl2016-11-04 13:13

这个问题涉及到的范围比较广。本人经常也用VB编写一些控制AutoCAD的程序和项目，没有遇见过楼主这样的问题。如果需要，可以考虑远程帮你解决。

#7

初始元灵2016-11-05 11:19

上网下载缺少的控件，放在32位系统扔到System32下

管理员身份运行命令提示符

regsvr32 "缺少控件名".ocx