السلام عليكــم ورحمـة الله وبركاتــه
رأيت هذا الموضوع في أحد المنتديات وأحببت أن أنقله لكم لأهميته
عند عمل برنامج ب VB6 فإن شكل البرنامج يظل بدائياً :wacko: ولا يشبه الشكل المنعش لـ XP .
لحل تلك المشكلة بدون إستخدام أي OCX's من خارج البرنامج قم بعمل الأتي :
1- إضافة Module لبرنامجك و كتابة الكود التالي به :
Public Type TagInitCommonControlsEx lngSize As Long lngICC As Long End Type Declare Function InitCommonControlsEx Lib "COMCTL32.DLL" (iccex As TagInitCommonControlsEx) As Boolean Public Const ICC_USEREX_CLASSES = &H200 Public Sub Main() On Error Resume Next Dim iccex As tagInitCommonControlsEx With iccex .lngSize = LenB(iccex) .lngICC = ICC_USEREX_CLASSES End With InitCommonControlsEx iccex Form1.Show End Sub
حيث يمكنك إستبدال كلمة Form1 في السطر قبل الأخير بالفورم التي تريد أن تبدأ بها البرنامج .
2- افتح برنامج NotePad و أكتب بداخله الكود التالي :
<?xml version="1.0" encoding="UTF-8" standalone="yes"?> <assembly xmlns="urn:schemas-microsoft-com:asm.v1" manifestVersion="1.0"> <assemblyIdentity name="Microsoft.Windows.Shell.explorer" processorArchitecture="x86" version="5.1.0.0" type="win32"/> <description>Windows Shell</description> <dependency> <dependentAssembly> <assemblyIdentity type="win32" name="Microsoft.Windows.Common-Controls" version="6.0.0.0" processorArchitecture="x86" publicKeyToken="6595b64144ccf1df" language="*" /> </dependentAssembly> </dependency> </assembly>
بعد ذلك قم بحفظ الملف بإسم MyProject.exe.Manifest حيث MyProject هو إسم ملف EXE الخاص بالبرنامج .
و ضعه ذلك الملف مع ملف EXE في مجلد واحد
3- قم بتغيير StartUP Object إلى SubMain من قائمة Projects
وأيضا إليكم مثال .
أتمنى ان تنتفعو به
والسلام عليكم ورحمة الله وبركاته