📄 form2.frm

📁 用vb编写的华容道游戏
💻 FRM
📖 第 1 页 / 共 3 页
字号:
上一页 1 23
Dim no1 As String
Dim i As Integer

Select Case Index
Case 1
    Unload Me
    End
Case 0
    Me.WindowState = 1
Case 2
    If step_num = 1 Then
        step_num = 1
    Else
        step_num = step_num - 1
    End If
        Image3.Picture = PictureClip2.GraphicCell(step_num - 1)
    Select Case step_num
    Case 1
        Call Command3_Click
    Case 2
        Call Command4_Click
    Case 3
        Call Command6_Click
    Case 4
    Call Command7_Click
    'Case 5
    'Call Command7_Click
    End Select
    step1 = 0
    load_flag = False
    Data1.Database.Execute ("delete * from step")
Case 3
    If step_num = 4 Then
        step_num = 4
    Else
        step_num = step_num + 1
        End If
    Image3.Picture = PictureClip2.GraphicCell(step_num - 1)
    Select Case step_num
        Case 1
            Call Command3_Click
        Case 2
            Call Command4_Click
        Case 3
            Call Command6_Click
        Case 4
            Call Command7_Click
        'Case 5
        'Call Command7_Click
    End Select
    step1 = 0
    load_flag = False
    Data1.Database.Execute ("delete * from step")
Case 4
    Select Case step_num
        Case 1
            Call Command3_Click
        Case 2
            Call Command4_Click
        
        Case 3
            Call Command6_Click
        
        Case 4
            Call Command7_Click
        End Select
        step1 = 0
        load_flag = False
        Data1.Database.Execute ("delete * from step")
Case 5
 Form3.Show 1, Me
 If load_flag Then
 Image3.Picture = PictureClip2.GraphicCell(game_num - 1)

    Data1.RecordSource = "select * from step"
    Data1.Refresh
    Data1.Recordset.MoveFirst
    b(0, 0) = Data1.Recordset("b00")
    b(0, 1) = Data1.Recordset("b01")
    b(1, 0) = Data1.Recordset("b10")
    b(1, 1) = Data1.Recordset("b11")
    b(2, 0) = Data1.Recordset("b20")
    b(2, 1) = Data1.Recordset("b21")
    b(3, 0) = Data1.Recordset("b30")
    b(3, 1) = Data1.Recordset("b31")
    b(4, 0) = Data1.Recordset("b40")
    b(4, 1) = Data1.Recordset("b41")
    b(5, 0) = Data1.Recordset("b50")
    b(5, 1) = Data1.Recordset("b51")
    b(6, 0) = Data1.Recordset("b60")
    b(6, 1) = Data1.Recordset("b61")
    b(7, 0) = Data1.Recordset("b70")
    b(7, 1) = Data1.Recordset("b71")
    b(8, 0) = Data1.Recordset("b80")
    b(8, 1) = Data1.Recordset("b81")
    b(9, 0) = Data1.Recordset("b90")
    b(9, 1) = Data1.Recordset("b91")
    a(0, 0) = Data1.Recordset("a00")
    a(0, 1) = Data1.Recordset("a01")
    a(0, 2) = Data1.Recordset("a02")
    a(1, 0) = Data1.Recordset("a10")
    a(1, 1) = Data1.Recordset("a11")
    a(1, 2) = Data1.Recordset("a12")
    a(2, 0) = Data1.Recordset("a20")
    a(2, 1) = Data1.Recordset("a21")
    a(2, 2) = Data1.Recordset("a22")
    a(3, 0) = Data1.Recordset("a30")
    a(3, 1) = Data1.Recordset("a31")
    a(3, 2) = Data1.Recordset("a32")
    a(4, 0) = Data1.Recordset("a40")
    a(4, 1) = Data1.Recordset("a41")
    a(4, 2) = Data1.Recordset("a42")
    a(0, 3) = Data1.Recordset("a03")
    a(1, 3) = Data1.Recordset("a13")
    a(2, 3) = Data1.Recordset("a23")
    a(3, 3) = Data1.Recordset("a33")
    a(4, 3) = Data1.Recordset("a43")
        For i = 0 To 9
        Command1(i).Left = b(i, 1) * 600 + 1250
        Command1(i).Top = b(i, 0) * 600 + 1160
    Next i

    step1 = 1

 End If
