Question

vb制作扫雷游戏的问题

vb如何制作扫雷游戏。
写出添加控件的英文名称，代码。
谢谢，
我要做一个20x20的

谢谢

Answer 1

见：

http://zhidao.baidu.com/question/184684773.html?qbl=relate_question_0&word=vb%BC%D3%D4%D8%BF%D8%BC%FE%CA%FD%D7%E9

自己做了一个：

初始设置：

控件数组Command1()  ’通过设置Index=0建立

开始按钮Command2

　　
Const HT = 400 '储存height
Const WT = 400 '储存width
Dim vbRow As Integer
Dim vbLine As Integer

Private Sub Command2_Click()
Command2.Visible = False
Dim cter As Integer
For cter = 1 To 400
    Load Command1(cter)
    
    vbRow = Int(cter Mod 20)        '列值
    If cter Mod 20 = 0 Then vbRow = 20 '如果被20整除说明在第20列，vbRow应该返回20而非0
    vbLine = Int(cter \ 20) + 1     '行值
    If cter Mod 20 = 0 Then vbLine = vbLine - 1 '如果被20整除，“/”运算返回值将比真实的vbLine多1，应返回vbLine-1
    
    Command1(cter).Height = HT
    Command1(cter).Width = WT
    Command1(cter).Top = (vbLine - 1) * (HT + 10)
    Command1(cter).Left = (vbRow - 1) * (WT + 10)
    Command1(cter).Visible = True
    
    DoEvents '防止程序卡死
Next cter
End Sub

Private Sub Form_Load() '用于显示【开始！】按钮（Command2）
Form1.Height = (HT + 10) * 20 + 10
Form1.Width = Form1.Height
Command2.Top = (Form1.Height - Command2.Height) / 2
Command2.Left = (Form1.Width - Command2.Width) / 2
End Sub

Answer 2

hnvb juuyjhnv bjn