用VB新建一个标准EXE文件,按Ctrl+T热键打开"部件"窗口,从中选中Microsoft Agent Control 2.0,并将其新添加的图标从工具栏添加到窗体,之后就可以象使用其他Active X控件一样使用它了,其主要属性有Connected、Index、Left、RaiseRequestError、Tag、Top等,均取其缺省值即可。使用时先将.acs文件装载,然后将其显示并按规定的动作播放即可,首先定义COM接口IAgentCtlCharacterEx和IAgentCtlRequest的对象:
Dim Dot0 As IAgentCtlCharacterEx Dim AgentRequest As IagentCtlRequest
然后通过Set语句对其进行设置:
Set AgentRequest = Agent1.Characters.Load("Dot0", "C:\.Logo.acs") Set Dot0 = Agent1.Characters.Character("Dot0")
我的qq:86779363能给我一份吗?
[email protected]
Agent在win2000中已经内置,无需安装。
使用Agent还需要下载一些角色文件(当然使用安装时自带的角色也行墨林就是自带的角色)
如果自己制作角色文件推荐使用Poser进行人物动作的制作,速度较快,而且使用简单,但是注意
角色是动画所需要的图形文件大小是有一定规定的
魔法师默林 Merlin.acs 的动作控制命令简介(有一部份可以使用到其它人物中) Acknowiedge Explain LookLeftBlink Searching
答谢 解说 向左眨眼 搜索
Alert GetAttention LookRight StarListening
握双拳警惕 敲击屏幕注意 向右看 注意听
Announce GlanceDown LookRightBlink StopListening
宣布 向下扫视 向右眨眼 停止听
Blink GlanceLeft LookUp Suggest
眨眼 向左扫视 向上看 暗示
Confused GlanceRight LookUpBlink Surprised
烦恼的 向右扫视 向上眨眼 惊讶
Congratulate GlanceUp Pleased Think
祝贺 向上扫视 高兴 思考Decline Greet Processing Uncertain
拒绝 问候 处理 不确定
DoMagic1 LookDown Read Wave
魔法一 向下看 写一次 致意
DoMagic2 LookDownBlink Reading Wrte
魔法二 向下眨眼 反复写 写一次
DontRecognize LookLeft Sad Writing
笠耳听 向左看 忧愁 反复写
在Office里agent是可以有确定取消按钮的
有没有人知道怎么实现?
Dim Dot0 As IAgentCtlCharacterEx
Dim AgentRequest As IagentCtlRequest
然后通过Set语句对其进行设置:
Set AgentRequest = Agent1.Characters.Load("Dot0", "C:\.Logo.acs")
Set Dot0 = Agent1.Characters.Character("Dot0")
剩下的工作就是调用Dot0对象的 Shou函数将其显示以及Play函数对其进行播放,最终用Hide函数将其隐藏即可:
Dot0.Show (0)
Dot0.Play ("Alert")
Dot0.Hide(0)
在此"Alert"就是我们将要播放的动作,类似的动作有诸如LookDown、Wave等等很多种
[email protected]
[email protected]
不装win2000,office2000
有没有人知道怎么实现?
当初查了好多资料都没有找到实现的方法
但是VBA里有产生和定制Agent对话框的按钮的方法
不知道有没有人又在程序里实现的办法
[email protected]
谢谢