1

嗨，我的程序中当前有这个 TablelayoutPanel 设置，用于创建稍后对应特定列和行的按钮网格：

'****INITIALISES TABLE LAYOUT INTO FORM******
    Dim ColCount, RowCount As Integer

    'Later change so that values are automatically calculated
    ColCount = 5
    RowCount = 5

    '*********Copy and pasted from site as example, CHANGE LATER*******
    Haztable = New TableLayoutPanel
    Haztable.AutoScroll = True
    Haztable.Dock = DockStyle.Fill
    Haztable.ColumnCount = ColCount
    Haztable.RowCount = RowCount
    For rowNo As Integer = 0 To Haztable.RowCount - 1
        For columnNo As Integer = 0 To Haztable.ColumnCount - 1
            'Dim ctrl As Control = New Button
            'ctrl.Text = String.Format("{0} {1},{2}", ctrl.GetType().Name, columnNo, rowNo)
            'ctrl.Size = New Size(20, 20)
            'Haztable.Controls.Add(ctrl, columnNo, rowNo)
            Dim buttonname As String
            buttonname = "B" & columnNo & rowNo
            Dim button As Control = New Button
            button.Size = New Size(70, 20)
            button.Name = buttonname
            button.Text = buttonname
            Haztable.Controls.Add(button, columnNo, rowNo)
            AddHandler button.Click, AddressOf buttonname_Click
        Next
    Next
    Me.Controls.Add(Haztable)
    Call buttonfind()

这一切都有效，创建了一个按钮网格，很像 Excel 电子表格的布局。

这些按钮根据它们的 XY 位置命名（例如，（1,1）中的按钮将被称为“B11”）但问题是我似乎无法弄清楚如何解决这些按钮，即

*如果单击 B(XY)，则保存按下 X,Y 处的按钮的布尔值。

最好有一种算法来扫描并检查是否按下了任何按钮，而不是为每个按钮使用“选择案例”。我只会在设计器中创建按钮，但对于我的完整代码，我需要 1000 多个按钮，这似乎是一种低效的方法。

4

2 回答 2

0

您的 buttonname_Click 应该有一个 Sender 对象，它是您单击的 Button，只需将其转换为 Button 并检查名称。

Private Sub buttonname_Click(sender As System.Object, e As System.EventArgs) 
    Dim btn As Button = CType(sender, Button)

    Select Case btn.Name
        Case "B11"
            'Do something
        Case "B12"
            'Do Something esle

            '...........
    End Select

End Sub

根据您的最后一条语句，看看这是否有效，如果您需要在程序中的其他地方引用文本，您可能需要构建一个数组或列表

Private Sub buttonname_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
    Dim btn As Button = CType(sender, Button)

    If btn.Text = "H" Then
        btn.Text = "M"
    ElseIf btn.Text = "M" Then
        btn.Text = "L"
    ElseIf btn.Text = "L" Then
        btn.Text = ""
    Else
        btn.Text = "H"
    End If


End Sub
于 2013-01-03T18:21:29.050 回答
0

您已经添加了单击事件并使用它们的行号和列号来处理它们中的每一个。首先为自己创建一个新按钮，这样您就可以访问行号和列号，而无需花费精力从控件名称中解析列号和行号：

Public Class NewButton
    Inherits Button
    Public Row, Column, ClickCount as Integer
End Class

现在创建并处理：

Public Class Form1
    Sub addbuttons()
        Dim newbut As New NewButton
        newbut.Name = "B12"
        newbut.Row = "1"
        newbut.Column = "2"
        'and other properties...
        AddHandler newbut.Click, AddressOf clicked
        Me.Controls.Add(newbut)
    End Sub
    Sub clicked(sender As System.Object, e As System.EventArgs)
        Dim x As NewButton = DirectCast(sender, NewButton)
        If x.Column = 2 And x.Row = 1 Then
            x.ClickCount += 1
        End If
    End Sub
End Class
于 2013-01-03T18:33:11.757 回答