چه جوري اسکين برنامه رو عوض کنم؟

[حاج سعيد امامي]

سلام
ميخواستم با استفاده از نرم افزار اکتيو اسکين اسکين برنامه ها رو عوض کنم اما هرکار کردم نشد کسي ميدونه چه جوري بايد اينکار رو بکنم؟

[noorsoft]

از کد زیر استفاده کن



Skin1.LoadSkin SkinFileName
Skin1.ApplySkin Me.hwnd

[حاج سعيد امامي]

از کد زیر استفاده کن



Skin1.LoadSkin SkinFileName
Skin1.ApplySkin Me.hwnd



از لطف شما ممنون
کد زير درست کدي که شما داديد ولي بازم هر کار کردم بازم کار نکردحتي رويداد هاي active skin رو هم عوض کردم .پروژه رو هم کامپايل کردم- فايل اسکين (در اينجا green)رو هم به فايل هاي برنامه اضافه کردم ام بازهم کار نکرد

Private Sub Skin1_SkinEvent(ByVal Source As ACTIVESKINLibCtl.ISkinObject, ByVal EventName As String)
Skin1.LoadSkin (Green)
Skin1.ApplySkin Me.hWnd


End Sub
===========================================
الان اشکال کار من کجاست که بر نامه کار نميکنه؟:عصبانی++:

[noorsoft]

دوست عزیز شما باید نام فایل را بصورت کامل بدین
path\green.skn

[حاج سعيد امامي]

دوست عزیز شما باید نام فایل را بصورت کامل بدین
path\green.skn
بازم از لطف شما ممنون ولي متاسفانه هنوز مشکل من حل نشده
=============================================
اين فرم برنامه
http://i33.tinypic.com/30jkwvp.jpg
=============================================
اينم کدي که شما گفتيد


Private Sub Skin1_SkinEvent(ByVal Source As ACTIVESKINLibCtl.ISkinObject, ByVal EventName As String)
Skin1.LoadSkin (f \ sofware \ Green.skn)
Skin1.ApplySkin Me.hWnd

End Sub

=============================================
حتي vb رو دباره پاک کردم و دوباره نصب کردم.برنامه رو هم کامپايل کردم اما اسکين برنامه عوض نشد

[noorsoft]

ببین باید این جوری بنویسی



Private Sub ّForm_Load()
Skin1.LoadSkin "f:\sofware\Green.skn"
Skin1.ApplySkin Me.hWnd

End Sub