Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Who have the sample code using MS Agent?
Message
 
À
24/09/1998 13:47:25
Information générale
Forum:
Visual FoxPro
Catégorie:
Gestionnaire d'écran & Écrans
Divers
Thread ID:
00140345
Message ID:
00159764
Vues:
36
>>>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!
Précédent
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform