بعد تجهيز المساعد عليك وضعه في مجلد البرنامج . ليكن إسمه 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 أرجو أن تكون مفهومة.
المساعده Ms Agent
تاريخ الإضافة :
