多按钮ColorDrawable / State语法

Question

扩展我之前的问题，我试图重用代码将颜色/状态分配给多个按钮。在我的上一个问题中，我忘记了代码的颜色部分。这是我正在尝试的 - 但在分配任何值之前使用未声明的变量'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)

Answer 1

您有两种选择： - 从子签名中删除两个ColorDrawable参数。 - 在调用此子句之前初始化参数。