وها أنا ذا أشترك في المسابقة يا سيد "Tiger"

هذا البرنامج الذي أشترك به أشترك به في الأساس لأنه يجمع ثلاثة أشياء أرى أنها ستفيد من سيستخدم البرنامج أو يستغل شيفرته فحسب.

1 - هذا البرنامج يقوم بإنشاء زر إطلاق في متصفح الإنترنت والمقصود بزر إطلاق هو ظهور أزرار بجانب "Stop" "Refresh"... ويكون دور الإزرار كما ترغب.

مثلا يُمكن إنشاء أزرار إطلاق لمواقعك المفضلة كما سترون في الصورة أدناه
أو إن شاء أزرار إطلاق لبرامج معينة تستخدمونها بكثرة عندما تتواجدون على المتصفح.

عموما عندما تستخدمون البرنامج ستفهمون الغاية منه وأي سؤال حول شيفرة البرنامج أو استخدامه أنا موجود.

2 - بالنسبة لمبرمج لغة ال "VB" فإنه سيتعلم ثلاثة أشياء:
- كيفية استخدام أزرار رسومية جميلة حسب إبداعه.
- كيفية التعامل مع المسجل (مسجل النظام = Registry System) من خلال ال "VB" بطريقة بسيطة للغاية ومنظمة.
- كيفية تحريك نافذة برنامج لا تحتوي على شريط عنوان افتراضي.

3 - البرنامج من حق للجميع ولأي أهداف كانت.:innocent:


البرنامج بحجم 144 كيلوبايت دون احتساب "DLL" الخاص بتشغيل البرامج التي يتم صنعها بواسطة ال Visual Basic.

في الرابط التالي تجدون ملف مضغوط من نوع "ZIP" ويوجد به:
- البرنامج جاهز باسم "CLB".
- مجلد أيقونات باسم "Icons" وبه عدة أيقونات أستخدمها أنا.
- البرنامج المصدري للاطلاع على الشيفرة.
- ملف "Power Point" يحوي تصميم الأزرار التي استخدمتها في البرنامج.

الرابط هو: http://www.mpastro.hostlix.com/CLP.zip

الصورة التوضيحية:

وتحياتي للجميع

صلاح الدين بن شبيبة

رائع يا أخي وفي الحقيقة لقد إطلعت على الأوامر وإسغربت
فهل يوجد شرح لطريقة عمل هذا البرنامج أم هو من تصميمك الشخصي ؟؟؟
وهذا اول برنامج ننتضر الباقي
وأهلا وسهلاً بك معنا اخي
تم إرفاق برنامج بصيغة rar + zip للحفاظ عليه

الملفات المرفقة

	CLP.zip (242.9 ك/بايت, عدد مرات التحميل : 2)
	Creating Launch Button.rar (212.4 ك/بايت, عدد مرات التحميل : 2)

رائع يا أخي وفي الحقيقة لقد إطلعت على الأوامر وإسغربت
فهل يوجد شرح لطريقة عمل هذا البرنامج أم هو من تصميمك الشخصي ؟؟؟

لم أفهم قصدك؟؟

على أي حال لو كنت ترغب في أن أشرح كيف تعمل الأوامر "Codes" في هذا البرنامج (تفصيل كيفية عمل أوامر البرنامج فيُمكن أن أخصص وقتا لفعل ذلك).

أما لو كنت تقصد هل أنا مصمم البرنامج؟ فأجل أنا كذلك.

وذلك على النحو المعتاد في البرمجة بواسطة "VB" تحدد الفكرة التي ترغب في القيام بها، ثم تحدد ال "API" التي ستحتاجها ثم الباقي تُتنتجه من عقلك.

_____________________________________
معذرة على الصورة لأني لم أهتم بإزالة خلفية سطح المكتب وأعد بأن أراعي ذلك في المستقبل وشكرا على تعديلها.

تحياتي

اخي themap اتمنى ان تقوم بشرحه لتعم الفائدة للجميع

اذ كان يسمح لك وقتك

وبالنسبة للصورة إسمح لي بتعديلها

حسنا الآن صرت متفرغا نسبيا لأشرح البرنامج وعندما أردت البدأ بذلك قبل قليل انتبهت إلى أني لا أعرف بالضبط ما الذي يجب أن أشرحه؟

هل أشرح كيف يعمل البرنامج على مستوى الأوامر؟

أم أشرح كيف تعمل أوامر البرنامج كل على لوحده؟

ففي الحالة الأولى لا أعتقد أن أحد سيستفيد من الشرح لأنه ليس هناك ما يُشرح في الحقيقة.

أما الحالة الثانية فستكون هناك فائدة كبيرة لكن هناك مشكلة وهي أن شرح بعض أوامر البرنامج سيحتاج إلى معرفة مسبقة من قبل القراء بالعديد من الأمور حول نظام التشغيل وحول ال"vb"، وغير هذا لن يُمكنني الشرح لأني سأضطر لكتابة عشرات الصفحات وإعداد الكثير من الصور لكي يحصل المتلقي على الفائدة.

لهذا ارتأيت الآتي:

سأزور الموضوع بشكل يومي لتلقي أي أسئلة حول البرنامج أو أوامر وأجيب عنها، وهكذا سيكون هناك توافق بين جوابي والسائل حسب ما سؤاله، وبالتالي سيتفيد هو وأكون أنا مرتاح وستتجمع مجموعة من الأجوبة على العديد من الأمور ما يجعل غير السائل يستفيد أيضا.

وهكذا أنا في انتظار أي أسئلة

تحياتي

اخي في الحقيقة انا لا اعرف كيف عملته اريد الأوامر ولا تقلق الحقوق عندنا محفوظة فنحن لا نقدم إلا ما نعرف واذا كنا نريد ان نطور عمل غيرنا نظع تصميم. ...... تطوير ........ موقع كتاب العرب

حسنا إن شاء الله سأبدأ بعد قليل.

ننتضرك


اخي زيد الرجاء وضع البرنامج الخاص بك

لم أفهم ما الذي تقصده ب "وضع البرنامج الخاص بي"؟

السلام عليكم
يتكون البرنامج من:
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" ثم اسحب مع استمرارك في الضغط.
هذا كل شيء.
هذا مثال جاهز لتجريبه.
حمل من هنا
الباقي أكمله لاحقا وطبعا إذا كان رأيتم أم الشرح مناسب وطبعا أي أسئلة أنا في الخدمة.
تحياتي
صلاح الدين بن شبيبة

معرض المرفقات