1

スクラブルのゲームでテキスト ボックスを繰り返しループする方法を知りたいです。15x15 グリッドのテキスト ボックスがあり、それぞれに Grid(number) という名前が付けられています。ここで、(number) は 1 ～ 225 個のテキスト ボックスの数です。例を次に示します。これを変更して、ボード上のすべてのテキスト ボックス (Grid1 - Grid225) をループできるようにするにはどうすればよいですか?すべてのテキストボックス？

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

1 に答える 1

3

次のようなメソッドを構築します。

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
于 2012-11-02T14:08:41.570 に答える