الأن يمكنكم جعل برامجكم تأخذ Xp Style

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

رأيت هذا الموضوع في أحد المنتديات وأحببت أن أنقله لكم لأهميته

عند عمل برنامج ب 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

وأيضا إليكم مثال .

إضغط هنا

أتمنى ان تنتفعو به

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

XP.rar

الأن يمكنكم جعل برامجكم تأخذ Xp Style

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