Case 8
 If load_flag Then
    step1 = step1 + 1
    If step1 > max_step Then
    step1 = max_step
    MsgBox "最后一步!"
    Exit Sub
    End If
    Data1.RecordSource = "select * from step where aa=" & "'" & step1 & "'"
    Data1.Refresh
    b(0, 0) = Data1.Recordset("b00")
    b(0, 1) = Data1.Recordset("b01")
    b(1, 0) = Data1.Recordset("b10")
    b(1, 1) = Data1.Recordset("b11")
    b(2, 0) = Data1.Recordset("b20")
    b(2, 1) = Data1.Recordset("b21")
    b(3, 0) = Data1.Recordset("b30")
    b(3, 1) = Data1.Recordset("b31")
    b(4, 0) = Data1.Recordset("b40")
    b(4, 1) = Data1.Recordset("b41")
    b(5, 0) = Data1.Recordset("b50")
    b(5, 1) = Data1.Recordset("b51")
    b(6, 0) = Data1.Recordset("b60")
    b(6, 1) = Data1.Recordset("b61")
    b(7, 0) = Data1.Recordset("b70")
    b(7, 1) = Data1.Recordset("b71")
    b(8, 0) = Data1.Recordset("b80")
    b(8, 1) = Data1.Recordset("b81")
    b(9, 0) = Data1.Recordset("b90")
    b(9, 1) = Data1.Recordset("b91")
    a(0, 0) = Data1.Recordset("a00")
    a(0, 1) = Data1.Recordset("a01")
    a(0, 2) = Data1.Recordset("a02")
    a(1, 0) = Data1.Recordset("a10")
    a(1, 1) = Data1.Recordset("a11")
    a(1, 2) = Data1.Recordset("a12")
    a(2, 0) = Data1.Recordset("a20")
    a(2, 1) = Data1.Recordset("a21")
    a(2, 2) = Data1.Recordset("a22")
    a(3, 0) = Data1.Recordset("a30")
    a(3, 1) = Data1.Recordset("a31")
    a(3, 2) = Data1.Recordset("a32")
    a(4, 0) = Data1.Recordset("a40")
    a(4, 1) = Data1.Recordset("a41")
    a(4, 2) = Data1.Recordset("a42")
    a(0, 3) = Data1.Recordset("a03")
    a(1, 3) = Data1.Recordset("a13")
    a(2, 3) = Data1.Recordset("a23")
    a(3, 3) = Data1.Recordset("a33")
    a(4, 3) = Data1.Recordset("a43")
        For i = 0 To 9
        Command1(i).Left = b(i, 1) * 600 + 1250
        Command1(i).Top = b(i, 0) * 600 + 1160
    Next i


 End If
Case 6
frmAbout.Show 1, Me
Case 7
  Form1.Show 1, Me

Case 9
If step1 < 0 Then
    Exit Sub
End If
Data1.RecordSource = "select * from step where aa=" & "'" & step1 & "'"
Data1.Refresh
If Data1.Recordset.RecordCount < 1 Then
    Exit Sub
