7,762
社区成员
发帖
与我相关
我的任务
分享AGENT这样用错误在哪里?
我需要在一个程序中示范AGENT的用法.下面是我的程序代码的一部分,引用AGENT库也正常,但还在窗体加载过程就报告出错.请高手们帮助诊断问题在哪里?
Dim MSAgent As Agent
Dim genie As IAgentCtlCharacterEx
Private Sub Form_Load()
Set MSAgent = Agent.Characters.Load "genie", "c:\windows\msagent\chars\genie.acs")
set genie = MSAgent.Characters("genie")
genie.Left = 500
genie.Show
End Sub
Dim MSAgent As Agent
Dim genie As IAgentCtlCharacterEx
Private Sub Form_Load()
Set MSAgent = Agent.Characters.Load "genie", "c:\windows\msagent\chars\genie.acs")
set genie = MSAgent.Characters("genie")
genie.Left = 500
genie.Show
End Sub
...全文
请发表友善的回复…
发表回复
wushigang 2004-04-12
- 打赏
- 举报
笨啦！好好学吧，努力加把劲
lidaixiang 2004-04-12
- 打赏
- 举报
谢谢,倒数第二楼的方法是对的,一下子就灵了,分当然得多多地给.楼上的这位老兄取笑我,分嘛,当然也得给.
tztz520 2004-04-09
- 打赏
- 举报
Dim MSAgent As NEW Agent
lidaixiang 2004-04-09
- 打赏
- 举报
一个上午过去了,还没有朋友帮助解决,真让人伤心.我知道这里的高手挺多的,如果觉得分不够,可以提出来.
northwolves 2004-04-09
- 打赏
- 举报
首先往窗体添加部件MICROSOFT AGENT CONTROL 2.0
Dim genie As IAgentCtlCharacterEx
Private Sub Form_Load()
Agent1.Characters.Load "genie", "c:\windows\msagent\chars\genie.acs"
set genie = Agent1.Characters("genie")
genie.Left = 500
genie.Show
End Sub
Dim genie As IAgentCtlCharacterEx
Private Sub Form_Load()
Agent1.Characters.Load "genie", "c:\windows\msagent\chars\genie.acs"
set genie = Agent1.Characters("genie")
genie.Left = 500
genie.Show
End Sub
lidaixiang 2004-04-09
- 打赏
- 举报
Dim MSAgent As NEW Agent______编译程序认为是无效使用NEW关键字.
把这行字去掉:Dim MSAgent As Agent______编译程序提示要求对象
还是无法解决!苦闷!!1
把这行字去掉:Dim MSAgent As Agent______编译程序提示要求对象
还是无法解决!苦闷!!1
wushigang 2004-04-09
- 打赏
- 举报
你要在窗体上放一个Agent控件
然后把这行字去掉:Dim MSAgent As Agent
然后把这行字去掉:Dim MSAgent As Agent
