السلام عليكم
يتكون البرنامج من:
1 - Form1
2 - MPRegistry
سنبدأ برقم 2 (MPRegistry) هذه عبارة عن "Class Module" وال "Class Module" هي شيء أشبه ب"الإجراء الخاص" "Private Sub" مع قدرات أكبر وأقوى، والغاية منها في حالتنا هذه هو تسهيل استخدام أوامر "API" الخاصة بالتعامل مع مسجل النظام، حيث تم كتابة كل تلك "API" فيها وتم إنشاء وظائف فيها لكي يتم استدعاؤها فيما بعد بكل بساطة وفي أي برنامج دون الاضطرار لكتابتها في كل مرة.
والمعنى من كل هذا هو أن "MPRegistry" هي مجرد أداة، وسأشرح طريقة استخدامها وليس كيف تم إنشاؤها هي نفسها لأن هذا الأخير سيأخذ وقتا طويلا.
الآن نعود إلى رقم 1 النافذة "Form1" ومن خلالها سأوضح كيفية استخدام ال "MPRegistry".
تنقسم أوامر ال"Form1" إلى خمسة أوامر رئيسية:
1 - أوامر تحريك ال"Form" الذي لا يحتوي على شريط عنوان.
2 - أوامر استدعاء صندوق الفتح.
3 - أوامر التعامل مع مسجل النظام "Registry".
4 - أوامر إنشاء دليل فريد (لا يُمكن أن يكون مكررا) وذلك لاستخدامه كعنوان لزر الإطلاق.
5 - جعل أزرار البرنامج تفاعلية "تُضيء عندما تمرر مؤشر الفأرة عليها، وتنضغط عندما تضغط على الزر..."
فلنبدأ على بركة الله:
1 - تحريك ال "Form" الذي لا يحتوي على شريط عنوان.
ما معنى هذا؟
الجواب:
كل "Form" يكون لديها شريط عنوان "TitleBar" وهو الشريط الذي تكون به أزرار التكبير والتقليص والإغلاق، وكذلك يكون به اسم البرنامج أو ما شابه.
يلعب شريط العنوان ثلاثة أدوار رئيسية هي:
- تحريك النافذة "Form".
- احتواؤه لأزرار التعامل مع النافذة من حيث الإغلاق التكبير والتقليص.
- واحتواؤه على اسم البرنامج أو أي شيء تريد كتابته مكانه.
بالنسبة لنا كمبرمجين فإن شريط العنوان يُعتبر مشكلة في معظم البرامج التي نقوم بتطويرها وهناك عدة أسباب لاعتباره مشكلة:
- بعضنا لا يرغب في أن يتم تكبير البرنامج لأن ذلك يُفسد شكله.
- بعضنا يُريد أن يبقى برنامجه دائما ظاهرا، وأن لا يتم تقليصه إلى ال"TaskBar" "شريط ابدأ".
- بعضنا لا يُريد أن يتم غلق برنامجه.
وكل هذا لا مشكلة فال "VB" يمنحنا بعض الخيارات السريعة لتجاوز ذلك.
ولكن هناك شيء لا يُمكن تجاوزه ببساطة وهو شكل شريط العنوان ولونه وشكل أزرار وشكل الكتابة فيه...
إذا على المبرمج الذي يُريد لبرنامج أن يكون ذو شكل متناسق أن يُزيل شريط العنوان، والأمثلة كثيرة:
Ulead Video Studio
Windows Media Player حيث هناك خياران إظهار شريط عنوان التقليدي أو الرسومي.
وكذلك برنامج مرسال "MSN"...
وكمثال هذا أحد برامجي والذي مثله مثل كل برامجي لا يحتوي على شريط العنوان التقليدي وإنما أصنع واحدا خاصا دائما حسب كل برنامج ليتوافق مع شكله العام.
كل هذا جميل ويتم بشكل سلس ولكن تعترض أي مبرمج مشكلة وهي أنه بإزالة شريط العنوان فإنك تفقد ميزتان مهمتان من برنامجك وهما:
- التحريك (تحريك ال "Form" من مكان لآخر في الشاشة)
- والقائمة التي تظهر عند الضغط بالزر الأيمن للفأرة على البنامج في "شريط إبدأ"
وما يهمنا الآن هو الأولى، أي التحريك.
ال "API" المستخدمة للتحريك هي:
Private Declare Function SendMessage Lib "User32" _
Alias "SendMessageA" (ByVal hwnd As Long, _
ByVal wMsg As Long, _
ByVal wParam As Long, _
lParam As Any) As Long
Private Declare Sub ReleaseCapture Lib "User32" ()
Const WM_NCLBUTTONDOWN = &HA1
Const HTCAPTION = 2
ال"API" لا يُمكنني شرحها لأني لا أعرف ولأننا كمبرمجين لا نهتم بكيفة عمل ال "API" وإنما فقط بطريقة استخدامها على الوجه الأمثل.
أمر التحريك هو:
If Button = 1 Then
Call ReleaseCapture
SendMessage Me.hwnd, WM_NCLBUTTONDOWN, HTCAPTION, 0&
End If
وهذا الأمر بسيط، حيث نشترط عليه أن لا يعمل إلا إذا كان زر الفأرة الأيسر مضغوطا، فعندما يكون زر الفأرة الأيسر مضغوطا نقوم باستدعاء الإجراء "ReleaseCapture" والذي يقوم بتحديد مكان ال"Form" ثم يحسب تحرك الفأرة ويقوم بحسابات لإنتاج تموضع ال "Form" الجديد ومن ثم نقوم بإرسال قيم التموضع الجديد إلى ال"Form"، وعندما نترك الضغط على زر الفأرة فإن قيم التموضع الجديد تُنفذ وبالتالي يتحرك ال"Form" إلى المكان الجديد.
ولكي يعمل هذا الأمر يجب وضعه في حدث "تحرك مؤشر الفأرة" "MouseMove" لأداة ما، وعلى سبيل المثال أداة "Label" وهي التي أستخدمها أنا لأنه يُمكن جعلها شفافة وبالتالي يعتقد المستخدم أنه يضغط على شريط العنوان الذي هو عبارة عن صورة ليس إلا.
لو كان أي قارئ سيسأل من أي أحضرت كلمة "Button" في السطر "If Button = 1 Then" فلا أظن أنك وصلت إلى المرحلة التي يجب عليك فيه فهم هذه الأوامر بشكل عام، واكتف باستخدامها فقط.
ولاستخدامها قم بالآتي:
- افتح مشروع جديد.
- ضع أداة "Label" في ال "Form".
- غير خاصية "BorderStyle" لل "Form" إلى "0 - None"
- انسخ هذه الأوامر وضعها في مكان كتابة الأوامر.
- شغل البرنامج وقم بالضغط بزر الفأرة الأيسر على ال"Label" ثم اسحب مع استمرارك في الضغط.
هذا كل شيء.
هذا مثال جاهز لتجريبه.
حمل من هنا
الباقي أكمله لاحقا وطبعا إذا كان رأيتم أم الشرح مناسب وطبعا أي أسئلة أنا في الخدمة.
تحياتي
صلاح الدين بن شبيبة
