インデックスボタンは、2010年

Question

私のコードは次のとおりです。

Private Sub btn1_Click(sender As System.Object, e As System.EventArgs) Handles btn1.Click, btn2.Click, btn3.Click 
    Dim objBtn() As Object = {btn1, btn2, btn3} 
    Dim btn As Button 
    With objBtn 
     btn = CType(objBtn(x), Button) 
     If btn.FlatStyle = FlatStyle.Standard Then 
      btn.FlatStyle = FlatStyle.Flat 
      btn.FlatAppearance.BorderColor = Color.OrangeRed 
     Else 
      btn.FlatStyle = FlatStyle.Standard 
     End If 
    End With 
End Sub 

私は自動的にxの値を制御するプログラムのために何をしなければなりませんか？つまり、私はbtn1をクリックすると、xの値は0になります。もし私がbtn2をクリックすると、xの値は1に等しくなります。ありがとうございました。

Answer 1

これは、あなたが望むことをします。 ：D

x = objBtn.IndexOf(sender)

Answer 2

私はあなたが（悪い）NumericUpDown制御を実装しようとしていると思います。 http://msdn.microsoft.com/en-us/library/729xt55s.aspx

Jusドラッグ&フォームにドロップして、プロパティを設定しても構いません。

Answer 3

ボタンの状態をセット内の他のボタンとは異なるように設定したようです。

これを行うのに役立つコードは次のとおりです。

Private Sub btn1_Click(sender As System.Object, e As System.EventArgs) Handles _ 
btn1.Click, btn2.Click, btn3.Click 
    Dim buttons() As Button = {btn1, btn2, btn3} 

    For Each btn in buttons 
     If btn Is sender Then 
      btn.FlatStyle = FlatStyle.Standard 
     Else 
      btn.FlatStyle = FlatStyle.Flat 
      btn.FlatAppearance.BorderColor = Color.OrangeRed 
     End If 
    Next 
End Sub