줄이기 button statelistdrawablecode

Question

이 코드는 내 프로젝트에서 몇 번 제대로 작동하지만 코드를 반복하지 않고 여러 버튼에 사용할 수있는 가장 쉬운 방법이 궁금합니다. 예를 들면 - 아래에 mybuttonBTN1이 있고 mybuttonBTN2 등을 추가하고 싶습니다. - 몇 가지 방법을 시도했지만 항상 이상한 결과가 나타납니다. 같은

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) = bbuttonSLD.State_Pressed 
buttonSLD.AddState2(bbuttonSTS, buttonPRS) 
mybuttonBTN1.Background = buttonSLD 

Answer 1

뭔가 :

Sub SetStateDrawable (Btn As Button, Pressed As Drawable, Enabled As Drawable) 
Dim buttonSLD As StateListDrawable 
buttonSLD.Initialize 
Dim buttonSTS(2) As Int 
buttonSTS(0) = buttonSLD.State_Enabled 
buttonSTS(1) = -buttonSLD.State_Pressed 
buttonSLD.AddState2(buttonSTS, Pressed) 
Dim buttonSTS(1) As Int 
buttonSTS(0) = bbuttonSLD.State_Pressed 
buttonSLD.AddState2(bbuttonSTS, Enabled) 
Btn.Background = buttonSLD 
End Sub 

SetStateDrawable(myButtonBTN1, buttonPRS, buttonENL)