جميعنا يعرف برنامج الوورد وكيف أنك عندما تفتحه لأول مرة يظهر لك مساعد الأوفيس، ليساعدك في تعاملك مع البرنامج، والذي يتشكل في أشكال مضحكة ومسلية ...
والذي أريد أن نعرفه هنا أنه يمكننا أن نستفيد من هذا المساعد بحيث يظهر في برنامجنا الخاص، وأن نتحكم به كما يحلو لنا، وفيما يلي سنرى كيف يمكننا ذلك:
[1] أولاً سنحتاج إلى الأداة Microsoft Agent control
يجب إدراج هذه الأداة في الفورم وذلك عن طريق الضغط على Ctrl + T واختيار الأداة السابقة، ثم الضغط على OK، وبعدها قم برسمها داخل الفورم.
[2] سنحتاج أيضاً إلى ملف المساعد، حيث أن لكل مساعد ملفه الخاص به والذي يحمل الامتداد acs، وستجد - بعد البحث - أن جهازك يحوي على مساعد أو مساعدين على الأقل، وغالباً ما ستجده على المسار التالي: [\c:\windows\msagent\char] وهذا ما سنتعامل على أساسه الآن، حيث سنفترض أننا وجدنا ملف المساعد Merlin على المسار السابق.
[3] الآن نقوم بكتابة الكود التالي في قسم التصريحات العامة General_Declarations:
Public Genie As Object
[4] ثم هذا الكود في حدث تحميل الفورم Form_Load:
Dim Filename
Filename = "c:\windows\msagent\char\Merlin.acs" 'هذا المسار افتراضي، ويمكنك التغيير فيه حسب الحاجة
Agent1.Characters.Load CharacterID:="Genie", LoadKey:=Filename
Set Genie = Agent1.Characters("Genie")والذي يقوم كما هو واضح بتجهيز المساعد Merlin للاستخدام عند الطلب.
[5] المساعد جاهز للاستخدام الآن ويمكنك إظهاره بواسطة الكود التالي: Genie.Show، وإخفاؤه بواسطة الكود التالي: Genie.Hide.
[6] لكل مساعد حركاته الخاصة به، وهذه أكواد لبعض الحركات الخاصة بالمساعد Merlin:
"Genie.Play "Congratulate لجعل المساعد يهنئك
"Genie.Play "Pleased لجعل المساعد يرجوك
"Genie.Play "lookup لجعل المساعد ينظر إلى أعلى
"Genie.Play "Think لجعل المساعد في حالة تفكير
[7] نقطة أخيرة وهي ماذا لو أردنا معرفة جميع الحركات الخاصة بأي مساعد فما هي الطريقة لذلك:
فقط قم بإدراج أداة قائمة ListBox ، وضع هذا الكود في حدث تحميل الفورم Form_Load:
Dim Animation As Variant For Each Animation In Genie.AnimationNames List1.AddItem Animation Next
وهذا الكود في حدث النقر على القائمة List1_Click:
Genie.Play List1.Text
يمكن تحميل ملف يحتوي على مثال لاستخدام هذا المساعد عن طريق الخطوات السابقة من خلال المرفقات
بذلك نكون قد انتهينا من شرح طريقة استخدام المساعد
إذا واجهتكم أي مشاكل لا تتردوا بالسؤال
أرجو أن تكونوا قد استفدتم
مع خالص تحياتي
ع.ف.ر
