Reversi VB.net背后的逻辑

时间:2013-11-11 11:54:37

标签: vb.net

我正在尝试在VB.Net中制作逆转游戏。我在将游戏逻辑翻译成vb.net时遇到了一些困难

如果按钮为黑色且旁边的按钮为白色,则按下该按钮旁边的按钮将为黑色按下。

    newButton.tag = colum of button + (row of button * amount of columns)
    -> I made 64 buttons via a function loop and added a tag 


    Dim knop As Button = sender
    Dim value As String = knop.Tag
    If value = "...(?)" Then
        knop.BackColor = Color.Black
       If ....(?)
       End If
    End If

我已经使用按钮的标签制作了一个方案,但我发现很难实现逻辑。有人可以帮助我吗?

编辑:http://i.stack.imgur.com/3gdrJ.png

1 个答案:

答案 0 :(得分:0)

如果您使用Dim ButtonList As List(Of List(Of Button))并在运行时向表单添加按钮,则可以将每行的每个按钮添加到列表中,然后将该列表添加到ButtonList。现在,您可以通过二维列表中的索引访问每个按钮。

由于您正在更改背景颜色,只需使用它而不是使用标记。