سورسهای رایگان برای vb6

[roze_abi-r]

اول این کد رو در جنرال فرمی که میخواهیداجزاش به شکل فرمهای اکس پی در بیاد کپی کنید
Option Explicit
Private Declare Function InitCommonControls Lib "comctl32.dll" () As Long
Private Sub Form_Initialize()
InitCommonControls
End Sub
بعد نوت پد رو اجرا کنید و کدهای زیر رو توش کپی کنید
<?xml version="1.0" encoding="UTF-8" standalone="yes"?>
<assembly xmlns="urn:schemas-microsoft-com:asm.v1" manifestVersion="1.0">
<assemblyIdentity
type="win32"
name="ppedv.xptest.XP"
processorArchitecture="X86"
version="1.0.0.0"
/>
<description>Ein XP Test mit Visual Styles</description>
<dependency>
<dependentAssembly>
<assemblyIdentity
type="win32"
name="Microsoft.Windows.Common-Controls"
language="*"
processorArchitecture="X86"
version="6.0.0.0"
publicKeyToken="6595b64144ccf1df"
/>
</dependentAssembly>
</dependency>
</assembly>
بعد از منوی فایل گزینه سیو از رو انتخاب کنید و در این پنجره کادر انتخابی که کنارش نوشته
Encoding
رو
utf-8
تنظیم کنید و نام فایل رو به اسم برنامه خودتون با پسوند
.exe.manifest
ذخیره کنید فقط به یاد داشته باشین همین فایلی رو که الان ساختین رو در کنار فایل اجرایی برنامه بزارین
برای این کار باید یک فایل اجرایی واسه برنامتون از قبل ساخته باشید
فراموش نشه که این فایلی رو که ساختین همیشه باید در کنار فایل اصلی برنامه باشه منظور از برنامه اجرایی همون برنامه ای که پسوند ای ایکس ای داره
اگر هم موفق نشدین یه برنامه نمونه هم میتونید از اینجا دانلود کنید که فقط 5 کیلو بایت حجم داره
http://www.devtrain.de/data/Alle/xpstyle.zip
موفق باشید

[juve2008]

بهتر بود این سورس رو با یه برنامه آپ میکردی