前の質問を拡張して、コードを再利用して複数のボタンに色/状態を割り当てようとしています。前回の質問で、コードの色の部分を忘れていました。これが私が試みていることです-しかし、宣言されていない変数「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)