گذاشتن عکس به جای ToggleButton

[Elyas Erfani 3,582]

سلام ودرووووووووووووود

 

گذاشتن عکس به جای ToggleButton

 

ابتدا در Sub Global :

Dim ToggleButton1 As ToggleButton
Dim Checked,Unchecked As BitmapDrawable
   Dim sld As StateListDrawable

اومدیم توگل باتنمون و 2تا متغیر از نوع

BitmapDrawable

و ی متغیر از نوع StateListDrawable

تعریف کردیم

 

سپس داخل Activity_Create :

	Checked.Initialize (LoadBitmap(File.DirAssets, "Checked.png"))
	Unchecked.Initialize (LoadBitmap(File.DirAssets, "Unchecked.png"))

در کد بالا Initialize کردیم و ادرس عکسو از DirAssests دادیم

 

حالا میایم sld رو Initialize میکنیم و State هارو ادد میکنیم ( در اکتیویتی کریت ) :

	sld.Initialize
    sld.AddState(sld.State_Checked, Checked)
    sld.AddState(sld.State_Unchecked, Unchecked)
    ToggleButton1.Background = sld

خوب تمام هست و در ساب اخر ک مربوط ب کلیک روی ToggleButton هست :

Sub ToggleButton1_CheckedChange(checked As Boolean)
	If ToggleButton1.Checked = True Then
	ToastMessageShow("Check Shod",False)
	Else
	ToastMessageShow("Uncheck",False)
	End If
End Sub

موفق باشید

[sadegh_54 5]

با سلام و عرض تبریک عید نوروز سال 1395خدمت دوستان و اساتید محترم. سوالی که داشتم اینکه که اگر بخوایم در برنامه ای بیش از یک ایتم تاگل باتن داشته باشیم و بخوایم بطور سفارشی اونا رو طراحی کنیم چه تغییراتی در کد بالا باید بدیم