Else

   If step1 = 1 Then
      Select Case step_num
        Case 1
            Call Command3_Click
        Case 2
            Call Command4_Click
        
        Case 3
            Call Command6_Click
        
        Case 4
            Call Command7_Click
        End Select
        step1 = 0

   Else
    Data1.Database.Execute ("delete * from step where aa=" & "'" & step1 & "'")
    Data1.RecordSource = "select * from step"
    Data1.Refresh
    Data1.Recordset.MoveLast
    b(0, 0) = Data1.Recordset("b00")
    b(0, 1) = Data1.Recordset("b01")
    b(1, 0) = Data1.Recordset("b10")
    b(1, 1) = Data1.Recordset("b11")
    b(2, 0) = Data1.Recordset("b20")
    b(2, 1) = Data1.Recordset("b21")
    b(3, 0) = Data1.Recordset("b30")
    b(3, 1) = Data1.Recordset("b31")
    b(4, 0) = Data1.Recordset("b40")
    b(4, 1) = Data1.Recordset("b41")
    b(5, 0) = Data1.Recordset("b50")
    b(5, 1) = Data1.Recordset("b51")
    b(6, 0) = Data1.Recordset("b60")
    b(6, 1) = Data1.Recordset("b61")
    b(7, 0) = Data1.Recordset("b70")
    b(7, 1) = Data1.Recordset("b71")
    b(8, 0) = Data1.Recordset("b80")
    b(8, 1) = Data1.Recordset("b81")
    b(9, 0) = Data1.Recordset("b90")
    b(9, 1) = Data1.Recordset("b91")
    a(0, 0) = Data1.Recordset("a00")
    a(0, 1) = Data1.Recordset("a01")
    a(0, 2) = Data1.Recordset("a02")
    a(1, 0) = Data1.Recordset("a10")
    a(1, 1) = Data1.Recordset("a11")
    a(1, 2) = Data1.Recordset("a12")
    a(2, 0) = Data1.Recordset("a20")
    a(2, 1) = Data1.Recordset("a21")
    a(2, 2) = Data1.Recordset("a22")
    a(3, 0) = Data1.Recordset("a30")
    a(3, 1) = Data1.Recordset("a31")
    a(3, 2) = Data1.Recordset("a32")
    a(4, 0) = Data1.Recordset("a40")
    a(4, 1) = Data1.Recordset("a41")
    a(4, 2) = Data1.Recordset("a42")
    a(0, 3) = Data1.Recordset("a03")
    a(1, 3) = Data1.Recordset("a13")
    a(2, 3) = Data1.Recordset("a23")
    a(3, 3) = Data1.Recordset("a33")
    a(4, 3) = Data1.Recordset("a43")
    End If
    For i = 0 To 9
        Command1(i).Left = b(i, 1) * 600 + 1250
        Command1(i).Top = b(i, 0) * 600 + 1160
    Next i
    If step1 = 0 Then
        step1 = 0
    Else
        step1 = step1 - 1
    End If
End If
End Select
    Image2(2).Picture = PictureClip1.GraphicCell(0)
    Image2(1).Picture = PictureClip1.GraphicCell(0)
    Image2(0).Picture = PictureClip1.GraphicCell(0)

If step1 > 9 Then
    If step1 > 99 Then
        If step1 > 999 Then
        Else
            Image2(2).Picture = PictureClip1.GraphicCell(Int(step1 / 100))
            Image2(1).Picture = PictureClip1.GraphicCell(Int(step1 / 10) Mod 10)
            Image2(0).Picture = PictureClip1.GraphicCell(Int(step1 Mod 10))
        
        End If
    Else
        Image2(1).Picture = PictureClip1.GraphicCell(Int(step1 / 10))
        Image2(0).Picture = PictureClip1.GraphicCell(Int(step1 Mod 10))
    End If
Else
    Image2(0).Picture = PictureClip1.GraphicCell(step1)
End If

'Data1.RecordSource = "select * from step"
'Data1.Refresh


End Sub
Private Sub Command3_Click()
Dim i, j As Integer
left_ok = False
right_ok = False
up_ok = False
down_ok = False
step_num = 1
For i = 0 To 4
 For j = 0 To 3
   a(i, j) = 1
 Next j
Next i
a(4, 1) = 0
a(4, 2) = 0

b(0, 0) = 0
b(0, 1) = 0
b(1, 0) = 0
b(1, 1) = 1
b(2, 0) = 0
b(2, 1) = 3
b(3, 0) = 2
b(3, 1) = 0
b(4, 0) = 2
b(4, 1) = 1
b(5, 0) = 2
b(5, 1) = 3
b(6, 0) = 4
b(6, 1) = 0
b(7, 0) = 3
b(7, 1) = 1
b(8, 0) = 3
b(8, 1) = 2
b(9, 0) = 4
b(9, 1) = 3
For i = 0 To 9
Command1(i).Left = b(i, 1) * 600 + 1250
Command1(i).Top = b(i, 0) * 600 + 1160
Next i
End Sub

Private Sub Command4_Click()
Dim i, j As Integer
left_ok = False
right_ok = False
up_ok = False
down_ok = False
step_num = 2


