縮小ボタン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)