Блог

Развивая мой предыдущий вопрос, я пытаюсь повторно использовать код для назначения цвета / состояния нескольким кнопкам. В моем последнем вопросе я забыл цветовую часть кода. Вот что я пытаюсь — но получение необъявленной переменной ‘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)
  

У вас есть два варианта: — Удалить два параметра ColorDrawable из вспомогательной подписи. — Инициализируйте параметры перед вызовом этого модуля.