Ms Agent
مفهوم Ms Agent : عندما تفتح أي برنامج من برامج أوفيس أكسس مثلاُ وتطلب المساعدة فإن أول ماينجدك هو مساعد اوفيس . مثل الكلب والقطة أو الكرة : هذا هو Ms Agent . هل فكرت بأن يكون لبرنامجك مثل هذا المساعد ! في درسنا اليوم ستتعلم كيفة ربط المساعد ببرنامجك إنشاء الله اولاً : كيف تحصل على العميل ؟ بسيطة : إذا كنت تملك برامج أوفيس فسوف تجد العديد وهي بملحقات acs . أو تحمله من على الإنترنت عن طريق الرابط التالية : http://www.msagentring.org بعد تجهيز المساعد عليك وضعه في مجلد البرنامج . ليكن إسمه Genie مثلاً الأن إفتح الفيجوال بيسك ثم بالزراليمين فوق صندوق الأدوات سوف تجد العنصر Microsoft Agent Control قم بإختياره وأنقر موافق بعد ذلك ضع الأداة على الفورم . والأن طريقة الربط: في قسم التصريحات General ضع الكودالتالي :
ثم في حدث Load للفورم ضع الكود التالي:
بهذا تكون قد أتممت الربط و ظهر المساعد عند التشغيل . نأتي الأن إلى أوامر وحركات المساعد : إظهار نص للمساعد:
هذه هي الأساسيات للتعامل مع العميل 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
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 أرجو أن تكون مفهومة. وبالتوفيق للجميع
