المساعده Ms Agent

الناقل : mahmoud | المصدر : www.kl28.com

Ms Agent


مفهوم Ms Agent :

عندما تفتح أي برنامج من برامج أوفيس أكسس مثلاُ وتطلب المساعدة فإن أول ماينجدك هو مساعد اوفيس . مثل الكلب والقطة أو الكرة :

هذا هو Ms Agent . هل فكرت بأن يكون لبرنامجك مثل هذا المساعد ! في درسنا اليوم ستتعلم كيفة ربط المساعد ببرنامجك إنشاء الله



اولاً : كيف تحصل على العميل ؟

بسيطة : إذا كنت تملك برامج أوفيس فسوف تجد العديد وهي بملحقات acs . أو تحمله من على الإنترنت عن طريق الرابط التالية :

http://www.msagentring.org

بعد تجهيز المساعد عليك وضعه في مجلد البرنامج . ليكن إسمه Genie مثلاً

الأن إفتح الفيجوال بيسك ثم بالزراليمين فوق صندوق الأدوات سوف تجد العنصر Microsoft Agent Control قم بإختياره وأنقر موافق

بعد ذلك ضع الأداة على الفورم . والأن طريقة الربط:



في قسم التصريحات General ضع الكودالتالي :

Dim X As IAgentCtlCharacter

 

ثم في حدث Load للفورم ضع الكود التالي:

On Error Resume Next
Dim path
Dim file
path = App.path
If Right(path, 1) <> '\' Then path = path + '\'
file = path + 'Genie.acs'
Agent1.Characters.Load 'x', file
Set X = Agent1.Characters('x')
X.Show

بهذا تكون قد أتممت الربط و ظهر المساعد عند التشغيل .



نأتي الأن إلى أوامر وحركات المساعد :

إظهار نص للمساعد:

X.Speak 'مرحبا'


إظهار حركة :

X.Play 'save'

 


ويمكنك تغيير save لأي حركة من حركات المساعد وهي تأتي في ملف ملحق معه .



إخفاء المساعد

X.Hide

 


إظهار المساعد

X.Show

 

هذه هي الأساسيات للتعامل مع العميل Ms Agent أرجو أن تكون مفهومة.

وبالتوفيق للجميع