(vb编程新手)做扫雷程序时如何生成9×9的网格?

首先,在窗体上创建一个button控件,将C的NAME属性和C,INDEX属性设置为0,并添加以下代码。

私有子窗体_Load()

对于i = 1到80

负载C(i)

丙(一)。可见=真

如果我Mod 9 = 0,那么

丙(一)。左= C(0)。左边的

丙(一)。Top = C(0)。Top + C(0)。高度* Int(i / 9)

其他

丙(一)。左= C(i - 1)。左+ C(i - 1)。宽度

丙(一)。Top = C(i - 1)。顶端

如果…就会结束

接下来我

末端接头

该事件可以获取按钮所在的行数和列数。

私有Sub C_Click(索引为整数)

X = Int(Index/9)+1 'x表示行数。

Y = (Index Mod 9)+1 '表示列数。

MsgBox "此按钮在第一个" &;x & amp“好的,第一个”&;y & amp“列。”

末端接头