Microsoft Agent

[Zaphod64831]

Can someone please provide me with some information on the Microsoft Agent ActiveX control? I need as much information as possible on how to use it.

[SteveCRM]

Just put the activeX on your form and...
'DECLARATIONS
'Just add them in and the agent will work fine.
Dim Genie As IAgentCtlCharacterEx
Const DATAPATH = "genie.acs"

'IN LOAD
Agent1.Characters.Load "Genie", DATAPATH
Set Genie = Agent1.Characters("Genie")
Genie.LanguageID = &H409

'ANYWHERE YOU WANT
Genie.Show
Genie.Speak Text1.text
Genie.hide


If you didn't download the genie, just replace the names, other than that, I think you can figure it out.

[Zaphod64831]

Yes, that was on the official Microsoft Agent web page, but I'm afraid that's all I know about it. I have some experience with the Agent as a standalone program, so I know what a few of the commands do, I just want to figure out some of the smaller things. Such as how to remove the text balloon, how to make them do specific animations, etc.

[SteveCRM]

That is how I learned, and that is all I needed from the Agent so far. I know somewhere on the microsoft site is the names for each movement. I played with the properties through code and I got it to point, and move around the screen. Sorry but the only good advice is just play with those properties through code.

[Zaphod64831]

I guess I'll try a little searching on the web, maybe someone else has figured it out and posted it.

Thanks for trying!

[da_silvy]

try this:

Dim Merlin As IAgentCtlCharacterEx
Dim NewBalloonStyleOption As Integer
Dim CharLoaded As Boolean
Dim IgnoreSizeEvent As Boolean
Dim CurrentIndex As Integer
Const DATAPATH = "Merlin.acs"
Const BalloonOn = 1
Private Sub Command1_Click()
Merlin.Show
Merlin.Balloon.Style = Merlin.Balloon.Style And (Not BalloonOn)
Merlin.Speak Text1.Text
Merlin.Hide
End Sub
Private Sub Form_Load()
    Agent1.Characters.Load "Merlin", DATAPATH
    Set Merlin = Agent1.Characters("Merlin")
    Merlin.LanguageID = &H409
    Text1.Text = "Hello World!"
End Sub

ok??

i have tested this and it seems to work
let me know though

[Zaphod64831]

I'll be sure and try that out. But wouldn't the

Merlin.Balloon.Style = Merlin.Balloon.Style And (Not BalloonOn)

line work better in the Form_Load Sub? It would add a little speed for larger scale programs.

[Zaphod64831]

It worked, I just tried it out.

Do you have any sample apps that I could learn from other than the microsoft one? I'm still looking for ways to do things.

[Zaphod64831]

I found a great MsAgent Tutorial at http://members.home.com/abstractvb/v...t-msagent1.htm

[da_silvy]

It worked, I just tried it out.

Do you have any sample apps that I could learn from other than the microsoft one? I'm still looking for ways to do things.

Would you like me to simplify one of them for you?

What would you like in a sample app, because I have free time and would be willing to design a quick one for you, and find out things you could not.

BTW I thought the microsoft agent documentation was pretty good, if you haven't downloaded that, i think it is a zip file which includes documentation for everything?? to do with the Agent??
oh well, it's ur choice where you put the balloon less bit
i rushed it a bit, and did not really think too much about it.

[Zaphod64831]

Documentation? Where is that?

[da_silvy]

U can download it directly from this link -->
Download the Complete Microsoft Documentation

or go to the MSAGENT Download Site
hope i helped

[da_silvy]

[B]try this:

Dim Merlin As IAgentCtlCharacterEx
Dim NewBalloonStyleOption As Integer
Dim CharLoaded As Boolean
Dim IgnoreSizeEvent As Boolean
Dim CurrentIndex As Integer
Const DATAPATH = "Merlin.acs"
Const BalloonOn = 1
Private Sub Command1_Click()
Merlin.Show
Merlin.Speak Text1.Text
Merlin.Hide
End Sub
Private Sub Form_Load()
    Agent1.Characters.Load "Merlin", DATAPATH
    Set Merlin = Agent1.Characters("Merlin")
    Merlin.LanguageID = &H409
    Text1.Text = "Hello World!"
    Merlin.Balloon.Style = Merlin.Balloon.Style And (Not BalloonOn) 'is that better?

End Sub

ok??

is that better??