المساعده Ms Agent {الجمعة 28 أكتوبر - 21:42}

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
أرجو أن تكون مفهومة.



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