社区 › VB › 求助vba转vb6.0！

zz0147 发表于 2012-12-10 18:54:00

求助vba转vb6.0！

初学cad开发没有多久，特来向各位高手求助。
一下是vba的语句：
Set VL = ThisDrawing.Application.GetInterfaceObject("VL.Application.1")
我想把它转为vb6.0的，可是怎么写都获取不到对象，我肯定是写错的了，恳请给位高手，给看看。
谢谢了。

zz0147 发表于 2012-12-10 18:57:00

我在群里问了一下，可能是我的水平太低了，高手都没有说

zz0147 发表于 2012-12-11 09:44:00

是不是vb6.0没有人用了，谁能帮忙解决了，给予2个乐筑天下币的答谢。

nikkyu 发表于 2012-12-14 13:49:00

Set VL = acadApp.GetInterfaceObject("VL.Application.1")

nikkyu 发表于 2012-12-14 13:57:00

版本号不同这个语句不一样
Case "15"      
Set VL = acadApp.GetInterfaceObject("VL.Application.1")      
Case "16", "17"      
Set VL = acadApp.GetInterfaceObject("VL.Application.16")

zz0147 发表于 2012-12-17 19:44:00

不知道问题在哪里，我用前也发送命令了。可是还是不行。。。

查看完整版本: 求助vba转vb6.0！