Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Who have the sample code using MS Agent?
Message
 
 
General information
Forum:
Visual FoxPro
Category:
Forms & Form designer
Miscellaneous
Thread ID:
00140345
Message ID:
00159764
Views:
34
>>>I try to use MS Agent ActiveX Control in VFP! What should I do?
>>>Any sample code! Thank you!
>>
>>Here's the code, once the controls are on the form.
>>
>>
>>*****
>>Thisform.Agent1.Characters.load("Genie", "genie.acs")
>>Thisform.Agent1.Characters.load("Merlin", "Merlin.acs")
>>
>>Genie = Thisform.Agent1.Characters("Genie")
>>Merlin = Thisform.Agent1.Characters("Merlin")
>>
>>Genie.Get("Animation", "Annouce, AnnouceReturn, Pleased, PleasedReturn")
>>Merlin.Get("Animation", "Confused, ConfusedReturn, Sad, SadReturn")
>>
>>Genie.MoveTo(100,100)
>>Genie.Show
>>
>>Merlin.MoveTo(300,100)
>>Merlin.Show
>>
>>Genie.Play("Annouce")
>>GenieRequest = Genie.Speak(" Why did the chicken cross the road?")
>>
>>Merlin.Wait(GenieRequest)
>>Merlin.Play("Confused")
>>MerlinRequest = Merlin.Speak("I don't know. Why did the chicken cross the road?")
>>
>>Genie.Wait(MerlinRequest)
>>Genie.Play("Pleased")
>>GenieRequest = Genie.Speak("To get to the other side.")
>>
>>Merlin.Wait(GenieRequest)
>>Merlin.Play("Sad")
>>MerlinRequest = Merlin.Speak("I never should of asked.")
>>
>>********** End ***
>
>
>
>One thing I forgot.
>
>Place the MS Agent Control within an OLE Container and name the Agent Control Agent1.
>>
>>Code Originally from Henry W. Petry IV
>>
>>
>>Hope this helps


I'm trying to do this also but I can't seem to find the OCX. I downloaded as much as I could find off Microsoft site but no ocx for VFP. Is the active x control MSAGENT.OCX and if so where can we get it??

Thanks!!!
Kevin Scott
kehvn@carolina.rr.com


Hey! It's not my fault. It's some General named Protection!
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform