تغییر اسکین با رادیو باتن

[kingdaniyal]

سلام دوستان یه سوال
من یه فرم درست کردم که کاربر بتونه از طریق اون اسکین نرم افزارو تغییر بده.
چجوری اینکارو بکنم؟

راستی یه سوال دیگه هم دارم
من کلاس IrisSkin رو تو یه فایل ریختم.حالا میخوام با کدنویسی(فقط کدنویسی) برنامه این کلاسو از تو اون فایل بخونه.

[asghar2008]

از کدوم اسکین استفاده میکنید؟

تو خاصیت CheckedChanged مر بوط به radioButton1 کد هاتو بنویس.

[JaVa]

خوب اینکه کاری نداره.

شما به تعداد اسکین هات بیا رادیو باتن بزار روی فرم. بعد با یه دستور if ساده بگو مثلا اگه رادیو باتن 1 فعال بود پس اسکین فرم رو اینو انتخاب کن.

یه مثال :

Private Sub ButtonX1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonX1.Click
If RadioButton1.Checked = True Then
MessageBox.Show("رادیو باتن 1")
ElseIf RadioButton2.Checked = True Then
MessageBox.Show("رادیو باتن 2")
ElseIf RadioButton3.Checked = True Then
MessageBox.Show("رادیو باتن 3")
ElseIf RadioButton4.Checked = True Then
MessageBox.Show("رادیو باتن 4")
ElseIf RadioButton5.Checked = True Then
MessageBox.Show("رادیو باتن 5")
ElseIf RadioButton6.Checked = True Then
MessageBox.Show("رادیو باتن 6")
ElseIf RadioButton7.Checked = True Then
MessageBox.Show("رادیو باتن 7")
End If
End Sub

بجای MessageBox.Show("رادیو باتن 7") اسکین فرم رو فعال کن.

موفق باشید

[kingdaniyal]

دوست عزیز اینو خودم میدونستم چجوری دستور اسکینو بدم؟

[asghar2008]

سلام

پسوند اسکین هات چیه؟

ببین من قبلا همین کارو انجام داد.روش من این بود که نام تمامی اسکینها به همراه پسوند در یه کمبوباکس میرختم .بعددر فراخوانی از نام انتخاب شده در کمبو باکس استفاده میکردم.همش 2 خطه !!!

SkinEngine1.SkinFile = My.Application.Info.DirectoryPath & "\skin\" & Trim(ComboBox1.Text)
SkinEngine1.Active = True

در استارت آپ برنامه یه پوشه به نام skin ایجاد کن و فابل های اسکین رو اونجا بریز. به همین سادگی.

[kingdaniyal]

نه دوست عزیز من نمیخوام اینجوری باشه
یعنی کسی دیگه ای نمیتونه کمک کنه؟:|

[kingdaniyal]

کمک کنید نیاز ااسی دارم

[Dr.Bronx]

نه دوست عزیز من نمیخوام اینجوری باشه
یعنی کسی دیگه ای نمیتونه کمک کنه؟:|

دوستمون جواب شما رو دادند دیگه .

خوب شما بفرمایید چه جوری میخواید باشه تا دوستان یا بنده راهنمایی کنیم .

[kingdaniyal]

ببینید این فرم تنظیمات که اول باز نمیشه بعدا باز میشه.
من وقتی تازه تنظیماتو بزنم فرم اسکینش تغییر میکنه.
ببینید من میخوام در اول یه اسکین به صورت پیش فرض روی کل فرمهام باشه.
بعد وقتی کاربر رفت تو فرم تنظیمات بتونه این اسکینو تغییر بده

[maxvel]

این برای اینکه فرمتون به صورت پیش فرض با اسکین باز شه


Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim ski As New SkinEngine
ski.SkinFile = Application.StartupPath & "\name skin.ssk"
End Sub
و این هم بوسیله ی رادیو باتن که فک کنم دوستمون کاملا توضیح داد و منم استفاده میکنم الان از توضیحاتشون

Dim ski As New SkinEngine
Private Sub ButtonX1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonX1.Click
If RadioButton1.Checked = True Then
ski.SkinFile = Application.StartupPath & "\skin1.ssk"
ElseIf RadioButton2.Checked = True Then
ski.SkinFile = Application.StartupPath & "\skin2.ssk"
ElseIf RadioButton3.Checked = True Then
ski.SkinFile = Application.StartupPath & "\skin3.ssk"
ElseIf RadioButton4.Checked = True Then
ski.SkinFile = Application.StartupPath & "\skin4.ssk"

End If
End Sub

[kingdaniyal]

ببینید این فرم تنظیمات اول نمییاد ببینید این فرم تنظیمات بعدا وارد میشه من او کد اولی رو باید تو فرم اول بزارم که تنظیمات نیست
تازه وقتی اون کد دومی رو هم بزارم تو فرم تنظیمات فقط فرم تنظیمات اسکینش عوض میشه بابا یه بار خودتون امتحان کنید :|:گریه::گریه:
یعنی هیچ کس بلد نیست؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟ ؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟

[kingdaniyal]

ببینیند فرم برنامه اینجوریه

اول یه فرم میاد که نام کاربر و تعداد نفراتو میپرسه که کد اولی و این فرم ریخته شده
بعد فرم اصلی بازی میاد
از طریق فرم اصلی بازی یه گزینه هست که نوشته تنظیمات
روی اون کلیک میکنم بعد 2 تا رادیو باتن هست به نام های اسکین 1 و اسکین 2
فهمیدید ؟:عصبانی++::عصبانی++::عصبانی++: :عصبانی++::عصبانی++::عصبانی++::� �صبانی++::عصبانی++::عصبانی++:

[kingdaniyal]

دوستن مشکلم حل شد مرسی