複数のボタンColorDrawable /状態の構文

Question

私の以前の質問では、色と状態を複数のボタンに割り当てるためにコードを再利用しようとしています。私の最後の質問では、コードの色部分を忘れてしまった。ここで私がしようとしている - しかし、宣言されていない変数 'buttonprs'を取得する前に、任意の値が割り当てられています。私が学んでいるように - 私は構文の問題があると確信しており、あなたの助けに感謝しています！ - サブ署名から2つのColorDrawableのパラメータを削除し ：

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) 

Answer 1

は、2つのオプションがあります。 - このサブを呼び出す前にパラメータを初期化します。