vb.net - VB.net 中的拼字游戏板

Question

我想知道如何在我的拼字游戏中迭代地循环遍历文本框。我有一个 15x15 的文本框网格，每个网格的名称为 Grid(number)，其中 (number) 是 1-225 个文本框的数量。这是一个示例：如何更改此设置，以便我可以遍历板上的每个文本框（Grid1 - Grid225），以便我单击板上的任何文本框都将获得与文本框 CurrentPiece 相同的文本，而无需执行相同的代码每个文本框？

Private Sub Grid1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Grid1.Click
    Grid1.Text = CurrentPiece.Text

Answer 1

构建一个这样的方法：

Private Sub GridSpaceClick(ByVal sender As Object, ByVal e As EventArgs)
     Dim currentPiece As TextBox = DirectCast(sender, TextBox)

     '...
End Sub

然后遍历所有文本框以将其连接到它们的点击事件，如下所示：

For Each box As TextBox In Grid1.Controls.OfType(Of TextBox)()
    AddHandler box.Click, AddressOf GridSpaceClick
Next box