تبليغاتX
ویژوال بیسیک - ویژوال ++c - الكترونيك - ویژوال بیسیک6 :: ایجاد ظاهر ویندوز XP در برنامه ها
ویژوال بیسیک - ویژوال ++c - الكترونيك
برنامه نویسی - الكترونيك - رياضيات
ویژوال بیسیک6 :: ایجاد ظاهر ویندوز XP در برنامه ها
سلام دوستان

دو برنامه زیر را مشاهده کنید:

شکل 1 - حالت عادی فرم

شکل ۲ - اعمال XP Style

عکس اول فاقد XP Style هستش با اینکه تو ویندوز XP اجرا شده ظاهرش مثل ویندوز 98 می مونه .برای تبدیل ظاهر برنامه ها به حالت XPStyle (مثل شکل دوم) باید یکی از دو روش زیر را انتخاب کنیم:

روش اول:

ابتدا یک تابع API فراخوانی می کنیم.(API مجموعه توابعی هستن که برای بالا بردن قدرت برنامه نویس ها از انها استفاده میشه و لی الان با اومدن NET FramWork. دیگه لازم به استفاده انچنانی ازش نیست.API مخفف Application Proraming Interface به معنی رابط برنامه نویسی کاربردی است)

خط زیر رو در قسمت General Delaration بنویسید:

 

Private Declare Function InitCommonControls Lib "comctl32.dll" () As Long

 

تابع مورد نظر ما InitCommonControls هست که محل فراخوانی اون رویداد Initialize از فرم مورد نظر هستش .پس رویداد ما به شکل زیر هست:

Private Sub Form_Initialize()

InitCommonControls

End Sub

خواب کار تو Visual Basic تمومه یعنی اگه پروژه مورد نظرتون دیگه کاری نداره فایل exe را بسازین.یک فایل متنی(txt) درست کنید و داخلش این متن رو کپی کنین: 

<?xml version="1.0" encoding="UTF-8" standalone="yes" ?>
<assembly xmlns="urn:schemas-microsoft-com:asm.v1" manifestVersion="1.0">
    <assemblyIdentity
        version="1.0.0.0"
        processorArchitecture="X86"
        name="CompanyName.ProductName.YourAppName"
        type="win32" />
    <description>Your application description here</description>
    <dependency>
        <dependentAssembly>
            <assemblyIdentity
                type="win32"
                name="Microsoft.Windows.Common-Controls"
                version="6.0.0.0"
                processorArchitecture="X86"
                publicKeyToken="6595b64144ccf1df"
                language="*" />
        </dependentAssembly>
    </dependency>
</assembly>

 

اگه حال گپی کردن ندارید یا فکر می کنین قالب مطالب بالا تو سیستم شما بهم ریخته است فایل متنی رو از این اینجا دانلود کنید:

 

 دانلود(حجم 1 کیلو بایت)

 

حالا فایل متنی رو به این نام ذخیره کنید:

نام فایل اجرایی که با VB ساختین همراه با پسوند EXE.MANIFEST. مثل زیر:

 

EXE.MANIFEST.نام فایل

 

حالا این فایل رو کنار فایل اجرایی قرار بدید یعنی در همون مسیری که فایل exe را Save کردید.حالا اگه برنامه را اجرا کنید از ریختش لذت می برید.

 

روش دوم: 

مزیت این روش اینه که احتیاج به فایل متنی ندارید که مثل طفیلی همراه برنامه باشه.

قبل از همه این فایل رو در محل نصب ویژوال بیسیک کپی کنید.این کار خود VB رو به شکل XP Style در می آره.

 

 دانلود(حجم 1 کیلو بایت)

 

محل پیش فرض نصب مثل زیر است:

C:\Program Files\Microsoft Visual Studio\VB98

این کار ربطی به روش دوم نداره و برای هر دو حالت عملی هستش.

 

 اما روش دوم:

در این روش از برنامه ای که همراه ویژوال بیسیک نصب میشه استفاده می کنیم.اسم برنامه اینه:

Microsoft (R) Windows 32 Resource Compiler, Version 5.00.1641.1 - Build 1641

و مسیر پیش فرض نصبش در زیر آمده:

c:\Program Files\Microsoft Visual Studio\VB98\Wizards\RC.EXE

دستور العمل استفاده از این برنامه:

Usage:  rc [options] .RC input file
Switches:
   /r    Emit .RES file (optional)
   /v    Verbose (print progress messages)
   /d    Define a symbol
   /u    Undefine a symbol
   /fo   Rename .RES file
   /l    Default language ID in hex
   /i    Add a path for INCLUDE searches
   /x    Ignore INCLUDE environment variable
   /c    Define a code page used by NLS conversion
   /w    Warn on Invalid codepage in .rc (default is an error)
   /n    Append null's to all strings in the string tables.
Flags may be either upper or lower case

البته نیازی به فهمیدن آنها نیست و ما فقط از دو تا سوئیچ استفاده می کنیم.که خودم تو یه فایل BAT دستور العمل اش رو نوشتم.

پروژه مورد نظرتون رو در VB باز کنید و خط زیر رو در قسمت General Delaration بنویسید:

 

Private Declare Function InitCommonControls Lib "comctl32.dll" () As Long

 

تابع مورد نظر ما InitCommonControls هست که محل فراخوانی اون رویداد Initialize از فرم مورد نظر هستش .پس رویداد ما به شکل زیر هست:

Private Sub Form_Initialize()

InitCommonControls

End Sub

تمامی چیز هاییکه باید داشته باشید در زیر قابل دانلود و آماده است.

 

دانلود(حجم فایل ۱ کیلوبایت)

 

بعد از دانلود فایل XP Style.BAT را اجرا کنید.وقتی فایل BAT را اجرا کردید در همان مسیری که BAT واقع شده یه فایل به اسم VBExpress.res ایجاد میشه.باید این فایل رو به پروژه اضافه کنید.به شکل زیر:

CTRL+D را فشار بدید و فایل VBExpress.res را انتخاب کنید.

اگر فایل VB6.EXE.Manifest را در پوشه نصب ویژوال بیسیک کپی نکرده باشید٬درهنگام طراحی٬حالت

XP Style را ندارید.

کار تمومه و فقط باید یه فایل اجرایی بسازید.بعد از اجرای برنامه می بینید که زندگی زیباست.

 


+ نوشته شده در  سه شنبه نهم مرداد 1386ساعت 19:14  توسط امید مسجودیان |