0

このコードはプロジェクトで数回正常に機能していますが、コードを繰り返さずに複数のボタンで使用できるようにする最も簡単な方法を考えていました。たとえば、以下に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
4

1 に答える 1

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)
于 2011-10-28T14:20:21.080 に答える