آموزش زبان ویژوال بیسیک و VB.Net

:: استفاده از Windows XP Themes در ویژوال بیسیک

در ابتدا برای اینکه این مطلب جابیفتد نظری به شکلهای زیر بیاندازید

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

شکل 2 - حالت فرم با استفاده از WinXP Themes

برای این کار باید از API ها استفاده کنیم . API برگرفته شده از سر واژه های Application Programing Interface (رابط برنامه نویسی کاربردی) است . API ها توابعی از پیش ساخته شده در سیستم عامل ویندوز هستند که می توانیم از انها در برنامه نویسی در Visual Basic استفاده کنیم . این توابع در چندین فایل Dll موجودند که از جمله این فایلها متوان KERNEL32 , USER32 , GDI32 , WINMM و .... . ما برای استفاده از WinXP Themes باید از تابع InitCommonControls که در کتابخانه ی که در و یندوز XP موجود است استفاده می کنیم . برای فراخوانی (Declare ) یک تابع از متد زیر استفاده میکنیم :

Private Declare Function <نام تابع> Lib " Dll نام کتابخانه " () As Long

پس برای فراخوانی تابع InitCommonControls با توجه به متد بالا در قسمت General فرم در ویژوال بیسیک کد زیر را می نویسیم :

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

اکنون برای form در رویداد Initialize کد زیر را بنویسید ( رویداد Initialize وقتی فراخوانی می شود که فرم ایجاد شود ) :

Private Sub Form_Initialize()
InitCommonControls
End Sub

تا اینجا کارمان با فرم تمام شد و اکنون می توانید چند CommandButton , CheckBox , OptionButton , . . . را به فرم اضافه کنید . و پس از اتمام کار بر روی فرم آنرا Compile کرده و بصورت Exe می سازیم .

یک New Text Document را در همان پوشه ای که فایل exe وجود دارد می سازیم و کدهای زیر را در آن کپی می کنیم و بعد آنراذخیره می کنیم . حالا باید نام و پسوند فایل را تغییر دهیم و مطابق الگوی مقابل عمل کنیم EXE.MANIFEST.نام فایل exe

برای اینکه نام و پسوند فایل را عوض کنیم نیاز به این داریم که نام و پسوند فایل را به طور کامل ببینیم برای این کار وارد Control Panel شده و Folder Option را اجرا می کنیم بعد به قسمت View شده و تیک Hide Extentions For Known File Type را بر می داریم حالا همه فایلها را با نام و پسوند کامل مشاهده می کنیم و میتوانیم با استفاده از Rename (کلید F2) نام فایل را با توجه به متد بالا تغییر دهیم . مثلا اگر نام فایل exe بصورت ُSample.exe باشد نام فایل که با پسوند txt است را به Sample.exe.MANIFEST تغییر می دهیم .

-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-

کد مربوط به فایل EXE.MANIFEST.نام فایل exe

<?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>Enter your Description Here</description>
<dependency>
   <dependentAssembly>
      <assemblyIdentity
           type="win32"
           name="Microsoft.Windows.Common-Controls" version="6.0.0.0"
           language="*"
           processorArchitecture="*"
         publicKeyToken="6595b64144ccf1df"
      />
   </dependentAssembly>
</dependency>
</assembly>

+ نوشته شده در پنجشنبه نوزدهم آذر 1383ساعت 0:13 توسط پژمان رودخانه ای |

نوشته های پیشین

پیوندها