رفتن به مطلب

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


Elyas Erfani

ارسال های توصیه شده

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

 

گذاشتن عکس به جای 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

موفق باشید :gol::ok:

لینک ارسال
به اشتراک گذاری در سایت های دیگر

  • 5 ماه بعد...

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

لینک ارسال
به اشتراک گذاری در سایت های دیگر

بایگانی شده

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

  • کاربران آنلاین در این صفحه   0 کاربر

    • هیچ کاربر عضوی،در حال مشاهده این صفحه نیست.
×
×
  • اضافه کردن...