扩展我之前的问题,我试图重用代码来为多个按钮分配颜色/状态。在我的最后一个问题中,我忘记了代码的颜色部分。这是我正在尝试的-但是在为其分配任何值之前使用了未声明的变量“buttonprs”。在我学习的过程中 - 我确定我有语法问题,感谢您的帮助!
Sub SetStateDrawable(Btn As Button, buttonPRS As ColorDrawable, buttonENL As ColorDrawable)
buttonENL.Initialize(Colors.Black,0)
buttonPRS.Initialize(Colors.DarkGray,0)
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) = buttonSLD.State_Pressed
buttonSLD.AddState2(buttonSTS, buttonPRS)
End Sub
SetStateDrawable(mybuttonBTN1, buttonPRS, buttonENL)
SetStateDrawable(mybuttonBTN2, buttonPRS, buttonENL)