Konkret sieht es so aus, dass ich einen MS Assistenten animieren möchte.
Da es aber ja mehrere Assisten gibt, möchte ich keine Redundanz erzeugen und einfach nur die gleiche ANimation von einem anderen Assistenten erledigen lassen.
z.B.
Private Sub PeedyStart()
Dim Animation As Variant
On Error Resume Next
Agent1.Characters.Load "Peedy", "Peedy.acs"
Set Peedy = Agent1.Characters("Peedy")
Peedy.Show
List1.Clear
For Each Animation In Peedy.AnimationNames
List1.AddItem Animation
Next Animation
With Peedy
.MoveTo (Form1.Left + Form1.Width) / Screen.TwipsPerPixelX, _
(Form1.Top + (Form1.Height / 2)) / Screen.TwipsPerPixelY
.Play "Surprised"
.Play "Greet"
.Speak "Hallo, dies ist ein Test."
.Play "GestureDown"
.Speak "Klicken sie bitte auf einem Listeneintrag, " & _
"um meine Fähigkeiten zu testen."
End With
End Sub
Dies lässt den Vogel "Peedy" verschiedene Dinge erledigen. Falls der User aber "Merlin" oder "Genie" auswählt, soll ja nur ein anderes Objekt genommen werden. Allerdings soll er ja in die gleiche Sub springen, welche dann natürlich einen anderen Namen erhält.
Zugegriffen wird auf das Microsoft Agent Control