(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“列。”
末端接头