For i = 0 To 4
 For j = 0 To 3
   a(i, j) = 1
 Next j
Next i
a(4, 1) = 0
a(4, 2) = 0

b(0, 0) = 0
b(0, 1) = 3
b(1, 0) = 0
b(1, 1) = 1
b(2, 0) = 3
b(2, 1) = 3
b(3, 0) = 0
b(3, 1) = 0
b(4, 0) = 3
b(4, 1) = 1
b(5, 0) = 3
b(5, 1) = 0
b(6, 0) = 2
b(6, 1) = 0
b(7, 0) = 2
b(7, 1) = 1
b(8, 0) = 2
b(8, 1) = 2
b(9, 0) = 2
b(9, 1) = 3
For i = 0 To 9
Command1(i).Left = b(i, 1) * 600 + 1250
Command1(i).Top = b(i, 0) * 600 + 1160
Next i

End Sub

Private Sub Command5_Click()
Dim i, j As Integer
left_ok = False
right_ok = False
up_ok = False
down_ok = False



For i = 0 To 4
 For j = 0 To 3
   a(i, j) = 1
 Next j
Next i
a(4, 1) = 0
a(4, 2) = 0

b(0, 0) = 0
b(0, 1) = 3
b(1, 0) = 0
b(1, 1) = 1
b(2, 0) = 3
b(2, 1) = 3
b(3, 0) = 0
b(3, 1) = 0
b(4, 0) = 2
b(4, 1) = 1
b(5, 0) = 3
b(5, 1) = 0
b(6, 0) = 3
b(6, 1) = 1
b(7, 0) = 3
b(7, 1) = 2
b(8, 0) = 2
b(8, 1) = 0
b(9, 0) = 2
b(9, 1) = 3
For i = 0 To 9
Command1(i).Left = b(i, 1) * 600 + 1250
Command1(i).Top = b(i, 0) * 600 + 1160
Next i

End Sub

Private Sub Command6_Click()
Dim i, j As Integer
left_ok = False
right_ok = False
up_ok = False
down_ok = False



For i = 0 To 4
 For j = 0 To 3
   a(i, j) = 1
 Next j
Next i
a(4, 1) = 0
a(4, 2) = 0

b(0, 0) = 1
b(0, 1) = 3
b(1, 0) = 0
b(1, 1) = 1
b(2, 0) = 3
b(2, 1) = 3
b(3, 0) = 1
b(3, 1) = 0
b(4, 0) = 2
b(4, 1) = 1
b(5, 0) = 3
b(5, 1) = 0
b(6, 0) = 3
b(6, 1) = 1
b(7, 0) = 3
b(7, 1) = 2
b(8, 0) = 0
b(8, 1) = 0
b(9, 0) = 0
b(9, 1) = 3
For i = 0 To 9
Command1(i).Left = b(i, 1) * 600 + 1250
Command1(i).Top = b(i, 0) * 600 + 1160
Next i


End Sub

Private Sub Command7_Click()
Dim i, j As Integer
left_ok = False
right_ok = False
up_ok = False
down_ok = False
'Frame1.Visible = False




For i = 0 To 4
 For j = 0 To 3
   a(i, j) = 1
 Next j
Next i
a(4, 3) = 0
a(4, 2) = 0

b(0, 0) = 0
b(0, 1) = 3
b(1, 0) = 0
b(1, 1) = 0
b(2, 0) = 3
b(2, 1) = 1
b(3, 0) = 0
b(3, 1) = 2
b(4, 0) = 2
b(4, 1) = 0
b(5, 0) = 3
b(5, 1) = 0
b(6, 0) = 2
b(6, 1) = 2
b(7, 0) = 2
b(7, 1) = 3
b(8, 0) = 3
b(8, 1) = 2
b(9, 0) = 3
b(9, 1) = 3
For i = 0 To 9
Command1(i).Left = b(i, 1) * 600 + 1250
Command1(i).Top = b(i, 0) * 600 + 1160
Next i


End Sub
上一页 1 23
💿 文件大小 371 K
👤 上传用户 feigo156
📂 所属分类游戏
🏷️ 相关标签

#编写
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -