الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

أجعل شريط أدواتك Toolbar مثل XP

مغلق
بدأه ail_fahad777 في 4 يوليو 2005 · 6 رد · 1,071 مشاهدة · في لغة Ms Visual Basic 6 وما قبلها من إصدارات
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

بسم الله الرحمن الرحيم

السلام عليكم ورحمة الله وبركاته ،،،

بعد فترة إنقطاع كبيرة ها أنا قد عدت لكم ومعي لكم هدية جميلة

وهي هل تريد ان يكون شريط أدواتك Toolbar مثل شريط شريط XP ؟!

Toolbar1.gif

إذن الطريقة بسيطة ولا فيها أي تعب فقط أتبع التعليمات الأتية :

1- شغــّل فيجوال بيسك ..

2- من قائمة Project نختار ---> Components...

أو من لوحة المفاتيح Ctrl+T

3- نختار الأداة Microsoft Windows Common Controls 5.0 (SP2)

ملاحظة : يجب أن تكون 5.0 الإصدار الخامس أما الإصدار السادس فلا ينفع ..

4- نضع شريط الأدوات Toolbar1 على الفورم Form1 ونقوم بإضافة الأزرار المناسبة..

من خصائص شريط الأدوات Toolbar1

نقوم بضبط الخاصية Appearance إلى ccFlat

5- نضع الأداة ImageList1 .. ( ونقوم بإضافة ما نريد من الصور )

6- نقوم بإدراج الموديل .. ( الذي سوف تجدونه في المرفقات )

7- نقوم بكتابة الكود التالي :

Private Sub Form_Initialize()
XPStyle
End Sub

وبهذا تحصل على شريط أدوات جميل ...!!

وللأمانة الكود ( الموديل ) حصلت عليه من موقع أجنبي وهو

http://www.Planet-Source-Code.com//

والسلام عليكم ورحمة الله وبركاته

ودمتم بخير !!!

XPStyle2.zip

#2

مشكووور اخي العزيز وبارك الله فيك وجزاك الله الف الف خير

#3

أخوي النبهاني ،، لا شكر على واجب

وهذا واجبي ،،

ومشكور على مرورك

#4

جزاك الله خير

460.gif

#5

هجربها و أقول رأي :)

Nothing to mention except that I am Muslim

Using your brain is not bad as you think

My Blog

logo.jpg

#6

مشكور على الفائدة

من تواضع لله رفعه

#7

أخي الكريم ail_fahad777

قمت بعمل جميع الخطوات التي ذكرتها

ولم يتغير شئ

مواضيع و دروس
الكتابة بعدة ألوان داخل الــ TetxBoxمكتبة الأكوادتحميل الــ Visual Basic Express 2005
تحميل فيجوال بسيك 6أكواد × أكواددروس في الخوارزميات
لتحميل عدة إصدارات من كريستال ريبورتتحميل برنامج Activ Skin 4.3جمل الــ Sql من الألف إلى الياء
معظم المواقع المختصة بالفيجوال بيسيكموقع كويس للأيقوناتمرجع شامل لأدوات ActivX
كيفية نطق الحرف المكتوب شرح عن كيفية إقامة علاقة مع Data Reprot باستخدام الــ DataEnvironment علاقة مع الـ Datareport بدون استخدام DataEnvironment (( شرح ))
كتاب Migrating From DAO to ADOإضافة لـ VB6 بريمج IndenterVB, إضافة لبيئة تطوير فيجوال بيسك 6حوار بينى و بين عضو حول ال winsock , اتمنى ان يعجبكم
Smart Indenter 3.5 لتنسيق الأكواد, هديه لكل الأعضاء السلسلة الدهبية في المواضيع العلمية ، إستغلال الـ Balloons في الـ Windows XP مصفوفات الأدوات Control Arrays افكار وتلميحات ! , لمن افتقدها من أيام الـ VB6.0
جعل خلفية الـ Mid Form تظهر بالكامل خواص الاداة Winsock لربط الاجهزة عن طريق الانترنتكيف يتم عمل تقارير بإستخدام HTML

7.gif

هذا الموضوع مغلق.

مواضيع مشابهة