vb2010 在 MouseDown 事件上获取按钮名称

Question

如何捕获按钮的名称，以便可以在另一种形式中使用它来查询数据库。我是 vb 新手，仍处于早期学习阶段，因此我们将不胜感激。

frmMain

Private Sub btnA_MouseDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles btnA.MouseDown
        If (e.Button = Windows.Forms.MouseButtons.Right) Then
            frmRacks.Show()
        ElseIf (e.Button = Windows.Forms.MouseButtons.Left) Then
            MessageBox.Show("Left clicked")
        End If
    End Sub

frmRacks

这是我需要捕获名称以查询数据库的地方

Answer 1

Private Sub Button1_MouseDown(sender As Object, e As MouseEventArgs) Handles Button1.MouseDown
    Dim name As String = DirectCast(sender, Button).Name
End Sub

Answer 2

有很多方法可以做到这一点，一种是在frmRack中声明公共字段/变量，另一种是使用ShowDialog而不是Show：

我先用第一个（公开）：

Public buttonName as String

然后在从您的 frmMain 中单击按钮时，您传递的值如下：

Private Sub btnA_MouseDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles btnA.MouseDown
    If (e.Button = Windows.Forms.MouseButtons.Right) Then
       frmRacks.buttonName = "btnA" ' Or you could use DirectCast as proposed by dbasnett
       frmRacks.Show()
    ElseIf (e.Button = Windows.Forms.MouseButtons.Left) Then
        MessageBox.Show("Left clicked")
    End If
End Sub

然后在加载您的 frmRacks 时，您现在可以选择分配按钮名称，例如：

Private Sub frmRacks_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
  Dim query as String =  "SELECT * FROM " + buttonName 'This is only an example you could make your own here
End Sub

Answer 3

应该是MouseButtons.Left 而不是Windows.Forms.MouseButtons.Left

If e.Button = MouseButtons.Left Then
    MsgBox("Left Button Clicked") 'OR WHATEVER YOU WANT IT TO DO?!
End If