بعد استئذان الأخ HnHn هقدم لكم درس بس بالأنجليزية و يارب يكون سهل :

[LTR]

Since VB6 is an old language (in comparison with last windows version) it does not support drawing the XP styles on its controls and because Microsoft no more support VB6 we should not except a direct solution for this issue.



To show XP styles in our VB6 products we need to do 3 steps :
1-Including a special manifest file with our project.
2-Initialize the common controls by calling the InitCommonControlsEx API (supported by comctl32.dll).
3-Protect our application from possible GPF (General Protection Fault) while closing the application.

1-The manifest file should be in the same directory (folder) of our application this file should be named as follow :
If our application name (including the extension) is Test.exe the manifest file should be Test.exe.manifest.

Contents of the manifest file :


2-Initialize the common controls : do this once at the start of your application :


Now we just need to call the following function :



Warning : Including the manifest file without initializing the common controls will result in the following error :



3-After using the previous method to give your application XP styles it mau crash when you close it (GPF) hence we should prevent this , this can be done by calling the SetErrorMode API (supported by kernel32.dll) & set the mode to SEM_NOGPFAULTERRORBOX



then we can just call it :


but this should be carried out just outside the IDE (Integrated Development Environment) =outside the VB design environment = as EXE

To detect if we are in the IDE or not we can use a simple method (by Steve McMahon) :




Now we can use the property InIDE to detect if we are in the IDE or not (Returns true if we are in the IDE & False if not).

So we can call the SetErrorMode as follow :


GPF snapshots :






-----------------------------------------------------------------

Standard VB Frame problems with XP styles :

The lack of hDC property for the VB frame cause 3 problems :

• It does not show XP syles even with the above code.
• It flicker with mouse movement.
• Controls on it appear in a weird manner (see the following snapshot) , this mainly occur to the Option buttons and command buttons borders but with some themes it occur to other controls

The 3rd problem can be resolved by using another container (ex.: a border-less Picture-Box)over the frame to hold (contain) the controls instead of the frame itself.

The only available way to avoid all these problems is to use another frame control , here is a free , open sourced & efficient frame :

Replacent Frame Control for XP

-----------------------------------------------------------------

Other controls that show XP styles with no effort (All by VB & All are open sourced) :

LaVolpe Buttons

dcButton ActiveX Control

McToolBar 2.3

XTab

Candy Button

vbAccelerator Toolbar and CoolMenu Control v3.5

vbAccelerator Progress Bar Control

Media Progress Bar

vbAccelerator Explorer Bar Control

vbAccelerator No Status Bar Control

vbAccelerator TabStrip Control

vbAccelerator Visual Studio Style Tab Control

vbAccelerator MDITabs Control

-----------------------------------------------------------------

For easier and faster XP styles addition I made a project that can be added to your VB projects templates


Click here to download a self extracting file contain that project

This will add 4 files :

• frmMain.frm
• MainMod.bas
• Standard EXE with XP Styles.vbp
• Standard EXE with XP Styles.vbw

When you open your VB 6 a new item will appear in the New Project window named : Standard EXE with XP Styles.

Select it and you will have a project with a form (frmMain) and module (MainMod).

When you select to save your project VB will not ask you to save the module , I have no solution for this problem but you can save it manually or make any change in that module then undo it then the VB will ask you to save it with the rest of the project.

[/LTR]

عمو محمد فينك ياسيدى انت تشرح باى لغة انشلة اللغة الفرقشتانية هو الشرح ده كان فى المنتدى التانى ولا ايه

انا كنت استعمل هذة الطريقة منذ قديم الازل لكننى لم اكن اعرف ما هو الملف manifest وكل تلك الجمل يمكن ان تتلخص فى كلمتين اثنين لمن لا يريد الاطالة

اولا كود الخاص باستخدام الادوات القياسية الخاصة بالويندوس



طبعا مع تسمية اسم الملف التنفيزى بعد ترجمته باسم المكتبة manifest

واعزرنى اخ محمد فهناك الكثيرون من لا يتقنون اللغة الانجليزية واذا كان عندك الوقت للترجمة ارجو ان تفعل اذا كان ذلك لن يؤثر عليك

صعب أنى أترجم كل ده




ايوه كان فى منتدى تانى بس برده أنا اللى كنت كاتبه من الأول للآخر و المره دى معدل عليه كمان.

بس ماكنش فى الـ vbforums

انا بعد كدة هعمل بحث فى جوجل على Msayed2004 عشان الاقى موضيعك الى انت مشتتها

انا مش شايف ليه رد الاعضاء هو الموضوع صعب اوى كدة

ما فـــائدة XP Styles ؟

فى مبرمجين VB كتيير و اجهم مشاكل مع عملائهم بسبب كده لأنهم بيحبوا كل برامجهم تاخد نفس الـ Theme اللى بيحبوها


وفى الأول و الآخر ده موضوع جمالى لمشروعك و بالحل اللى أنا حطه فى آخر المشروع محدش هيتعب فيها

يعطيك العافيه اخ msayed2004 على ما تقدم من معلومات ممتعه بحق وخصوصا انها مبنيه على

الشفرات فقط .. وهذا بحد ذاته يقلص عملية اضافة الاداوت في البرامج وقد تفيد من هم لا يعرفون سو السرعة في انجاز ما يريدون

على العموم اخ حريف برمجة اول المتفاعلين مع الموضوع وهذا ليس بغريب عليك الله يعطيك العافيه

وفعلا كما تقدمت اخ msayed2004

ان هناك من هم يفضل الشكليات في برامجه وانا احدهم لآنها تعطي دافع على كمال الوجه الاخر من البرنامج وتميز المبرمج

