How would you activate animation control?

Question Posted / guest

1 Answers
3463 Views
I also Faced
E-Mail Answers

How would you activate animation control?..

Answer / cherran

First Download the Genie.acs (Microsoft Animation Character)
from MSDN. Create one VB std.Exe app. with one button and a
textbox then paste the following code, now your app. will
speek what you typed in textbox. Note: you have to install
Speach Enginee before this.

Genie.Play "Write", "read" will animate the Character.

Dim Genie As IAgentCtlCharacterEx
Const DATAPATH = "genie.acs"

Private Sub Form_Load()
Agent1.Characters.Load "Genie", DATAPATH
Set Genie = Agent1.Characters("Genie")
Genie.LanguageID = &H409
TextBox.Text = "Hello World!"
End Sub

Private Sub Button_Click()
Genie.Show
Genie.Speak TextBox.Text
Genie.Play "Write"
Genie.Play "Read"
Genie.Hide
End Sub

Is This Answer Correct ?

1 Yes

0 No

Post New Answer