ms agent 求救？？？

[javaTNT]

那位大哥，大姐用过ms agent ，请问如何实现象office中点击一下agent（如海豚，机器人。。。）
提示搜索的那种效果？？？？

[viena]

up

[行云边]

Private Sub Form_Load()
Dim agent As Object
Dim HaveAgent As Boolean
HaveAgent = False
'On Error Resume Next
Set agent = CreateObject("Agent.Control.1")
HaveAgent = IsObject(agent)
If HaveAgent Then
Dim MyRequest

Set MyRequest = agent.Characters.Load("Genie", _
"C:\Program Files\Microsoft Agent\Genie.acs")
MyRequest.Show

End If
End Sub

[行云边]

不过你要先安装 agent
msdn 6.0 有一篇文章 ：Programming the Microsoft Agent Control

[lxcc]

http://vbclass.8u8.com/jishu/agent.htm

http://202.109.195.141/chenyan/vb/agent.htm

[lxcc]

http://www.codeproject.com/Purgatory/Merlin.asp

[creazyfish]

楼上的都占座了，偶也没什么好说的了。占座先

[javaTNT]

非常感谢大家的热心支持，但是你们的回答我在网上都已经看到了，我现在的目的是在卡通人物的Balloon中添加一个textbox或者radiobox等等。。。就像offic和瑞星的小狮子那样。

[mingday]

微软网站上有例程