ساخت یه چک باکس سفارشی با تصویر دلخواهتان

فقط کافیه شما بجای Checkbox یه ToggleButton بیارید توی فرم و تابع زیر رو فراخوانی کنید.
دو تا تصویر میخواد یکی برای حالت معمولی و یکی هم برای حالتی که تیک خورده
جالبه نه؟!!!!

Sub ChangeCheckBoxImage(chk As ToggleButton)

Dim c1 As StateListDrawable
Dim actColor,hoverColor As BitmapDrawable

actColor.Initialize(LoadBitmapSample(File.DirAssets,"checkbox_on.png",32,32))
hoverColor.Initialize(LoadBitmapSample(File.DirAssets,"checkbox_off.png",32,32))

c1.Initialize
c1.AddState(c1.State_Checked,actColor)
c1.AddState(c1.State_Unchecked,hoverColor)
c1.AddCatchAllState(hoverColor)

chk.Background = c1

End Sub

 

دیدگاهتان را بنویسید