我目前正在制作国际象棋游戏作为副项目,但我正在努力弄清楚如何使不同的瓷砖可点击。搜索只产生了一个不起作用的C#答案。
我已经使用creategraphics命令在我的表单上绘图,如果有任何帮助的话。
Sub DrawBoard()
Dim Board As Graphics = Me.CreateGraphics
Dim BlackPen As New Pen(Color.Black, 3)
Board.Clear(Color.White)
For i = 0 To 3
For j = 0 To 6 Step 2
Board.FillRectangle(Brushes.Gray, j * 60, 120 * i, 60, 60)
Next
For j = 1 To 7 Step 2
Board.FillRectangle(Brushes.Gray, j * 60, (120 * i) + 60, 60, 60)
Next
Next
For i = 0 To 7
For f = 0 To 7
Board.DrawRectangle(BlackPen, i * 60, (f * 60), 60, 60)
Next
Next
BlackPen.Dispose()
End Sub
这是我目前用来绘制国际象棋棋盘的代码。