Question

我想知道如何在我的Scrabble游戏中迭代循环文本框。我有一个15x15的文本框网格，每个文本框的名称为Grid（数字），其中（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

VB.net中的拼字游戏

1 个答案: