بسم الله الرحمن الرحيمدروس في أداة الاكتيف اكس(الجزء الاول)ملاحظة1 : يوجد في نهاية الدرس ملف pdf يحتوي على الشرح كاملا( في المرفقات).ملاحظة 2 : هنالك مثال مطبق على الدرس هذا( في المرفقات).ملاحظة3: هذا الجزأ الاول من الدورة والجزء الثاني بعد الثانوية العامة باذن الله( ادعوا لي بالنجاح الباهر ).ملاحظة 4: هذه الدورة للمتوسطين والخبراء في الفيجوال .ملاحظة 5 : سوف تجد صعوبة بعض الشيئ في فهم الدرس وذلك لان عملية تصميم الاداة عملية صعبة بعض الشيئ.أول شيئ , ما هي اداة ال Active X ؟اداة الاكتيف اكس هي عبارة عن اداة مثل اي اداة من ادواتVisual
BASIC[/url] الشائعة : مربع النص , ليبل , كوماند .....الخ.
اداة الاكتيف اكس يمكنك وضعها في اي برنامج مصمم بالفيجوال ييسك .
اداة الاكتيف اكس تعمل على توفير الجهد حيث انك بواسطتها لا تضطر الى كتابة الكود مرات عديدة في البرنامج مما يختصر لك الكود ايضا.
كيف يمكنك عمل اداة Active X ؟[/url]
في
هذه المادة الدراسية سوف تتعلم كيف تعمل اداة اكتيف اكس بسيطة تقوم باظهار
صندوق رسالة عندما المستخدم يضغط عليها , طبعا هذه اداة بسيطة وغير مفيدة
في الحياة العملية ولكنها سوف تعلمك كيف تبرمج اداة اكتيف اكس.
بداية العملأختر من قائمة الفيجوال File->New Project كما هو موضح :
اختر Active X Control ومن ثم اضعط OK كما هو موضح :
فورم جديد سوف يظهر بدون شريط عنوان كما هو موضح :
اختر من القائمة Project->Project1 Properties. كما هو موضح :
يمكنك تغيير اسم الاداة تبعتك بتغيير ال Project Name الى اي اسم كما هو موضح :
هذا الاسم ما سوف تشاهده عند الانتهاء من عمل الاداة انا مثلا سميت الاداة MyFirstOcx كما هو موضح :
الان اضغط الزر الايمن للماوس واختر Properties من القائمة كما هو موضح :
خاصية الاسم للفورم تكون UserControl1 غيرها الى My Control كما هو موضح :
هذا الاسم سوف يظهر للمستخدم عند اختيار الاداة : وهكذا .My Control1 , My Control2 ….. .
بداية برمجة الاداة اضف زر امر ( (Command Button الى الفورم وسميه Command1 كما هو موضح :
هذا ما سوف تظهر عليه اداتك.
اداتك هي عبارة عن الفورم وما عليه ولكن نحن لا نريد ان يظهر الفورم ما نريد هو الكوماند فقط
لذلك اعمل resize للفورم كي يتناسب مع الكوماند ولا يظهر منه شيئ كما هو مبين :
الان الاداة سوف تظهر على شكل زر.
ولكنها ليست زر وانما هي فورم وبداخله زر.
ولكن ماذا لو قام المستخدم بعمل Resize للاداة في وقت التصميم (مثل اداة ال Command Button)؟
لحل هذه المشكلة وعندما يقوم المستخدم بعمل Resize للاداة يجب علينا ان نجعل الفورم يتناسب مع الزر الذي وضعناه.
ضع هذا الكود لجعل المستخدم يقوم بresize الزر بدلا من الفورم :
كود
Private Sub UserControl_Resize()
Command1.Width = UserControl.Width
Command1.Height = UserControl.Height
End Sub