(新手vb编程)做扫雷程序,怎样生成9×9的格子?

来源:百度知道 编辑:UC知道 时间:2024/05/26 12:40:23
如题,怎样生成9×9的格子?总不至于要我自己用按钮一个一个拉出来吧~
我承认我很菜。。。
还有,生成了这些格子如何与数组a(x,y)对应。。。

'首先在窗体上创建一个按钮控件,NAME属性为C,INDEX属性设置为0,添加以下代码
Private Sub Form_Load()
For i = 1 To 80
Load C(i)
C(i).Visible = True
If i Mod 9 = 0 Then
C(i).Left = C(0).Left
C(i).Top = C(0).Top + C(0).Height * Int(i / 9)
Else
C(i).Left = C(i - 1).Left + C(i - 1).Width
C(i).Top = C(i - 1).Top
End If
Next i
End Sub

'此事件可以得到按钮所在行列数
Private Sub C_Click(Index As Integer)
x = Int(Index / 9) + 1 'x表示行数
y = (Index Mod 9) + 1 '表示列数
MsgBox "此按钮在第" & x & "行,第" & y & "列。"
End Sub

用循环做啊,