با سلام و سپاس خدمت کاربران سایت یاهو ۹۸ YAHOO

امروز براتون قطعه کدی کاربردی مهیا کرده ایم که امیدوارم مفید واقع گردد

تغییر رنگ چک باکس CheckBox حالت های عادی، تیک خورده و غیرفعال

تابع:

Sub SetColorTintList(CB As CheckBox,Checked As Int,Enabled As Int,Disabled As Int)

  Dim States(3,1) As Int

  States(0,0) = 16842912   'Checked
  States(1,0) = 16842910    'Enabled
  States(2,0) = -16842910 'Disabled


  Dim Color(3) As Int = Array As Int(Checked,Enabled,Disabled)

  Dim CSL As JavaObject
  CSL.InitializeNewInstance("android.content.res.ColorStateList",Array As Object(States,Color))
  Dim CB1 As JavaObject = CB
  CB1.RunMethod("setButtonTintList",Array As Object(CSL))
End Sub

 
استفاده:
 

SetColorTintList(CheckBox1,colors.red,colors.black,colors.gray)

 

۱: اسم چک باکس ۲: رنگ تیک خورده ۳: رنگ عادی ۴: رنگ غیرفعال