在VB.net中绘制可点击的框

时间:2015-02-08 23:04:45

标签: vb.net

我目前正在制作国际象棋游戏作为副项目,但我正在努力弄清楚如何使不同的瓷砖可点击。搜索只产生了一个不起作用的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

这是我目前用来绘制国际象棋棋盘的代码。

0 个答案:

没有答案