Using Microsoft Agent Control
Using Microsoft Agent Control
API Declarations
Const DATAPATH = "\windows\msagent\chars\merlinsfx.acs"
Rate Using Microsoft Agent Control
(1(1 Vote))
' 2.) on the form put a text box with multiline set to true
' 3.) a command button and put the code below for the button and form
' 4.) DON'T FORGET TO PUT THE MICROSOFT AGENT CONTROL ONTO THE FORM!
' AGENT CONTROL IS CALLED "AGENTCTL.DLL" (MICROSOFT AGENT CONTROL 2.0)
Private Sub Command1_Click()
Genie.Show
Genie.Speak Text1.Text
Genie.Hide
End Sub
Private Sub Form_Load()
Agent1.Characters.Load "Genie", DATAPATH
Set Genie = Agent1.Characters("Genie")
Text1.Text = "Hello World!"
End Sub
Using Microsoft Agent Control Comments
No comments yet — be the first to post one!
Post a Comment