Home/ Questions/Q 6751459
In Process

The Archive Base Latest Questions

Editorial Team
  • 0
Asked: 2026-05-26T12:55:47+00:00

I have this code working fine a few times in my project but was

  • 0

I have this code working fine a few times in my project but was wondering the easiest way to allow it to be used for multiple buttons without repeating the code. For example – I have mybuttonBTN1 below and would like to add mybuttonBTN2, etc. – I’ve tried a few ways but always get weird results. 

Dim buttonSLD As StateListDrawable
buttonSLD.Initialize
Dim buttonSTS(2) As Int
buttonSTS(0) = buttonSLD.State_Enabled
buttonSTS(1) = -buttonSLD.State_Pressed
buttonSLD.AddState2(buttonSTS, buttonENL)
Dim buttonSTS(1) As Int
buttonSTS(0) = bbuttonSLD.State_Pressed
buttonSLD.AddState2(bbuttonSTS, buttonPRS)
mybuttonBTN1.Background = buttonSLD
Share

Leave an answer

You must login to add an answer.

Need An Account,

1 Answer

  1. Editorial Team

    Something like:

    Sub SetStateDrawable (Btn As Button, Pressed As Drawable, Enabled As Drawable)
 Dim buttonSLD As StateListDrawable
 buttonSLD.Initialize
 Dim buttonSTS(2) As Int
 buttonSTS(0) = buttonSLD.State_Enabled
 buttonSTS(1) = -buttonSLD.State_Pressed
 buttonSLD.AddState2(buttonSTS, Pressed)
 Dim buttonSTS(1) As Int
 buttonSTS(0) = bbuttonSLD.State_Pressed
 buttonSLD.AddState2(bbuttonSTS, Enabled)
 Btn.Background = buttonSLD
End Sub

 SetStateDrawable(myButtonBTN1, buttonPRS, buttonENL)
    • 0