кнопка индексации в vb.net 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

Похоже, вы хотите установить состояние одной кнопки в отличие от других в наборе.

Вот код, который поможет вам сделать это.

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

Answer 3

Я думаю, что вы пытаетесь (плохо) реализовать NumericUpDown элемент управления.http://msdn.microsoft.com/en-us/library/729xt55s.aspx

Просто перетащите его в форму, возможно, установите его свойства, и он будет готов к работе.