وذوقه وكنت آنا ذاك لأتقن عملية اخذ ثيمات XP استخدم شفرة التلامس وهو صنف من أصناف

API يسمى بـ INITCOMMONCONTROLSEX_TYPE

كما ذكرتموها ولكن بطريقة مختلفه وكانت تركيبتها كالتالي ..... كنوع من الاضافة للموضوع ان كنت تسمح طبعا

حيث سنحتاج الى Module1 نضع بداخله الآتي

كود

Public Type INITCOMMONCONTROLSEX_TYPE
    dwSize As Long
    dwICC As Long
End Type
Public Declare Function InitCommonControlsEx Lib "comctl32.dll" (lpInitCtrls As _
    INITCOMMONCONTROLSEX_TYPE) As Long
Public Const ICC_INTERNET_CLASSES = &H800

وقم برسم اداوت على الفورم من اي نوع كــ

Option1
Command1
Text1
Combo1
VScroll1


وفي حدث Form_Initialize

كود

Private Sub Form_Initialize()
    Dim comctls As INITCOMMONCONTROLSEX_TYPE
    Dim retval As Long
    With comctls
        .dwSize = Len(comctls)
        .dwICC = ICC_INTERNET_CLASSES
    End With
    retval = InitCommonControlsEx(comctls)
End Sub

وكما تفضل الاخ حريف برمجة فالشفرات متعددة فمنها ما هو مختصر ومنها ما هو مطول وذلك راجع على من ابتكرها وانت بمقدورك ان تبتكر افضل منها ... فهي البرمجة وهي المتعه

ولو تلاحظ الشفرة التي وضعتها أنا ووضعها الاخ msayed2004 والآخ حريف البرمجه انها تعتمد على بدرجه الأولى على مكتبة comctl32.dll

وهذه هي المكتبات الرئيسة لنظم التشغيل Windows. وباقي الملفات تعتبر فرعية لاداء اغراض معينة. فمكتبة COMCTL32.DLL هي خاصة بادوات Windows الشائعة Windows Common Controls والتي ظهرت منذ الاصدار Win95

يعني ان هذه الشفرة ستتماشى مع كل اصدارات XP بما فيها الفيستا بما ان هذه المكتبة موجودة


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

لم اكن اعلم ان الموضوع سياخذ كل هذا القدرمن الاهمية وشكرا لم اخى HnHn على تشجيعك وعلى اضافتك المتميزة ولكن للعلم تجميل البرامج من المواضيع المهمة جدا ويمكن ان يكون احد البرامج على قدر كبير من الكفائة ولكن شكلة ليس كما ينبغى وياخذ اسيضا شكل الاكس بي باخنصار ان البرنامج التجارى الذى يعمل على الاكس بى وياخذ شكل ويندوس 9x هو برنامج غبى ومبرمجة اغبى فاصبح المستخدمين الان ينظرون للبرنامج من حيث الواجهة

ولكن كما اجمع الجميع ان استخدام الادوات غير مجدى لاسباب كثيرة منها انها ثقيلة على المعالج ويمكن سرقتها من البرنامج فيكفى اخذ ملف الاداه من مجلد البرنامج ولكن الطرق لم تنتهى عند هذا الحد فهناك فكرة اخرى وهى دمج الاداه مع البرنامج اى عمل user control ويتم ترجمتها مع الملف التنفيزى ولذك يمكننا الخروج عن شكل الويندوس اكس بى التقليدى + ان برامجنا ستعمل بنفس الزيم مع نظم التشغيل الاقدم (النوافز)

أضافة متميزه من الأخ هانى كما عهدنا منه , شاكر جدا ليك و لكل المهتمين بالموضوع.

كان شرحا تفصيلا رائع نأمل ان تكون جميع الموضيع بهذا الشرح
اشكرك بشده
Keep Going..=>

ماأشتغلت معي الطريقه ... يمكن انا مافهمت؟

حاول تستعمل الـ Template لاحظ أن الويندوز لازم يكون بيدعم الـ XP Styles و تجرب الموضوع ده كـ EXE و ليس من داخل الـ VB

للأفاده راجع : XP Style for Visual Basic

بالتوفيق ,,,,,,,,,

A7med_prof

بارك الله فيك

عايز أعرف حاجة بالنسبة للملف manifest يعني لازم يكون موجود امام الملف التنفيذي؟
يعني مفيش طريقة أستغني بيها عن وجوده يعني ؟

لأ

و عندك حلين يا أما طريقتى أو حفظة كـ Resources و أستخراجة (أبطأ) , عموما أنت مش محتاجة بعد تطبيق الـ Styles على الأدوات.

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

على ذكر ال resources عندي ملف فيه ال manifest ولا تحتاج الى استخراجه
هل تصدقون ؟

يعني فقط عليك اضافته الى مشروعك وعمل InitCommonControls وستحصل على نفس النتيجة

سأرفقه في المرة القادمة ان شاء الله

موجود على موقع http://www.vbaccelerator.com/home/index.asp لكن أعتقد أنه من الضرورى أستخراجة , عموما نراجع المشروع اللى على الموقع.

أهلا مجددا

كنت أفكر مثلك أخي لكن عليك تجربة الملف

في الموقع الذي أوردته يتحدث عن الطريقة


بالتوفيق ان شاء الله للجميع

فعلا أنا جربت الملف
وطلع عندي نفس النتيجة بدون ماستخرج الملف من الروسورس

طيب ممكن أستفيد من الطريقة دي في وضع ملف الصوت

متشكرين على الملف