+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم مقالات VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=184)
+--- الموضوع : المساعده Ms Agent (/showthread.php?tid=4918)
المساعده Ms Agent - RaggiTech - 03-10-12
كاتب الموضوع : tibo
السلام عليكم و رحمة الله و بركاته
Ms Agent
مفهوم Ms Agent :
عندما تفتح أي برنامج من برامج أوفيس أكسس مثلاُ وتطلب المساعدة فإن أول ماينجدك هو مساعد اوفيس . مثل الكلب والقطة أو الكرة :
هذا هو Ms Agent . هل فكرت بأن يكون لبرنامجك مثل هذا المساعد ! في درسنا اليوم ستتعلم كيفة ربط المساعد ببرنامجك إنشاء الله
اولاً : كيف تحصل على العميل ؟
بسيطة : إذا كنت تملك برامج أوفيس فسوف تجد العديد وهي بملحقات acs . أو تحمله من على الإنترنت عن طريق الرابط التالية :
http://www.msagentring.org
بعد تجهيز المساعد عليك وضعه في مجلد البرنامج . ليكن إسمه Genie مثلاً
الأن إفتح الفيجوال بيسك ثم بالزراليمين فوق صندوق الأدوات سوف تجد العنصر Microsoft Agent Control قم بإختياره وأنقر موافق
بعد ذلك ضع الأداة على الفورم . والأن طريقة الربط:
السلام عليكم و رحمة الله و بركاته
Ms Agent
مفهوم Ms Agent :
عندما تفتح أي برنامج من برامج أوفيس أكسس مثلاُ وتطلب المساعدة فإن أول ماينجدك هو مساعد اوفيس . مثل الكلب والقطة أو الكرة :
هذا هو Ms Agent . هل فكرت بأن يكون لبرنامجك مثل هذا المساعد ! في درسنا اليوم ستتعلم كيفة ربط المساعد ببرنامجك إنشاء الله
اولاً : كيف تحصل على العميل ؟
بسيطة : إذا كنت تملك برامج أوفيس فسوف تجد العديد وهي بملحقات acs . أو تحمله من على الإنترنت عن طريق الرابط التالية :
http://www.msagentring.org
بعد تجهيز المساعد عليك وضعه في مجلد البرنامج . ليكن إسمه Genie مثلاً
الأن إفتح الفيجوال بيسك ثم بالزراليمين فوق صندوق الأدوات سوف تجد العنصر Microsoft Agent Control قم بإختياره وأنقر موافق
بعد ذلك ضع الأداة على الفورم . والأن طريقة الربط:
في قسم التصريحات General ضع الكودالتالي :
كود :
[FONT=Courier New][color=blue]Dim [/color]X [color=blue]As [/color]IAgentCtlCharacter[/FONT]ثم في حدث Load للفورم ضع الكود التالي:
كود :
[FONT=Courier New][color=blue]On [/color][color=blue]Error [/color]Resume [color=blue]Next [/color]
[color=blue]Dim [/color]path
[color=blue]Dim [/color]file
path = App.path
[color=blue]If [/color]Right(path, 1) <> [color=green]'\' Then path[/color] = [color=green]path + '\' [/color]
file = path + [COLOR=green]'Genie.acs'
[/COLOR]Agent1.Characters.Load [color=green]'x',[/color] [color=green]file [/color]
Set X = Agent1.Characters([color=green]'x'[/color]) [/FONT]
[FONT=Courier New]X[/FONT][FONT=Courier New].Show[/FONT]نأتي الأن إلى أوامر وحركات المساعد :
إظهار نص للمساعد:
كود :
[FONT=Courier New]X.Speak [color=green]'مرحبا'[/color][/FONT]كود :
[FONT=Courier New]X.Play [color=green]'save'[/color][/FONT]ويمكنك تغيير save لأي حركة من حركات المساعد وهي تأتي في ملف ملحق معه .
إخفاء المساعد
كود :
[FONT=Courier New]X.Hide[/FONT]كود :
[FONT=Courier New]X.Show[/FONT]وبالتوفيق للجميع