مفهوم 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 أرجو أن تكون مفهومة.
وبالتوفيق للجميع