索引按钮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 drag &将它放到您的窗体中，可能会设置它的属性，并且它将准备就绪。

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