Android Code Snippet Switch Colors

Similar threads

B4A Code Snippet Change CheckBox colors
B4A Code Snippet Change EditText Colors
B4A Tutorial Cards list with CustomListView
B4A Tutorial AndroidX SDK
B4A Tutorial [B4X] [B4XPages] What exactly does it solve?


Staff member
Licensed User


Sub SetSwitchColors (Switch As Switch, On As Int, Off As Int)
   Dim p As Phone
   If p.SdkVersion < 16 Then Return
   Dim DrawableCompat As JavaObject
   Dim jo As JavaObject = Switch
   DrawableCompat.RunMethod("setTintList", Array(jo.RunMethod("getThumbDrawable", Null), CreateColorStateList(On, Off)))
End Sub

'Based on:
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

Depends on: JavaObject, Phone


Active Member
Licensed User
i want add colors to my switch
Dim SwNoti As Switch
How to activate these code (on that switch)?