Agent 中各个动画人物的动作(Office 中的助手)

Question

Eastunfail(恶鱼杀手),能不能把你给我的答案清理一下啊？谢谢ityaa() 、Eastunfail(恶鱼杀手) 两位，你们是从什么资料里找到的啊？

Answer 1

Dim a As Agent
Dim c As IAgentCtlCharacterExPrivate Sub Form_Load()
dim s
Set a = New Agent
a.Connected = True
a.Characters.Load "merlin", "merlin.acs" 
set c = a.a.Characters("merlin")
for each s in a.AnimationNames
debug.print s
next
End Sub

Answer 2

lihanbing(),呵呵   I FL Y厉害厉害！！