社区 › VB › 关于vb的若干问题

mikewolf2k 发表于 2004-4-28 21:06:00

关于vb的若干问题

1.连接cad的代码:
Sub linkacad(acadapp)
                       On Error Resume Next
                       Set acadapp = GetObject(, ".application")
                       If err Then
                                                       err.Clear
                                                       Set acadapp = CreateObject("AutoCAD.application")
                                                       If err Then
                                                                                       MsgBox ("不能运行AutoCAD 2000，请检查是否安装了AutoCAD 2000")
                                                                                       Exit Sub
                                                       End If
                       End If
                       acadapp.Visible = True
End Sub
经我测试,好像在装有多个版本的cad时,连接的是R14的cad,而R14不支持vba(编译成dll调用也不行),因此会出错,请问有办法能让它连接其它版本的cad么(2000及以上)
2.用vb5编译成dll,cad2000和2002下工作正常,2004下不正常,请问该如何修改?
3.office2000的宏,在office2000和office xp下运行正常,office97下需要做些什么修改?
4.开发好的软件如何制作安装包?只需完成拷贝文件到指定目录和注册dll文件功能.
谢谢

efan2000 发表于 2004-4-29 11:50:00

1、指定版本号：R2000，AutoCAD.application.15；R2004，AutoCAD.application.16。
2、可能是VB的支持库存在版本不一致的问题，最好在R2004下跟踪调试。
3、使用Office97支持的函数，它是向前兼容的。
4、有专门的第三方安装制作工具，可以用它来打包发布。

mikewolf2k 发表于 2004-4-29 18:56:00

多谢多谢.继续发问:
1.2000和2002都是application.15吗?如果用户装了多个版本,怎样判断用户已经打开的是那个版本?这段代码能否改为连接到当前打开了的cad?
2.3,通过在其它版本上运行源程序,看什么地方出错的方法可行吧?源代码应该不需大变吧?
4.有没有用过的,推荐一下.
谢谢.

hitlelq 发表于 2005-6-1 17:26:00

1、指定版本号：R2000，AutoCAD.application.15；R2004，AutoCAD.application.16
好象加了.15，.16也不行！

y1982_0 发表于 2005-7-21 19:07:00

顶，这个问题解决了吗？我也遇到这个问题了？

查看完整版本: 关于vb的若干问题