السلام عليكم
هذه طريقة سهلة جداً وهي المعتدمة لتطبيق ال XP Style على برامج الVB 6 وذلك من خلال إرشاد البرنامج على النسخة الجديدة من version 6.0 comctl32.dll
أولاً عليك إنشاء ولمرة واحدة فقظ ملف Manifest وهو بصيغة XML و تعطيه نفس أسم البرنامج " MyProject.exe.manifest"
قم إذا بفتح المفكرة ولصق فيها هذا الكود ثم قم بتسميته بإسم مشروعك
<?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>Codelibrary</description> <dependency> <dependentAssembly> <assemblyIdentity type="win32" name="Microsoft.Windows.Common-Controls" version="6.0.0.0" language="*" processorArchitecture="*" publicKeyToken="6595b64144ccf1df" /> </dependentAssembly> </dependency> </assembly>
أما في البرنامج تقوم بوضع هذا الكود
Private Declare Function InitCommonControls Lib "Comctl32.dll" () As Long Private Sub Form_Initialize() Dim X As Long X = InitCommonControls End Sub
وأخيراً قم بإنشاء ملف EXE أنتبه ملف ال Manifest وال exe يجب أن يكونو في ذات المجلد
