标题:求哪位编程高手帮我看下下面这段vb代码为何会报错
只看楼主
btt6
Rank: 2
等 级:论坛游民
帖 子:46
专家分:10
注 册:2016-8-13
结帖率:47.83%
已结贴  问题点数:20 回复次数:4 
求哪位编程高手帮我看下下面这段vb代码为何会报错
有个应用程序放在下面这个目录里(C:\Users\Administrator\Desktop\HideGhost-v2.6.6\HideGhost 2.6.6) 我想把它作为对象引用,下面这行vb代码为何会报错,应该怎么写呢?

Private Sub Command1_Click()
Dim CADObject As Object
CADObject = GetObject("C:\Users\Administrator\Desktop\HideGhost-v2.6.6\HideGhost 2.6.6")
End Sub
搜索更多相关主题的帖子: 编程高手 应用程序 Desktop Users 
2016-08-13 13:42
xiangyue0510
Rank: 14Rank: 14Rank: 14Rank: 14
等 级:贵宾
威 望:86
帖 子:934
专家分:5244
注 册:2015-8-10
得分:10 
根据你的说明,你给一个目录C:\Users\Administrator\Desktop\HideGhost-v2.6.6\HideGhost 2.6.6 创建了一个对象实例。这个没有见过,应该是不行的。
另外,VB中的引用不会是一个打包好的应用程序的,而是一个对象(DLL文件)。对象会有属性、方法、子对象这些东西,下面是Microsoft Excel9.0 Object Library的对象模型的简图。

其代码也是这样的
程序代码:
Dim xlApp As Excel.Application  
Dim xlBook As Excel.WorkBook  
Dim xlSheet As Excel.Worksheet 
Set xlApp = CreateObject("Excel.Application") '创建EXCEL对象   
Set xlBook = xlApp.Workbooks.Open("文件名")  '一级子对象 
xlApp.Visible = True 
Set xlSheet = xlBook.Worksheets("表名") '二级子对象
xlSheet.Cells(row, col) =值 
xlSheet.PrintOut '打印工作表  
xlBook.Close (True) '关闭工作簿  
xlApp.Quit '结束EXCEL对象   
Set xlApp = Nothing '释放xlApp对象

VB中创建对象正常的做法是,一般都是在“工程-引用”中添加引用之后才可以使用的。 然后用GetObject或者CreateObject获得对象的。

如果只是运行这个Exe程序,可以使用Shell命令


[此贴子已经被作者于2016-8-13 17:04编辑过]

2016-08-13 17:03
btt6
Rank: 2
等 级:论坛游民
帖 子:46
专家分:10
注 册:2016-8-13
得分:0 
麻烦再帮我解答一个疑问,getobject()这个函数里,PathName这个参数用零长度字符串 (""),和省略这个参数有什么区别,msdn里关于这部分的解释看不太明白,求哪位好心人可以给个小例子。还有,msdn上说如果省略 PathName 参数,则 GetObject 返回在 Class 中指定的类类型的当前活动对象。,它这个当前活动对象是什么意思,
2016-08-14 08:49
Artless
Rank: 19Rank: 19Rank: 19Rank: 19Rank: 19Rank: 19
等 级:贵宾
威 望:103
帖 子:4211
专家分:28888
注 册:2009-4-8
得分:10 
以下是引用btt6在2016-8-14 08:49:44的发言:

麻烦再帮我解答一个疑问,getobject()这个函数里,PathName这个参数用零长度字符串 (""),和省略这个参数有什么区别,msdn里关于这部分的解释看不太明白,求哪位好心人可以给个小例子。还有,msdn上说如果省略 PathName 参数,则 GetObject 返回在 Class 中指定的类类型的当前活动对象。,它这个当前活动对象是什么意思,

我的理解它必须已启动

无知
2016-08-21 00:13
pengzhanggui
Rank: 5Rank: 5
等 级:职业侠客
威 望:8
帖 子:161
专家分:344
注 册:2015-7-20
得分:0 
回复 2楼 xiangyue0510
说明得相当好啊

来找我试试看
2016-08-23 16:14



参与讨论请移步原网站贴子:https://bbs.bccn.net/thread-467823-1-1.html




关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.374848 second(s), 8 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved