2014-11-21 53 views
0

我目前在使用Windows窗体应用程序的VB.net express 2013。我有一个面板上有84个按钮,每个按钮代表一个物理单元。当按下按钮时,我弹出一个对话框来显示该单元格的内容。但是,我不知道如何让代码拉取该按钮的名称,并将其放入where部分的sql语句中。我的按钮是名为cmdM01,cmdM02, cmdM03 ....等的设计。等等.Sql名称是M01,M02,M03等等。 *请注意,我现在正在使用1 = @shear进行测试。我需要弄清楚如何取代那个能识别细胞的东西。 这是到目前为止我的代码:如何选择什么按钮正在点击一个多按钮点击事件,由sql支持

Public Sub Button_Click(ByVal o As Object, ByVal e As EventArgs) Handles cmdM01.Click, cmdM02.Click, cmdM03.Click, cmdM04.Click, cmdM05.Click, cmdM06.Click, cmdM07.Click, 
    cmdM08.Click, cmdM09.Click, cmdM10.Click, cmdM11.Click, cmdM12.Click, cmdT01.Click, cmdT02.Click, cmdT03.Click, cmdT04.Click, cmdT05.Click, cmdT06.Click, cmdT07.Click, cmdT08.Click, 
    cmdT09.Click, cmdT10.Click, cmdT11.Click, cmdT12.Click, cmdT13.Click, cmdT14.Click, cmdT15.Click, cmdT16.Click, cmdT17.Click, cmdT18.Click, cmdT19.Click, cmdT20.Click, 
    cmdT21.Click, cmdT22.Click, cmdT23.Click, cmdT24.Click, cmdH01.Click, cmdH02.Click, cmdH03.Click, cmdH04.Click, cmdH05.Click, cmdH06.Click, cmdH07.Click, cmdH08.Click, cmdH09.Click, 
    cmdH10.Click, cmdH11.Click, cmdH12.Click, cmdH13.Click, cmdH14.Click, cmdH15.Click, cmdH16.Click, cmdH17.Click, cmdH18.Click, cmdH19.Click, cmdH20.Click, cmdH21.Click, 
    cmdH22.Click, cmdH23.Click, cmdH24.Click, cmdP01.Click, cmdP02.Click, cmdP03.Click, cmdP04.Click, cmdP05.Click, cmdP06.Click, cmdP07.Click, cmdP08.Click, cmdP09.Click, cmdP10.Click, 
    cmdP11.Click, cmdP12.Click, cmdP13.Click, cmdP14.Click, cmdP15.Click, cmdP16.Click, cmdP17.Click, cmdP18.Click, cmdP19.Click, cmdP20.Click, cmdP21.Click, cmdP22.Click, cmdP23.Click, cmdP24.Click 

    'load selection for all buttons 

    Using conn1 As New SqlConnection(connstring) 
     conn1.Open() 
     Using comm1 As New SqlCommand("SELECT Shear FROM Production.dbo.tblFabWipLog WHERE FabWipID = @Cell", conn1) 
      comm1.Parameters.AddWithValue("@Cell", 1) 
      Dim sql As New SqlDataAdapter(comm1) 
      Dim dt As New DataTable 
      sql.Fill(dt) 
      Dim f As New CellContent 
      f.LabelShear.Text = dt.Rows(0)("Shear").ToString 
      f.ShowDialog() 
     End Using 
    End Using 

End Sub 

回答

1

我这是怎么确定哪个按钮被点击,然后用Select Case来确定与所述键点击该怎么做。

Dim bt As Button = o 
Dim btName As String = bt.Text 

在你的情况下,如果按钮或ID的名称直接关系到你可以传递到您的参数从BT变量访问它的值。

+1

天才,我可以找出我自己的选择案例。你真棒。 – Cheddar 2014-11-21 14:25:01

1

你可以使用这样的事情

Dim btnName as string = o.name 

,以确定哪个按钮被点击