این برنامه کارش چیه؟

[ahp_online]

سلام
کسی میتونه این تابع رو توضیح بده وکارایی شو در برنامه بگه؟
Public Function InitCommonControlsVB() As Boolean
On Error Resume Next
Dim iccex As tagInitCommonControlsEx
' Ensure CC available:
With iccex
.lngSize = LenB(iccex)
.lngICC = ICC_USEREX_CLASSES
End With
InitCommonControlsEx iccex
InitCommonControlsVB = (Err.Number = 0)
On Error GoTo 0
End Function

[Restlesa]

این تکه کد باعث میشه که وقتی برنامه ات رو به صورت فایل اجرایی در آوردی تمامی ابزارهای بکار رفته در برنامه ات رو به حالت استایل ویندوز تبدیل می کنه
البته یه خورده ناقص هستش ... کد کاملش رو برات قرار میدم

Private Type tagInitCommonControlsEx
lngSize As Long
lngICC As Long
End Type
Private Declare Function InitCommonControlsEx Lib "comctl32.dll" (iccex As tagInitCommonControlsEx) As Boolean
Private Const ICC_USEREX_CLASSES = &H200

Public Function InitCommonControlsVB() As Boolean
On Error Resume Next
Dim iccex As tagInitCommonControlsEx
With iccex
.lngSize = LenB(iccex)
.lngICC = ICC_USEREX_CLASSES
End With
InitCommonControlsEx iccex
InitCommonControlsVB = (Err.Number = 0)
On Error GoTo 0
End Function
Private Sub Form_Initialize()
InitCommonControlsVB
End Sub

[night_secret]

دقیقا واسه کجا ها استفاده میشه اصلا چرا باید استفاده کنیم؟

[Restlesa]

بايدي در كار نيست دوست عزيز
شما اگه از خود ابزار vb استفاده كنيد متوجه ميشيد كه استايل ابزارها اساتيلي شبيه به ويندوز 98 داره شما با اين كد مي تونيد استايل ويندوز xp رو به ابزارهاي برنامه تون بدين

[ahp_online]

سلام
این که با یک کامپوننت هم میشه این کار رو کرد.کامپوننتی که دو خط برنامه داره!

[محسن واژدی]

سلام
کد apiی زیر نیز استایل برنامه را با ویندوز همگام میکند، منتها مختصرتر:

Private Declare Sub InitCommonControls Lib "comctl32" ()

Private Sub Form_Initialize()
Call InitCommonControls
End Sub


موفق باشید

[kitcat_m18]

آقا من جفتشو امتحان كردم اما جواب نداد چرا؟؟؟ :متفکر:

[Restlesa]

سلام
اگه اشتباه نکنم به خاطر عدم استفاده از فایل manifest هستش
از این فایل کنار برنامه ات استفاده کن ببین مشکل بر طرف میشه یا نه
اگه نحوه ساخت این فایل رو بلد نیستین، نحوه ساختش در تاپیک ـرشیو سورس های کاربردی و به درد بخور پیداش کنید

[Snoopboy]

اسن سورس یکی از کامل ترین این نمونه هاست. نمونه های معمولی به دکمه هخا و Frame ها گیر می دادن و خوب اسکین ویندوز ست نمی شد ولی توی این سورس مشکل بر طرف شده توی ویندوز 7 هم کار می کنه

79261

[ahp_online]

اسن سورس یکی از کامل ترین این نمونه هاست. نمونه های معمولی به دکمه هخا و Frame ها گیر می دادن و خوب اسکین ویندوز ست نمی شد ولی توی این سورس مشکل بر طرف شده توی ویندوز 7 هم کار می کنه

79261

سلام
من اینو دانلود کردم ولی جواب نمیده؟!

[محسن واژدی]

سلام
کد جناب Snoopboy http://barnamenevis.org/images/buttons/viewpost-left.png (http://barnamenevis.org/showthread.php?p=1396935#post1396935)را تست نکرده ام اما میتوانید مراحل زیر را هم برای بررسی بیشتر موضوع انجام دهید:
1- در Form1 پروژه جدید چند دکمه و ... قرار بدهید (برای مشاهده تاثیرات)
2- کدهای پست 6 را در ماژول Form1 جایگزین کنید
3- پروژه را با نام Project1.exe کمپایل کنید
4- یک فایل manifest را از فولدر system در کنار exe کمپایل شده کپی کنید (برای نمونه %systemroot%\system32\logonui.exe.manifest)
5- نام manifest را به project1.exe.manifest تغییر بدین و برنامه را اجرا کنید

موفق باشید