我的项目中有几次这段代码运行良好,但想知道最简单的方法是允许它用于多个按钮而不重复代码。例如 - 我在下面有 mybuttonBTN1 并想添加 mybuttonBTN2 等。 - 我尝试了几种方法,但总是得到奇怪的结果。
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