0

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

1 に答える 1