تغییر رنگ سویچ متریال درb4a

باسلام خد مت پازا تکی های عزیز

در این اموزش قصد دارم  تغییر رنگ سویچ متریال در میحط b4a رو براتون اموزش بدم

خوب میریم سرغ اموزش

#AdditionalJar: com.android.support:support-compa

Sub SetSwitchColors (Switch As Switch, On As Int, Off As Int)
Dim p As Phone

  If p.SdkVersion < ۱۶ Then
 Return
 Dim DrawableCompat As JavaObject

   DrawableCompat.InitializeStatic(“android.support.v4.graphics.drawable.DrawableCompat”)

   Dim jo As JavaObject = Switch

   DrawableCompat.RunMethod(“setTintList”, Array(jo.RunMethod(“getThumbDrawable”, Null), CreateColorStateList(On, Off)))

End Sub

#content
Sub CreateColorStateList(On As Int,Off As Int) As Object
 Dim sd As StateListDrawable ‘ignore

   Dim States(2,1) As Int

   States(0,0) = sd.State_Checked

   States(1,0) = sd.State_Enabled

   Dim CSL As JavaObject

   CSL.InitializeNewInstance(“android.content.res.ColorStateList”,Array(States, Array As Int(On, Off)))

   Return CSL

End Sub