21-04-13, 11:20 PM
السلام عليكم...
إذا أردت أن تكتب كود لتشغيل الزر فلابد من وجود السطر:
فهذا السطر ليس مجرد تصريح عن متغير نوعه زر Office بل إنه يعطيك الوسيلة لكتابة الكود المتعلق بالزر، و ذلك لوجود كلمة WithEvents ضمن التصريح. هذه الكلمة تجعل Visual Basic تظهر الاسم ضمن قائمة الـ Objects في نافذة الكود - كأنه زر ضمن برنامجك - و عندما تختار هذا الزر (في نافذة الكود) ستجد أن VB تظهر أحداثه ضمن قائمة الأحداث في نافذة الكود.
لتتأكد من ذلك:
* في نافذة الكود، و في وجود السطر المذكور، افتح قائمة الكائنات (الموجودة على اليسار) ستجد فيها مكون باسم MyButton. و عندما تختاره سيظهر الحدث Click في قائمة الأحداث (القائمة اليمنى).
* احذف كلمة WithEvents من التصريح، أو احذف السطر كله... لن تجد اسم الزر ضمن قائمة الكائنات في الكود. و بالتالي لا تستطيع أن تكتب له الكود.
مبدئياً، لإصلاح المشكلة تأكد أولاً من وجود إشارة لمكتبة Office في برنامجك كالتالي:
من القائمة Project اختر الأمر References.
في نافذة الـ References تأكد من وجود علامة صح أمام البند: Microsoft Office xx Object Library. حيث xx رقم حسب Office المركب لديك.
نرجو الاستفادة و السلام.
إذا أردت أن تكتب كود لتشغيل الزر فلابد من وجود السطر:
كود :
Dim WithEvents MyButton As Office.CommandBarButtonلتتأكد من ذلك:
* في نافذة الكود، و في وجود السطر المذكور، افتح قائمة الكائنات (الموجودة على اليسار) ستجد فيها مكون باسم MyButton. و عندما تختاره سيظهر الحدث Click في قائمة الأحداث (القائمة اليمنى).
* احذف كلمة WithEvents من التصريح، أو احذف السطر كله... لن تجد اسم الزر ضمن قائمة الكائنات في الكود. و بالتالي لا تستطيع أن تكتب له الكود.
مبدئياً، لإصلاح المشكلة تأكد أولاً من وجود إشارة لمكتبة Office في برنامجك كالتالي:
من القائمة Project اختر الأمر References.
في نافذة الـ References تأكد من وجود علامة صح أمام البند: Microsoft Office xx Object Library. حيث xx رقم حسب Office المركب لديك.
نرجو الاستفادة و السلام.