أجعل ادواتك بشكل ادوات ويندوز اكس بى
كيف تـجعل برنامجك يـتـأثـر بـــ ( Themes Windows XP )
} قم بعمل مشروع جديد ثم اتبع الأتى بنفس النظام {
أولا قم بوضع التعريف التالى فى قسم الاعلانات .
Private Declare Function InitCommonControls Lib "comctl32.dll" () As Long
ثانيا ضع هذا الكود فى حدث ( Form_Initialize ) وليس فى حدث( Form_Load ) .
Private Sub Form_Initialize() InitCommonControls ' ضع هذا الكود فى حدث End Sub
ثالتا ضع الادوات الاتيه على الفورم .
Command1
VScroll1
Check1
Option1
Drive1
رابعا قم بحفظ المشروع وعمل exe للبرنامج ( اهم خطوة ) .
خامسا ادخل فى المجلد الذى انشأت به المشروع وقم بالضغط ( Right Click )
واختر ( New ) ثم ( Text Document ) .
قم بفتحه وانسخ فيه الكود التالى
<?xml version="1.0" encoding="UTF-8" standalone="yes"?> <assembly xmlns="urn:schemas-microsoft-com:asm.v1" manifestVersion="1.0"> <assemblyIdentity type="win32" processorArchitecture="*" version="6.0.0.0" name="mash"/> <description>Type your Project Name Here</description> <dependency> <dependentAssembly> <assemblyIdentity type="win32" name="Microsoft.Windows.Common-Controls" version="6.0.0.0" language="*" processorArchitecture="*" publicKeyToken="6595b64144ccf1df" /> </dependentAssembly> </dependency> </assembly>
سادسا قم بحفظ هذا الملف داخل مجلد مشروعك باختيار ( Save As ) على النسق التالى .
اسم مشروعك)).exe.mainfest
فمثلا اذا كان اسم مشروعك هو Project1
فسوف تحفظ الملف بهذا الأسم ( project1.EXE.MANIFEST )
الان شغـل ملف الــ ( ( exe الذى قمت بانشائه لبرنامجك وسوف ترى انه قد اخذ Xp Themes ) )
والان نأتى لتفصيل هذا الموضوع وكيف يعمل هذا الكود
وملخصه كالاتى :
عندما نقوم بتشغيل اى برنامج وبه هذا الكود يقوم الويندوز بالبحث عن هذا الملف الذى صنعناه
فاذا لم يجده لن يأخذ البرنامج شكل ( ( Themes الويندوز واذا وجده يتأثر البرنامج با لـ ( Themes ( الخاصة بالويندوز وكادليل على كلامى اذهب الى ا لــ
( C:Program FilesMessenger )
سوف تجد ان هناك ملف اسمه ( msmsgs.exe.manifest )
قم بانشاء تكست جديد واسحب فيه هذا الملف سوف تجد نفس الاكواد التى كتبناها بالاعلى
او قم بعمل( ( Search فى ( ( MyComputer بحيث يكون عنوان الــ ( Search )( MainFest.* ) وسوف تجد العديد من الملفات بهذا الامتداد قم بسحب اى منها فى
تكست جديد سوف تجد نفس الاكواد التى كتبناها بالاعلى واخيرا كتفصيل اكثر لهذه الدالة انها تقوم باخبار الويندوز انها تود استخدام هذه الميزه الموجوده فى ( COMCTL32.DLL )
المرفق فى ملفات الويندوز بالتحديد فى ( System32 )
ملاحظات هامة :
1- يجب ان ترفق هذا الملف ضمن مشروعك عند توزيعه حتى يتأثر بــ الـ ( Themes ) الفعالة للــ ( Xp )
2- فى السطر الموجود به هذه العباره ( Type your Project Name Here ) اكتب اسم مشروعك مع ملاحظة انه سوف تظهر لك رسالة خطأ اذا كتبته باللغة العربيه ولن يعمل البرنامج
3- لن تستطيع رؤية هذه التاثيرات عند قيامك بعمل ( Run ) للبرنامج من داخل الفيجوال بيسك يجب ان يكون هذا من خلال الــ ( exe ) الخاص بالمشروع فقط
4- لاتجهد نفسك فى محاولة ان تجعل مثلا اداه مثل( ProgressBar ) تأخذ شكل ا لــ (Xp) بهذا الكود لان هذا الكود لا يؤثر الا على الادوات القياسيه ويتضح هذا الكلام لك من خلال اسم الدالة ( InitCommonControls ) وهو يعنى الأدوات الشائعة
5- هذة الملاحظة ذكرها لى الأستاذ محمد حمود مشرف القسم العام بمنتدى فيجوال بيسك العرب
(إذا قمت بعمل الخطوات السابقة مع المف التنفيذي للفيجوال بيسك نفسه:
VB6.EXE
فإن الأدوات ستظهر بشكل ال XP حالما يتم وضعها على النموذج أثناء التصميم.
)
اسف للاطاله عليكم لكن كان يجب ان يأخذ الموضوع حقه فى الشرح ويوجد مع الرساله مثال
على هذا الموضوع والدرس مكتوب فى ملف وورد
} وارجو من الأخوة المشرفين تثبيت الموضوع لبعض الوقت حتى يستفيد منه اكبر قدر من الأعضاء لأهميته {
من اعداد : مصطفى عبد الظاهر ( مبرمج مصرى )
