Form1:
Private Sub Form_Load()
Dim temp As Integer
Randomize
temp = Int(Rnd * 3) + 1
Form1.Picture = LoadPicture("C:\Users\Administrator\Desktop\打地鼠\picture" & temp & ".jpg")
WindowsMediaPlayer1.URL = "C:\Users\Administrator\Desktop\打地鼠\Heaven's Devils.wma"
End Sub
Private Sub Label1_Click()
Form2.Show
Form2.num = -1
Form1.Hide
WindowsMediaPlayer1.URL = ""
Open "C:\Users\Administrator\Desktop\打地鼠\primary.dat" For Append As #1    '写操作
Close #1
Open "C:\Users\Administrator\Desktop\打地鼠\intermediate.dat" For Append As #2
Close #2
Open "C:\Users\Administrator\Desktop\打地鼠\advanced.dat" For Append As #3
Close #3
End Sub
Private Sub Label2_Click()
End
End Sub
Form2:
Dim allnum As Integer, oknum As Integer '定义变化次数 打中次数
Public num As Integer  '判别是否第一次开始游戏
Dim flags1 As Boolean  '判别文件是否保存
Public flags As Boolean  '判别是否播放声音
Private Sub countine_Click()
pause.Enabled = True
Timer1.Enabled = True
countine.Enabled = False
WLXZ.Enabled = True
End Sub
Private Sub exit_Click()
Dim X As Integer
Dim tt As Integer
X = MsgBox("是否真的退出？", vbYesNo, "退出游戏框")
If X = 6 Then
    tt = MsgBox("退出游戏之前,是否保存", vbYesNo, "保存提示")
            If tt = 6 Then
              If flags1 = True Then
                    End
              Else
                  If Timer1.Interval = 1000 Then
                        Open "C:\Users\Administrator\Desktop\打地鼠\primary.dat" For Append As #1    '写操作
                        Print #1, Text1.Text + "  " + Format(Date, "M/d/yy")
                        Close #1
                  ElseIf Timer1.Interval = 500 Then
                        Open "C:\Users\Administrator\Desktop\打地鼠\intermediate.dat" For Append As #2
                        Print #2, Text1.Text + "  " + Format(Date, "M/d/yy")
printform                        Close #2
                  Else
                        Open "C:\Users\Administrator\Desktop\打地鼠\advanced.dat" For Append As #3
                        Print #3, Text1.Text + "  " + Format(Date, "M/d/yy")
                        Close #3
                  End If
              End If
        End If
      End
End If
End Sub
Private Sub Form_Load()
Form4.Check1.Value = 1
WindowsMediaPlayer1.Controls.stop
countine.Enabled = False
pause.Enabled = False
WLXZ.Enabled = False
Form5.Top = Form2.Top + 700
Form5.Left = Form2.Left
flags1 = False
flags = True
End Sub
Private Sub help_Click()
Form3.Show
End Sub
Private Sub new_game_Click()
num = num + 1
Dim t As Integer
If (num > 0) Then
    t = MsgBox("新游戏开始之前,是否保存", vbYesNo, "保存提示")
    If t = 6 Then
          flags1 = True
          If Timer1.Interval = 1000 Then
                Open "C:\Users\Administrator\Desktop\打地鼠\primary.dat" For Append As #1    '写操作
                Print #1, Text1.Text + "  " + Format(Date, "M/d/yy")
                Close #1
            ElseIf Timer1.Interval = 500 Then
                Open "C:\Users\Administrator\Desktop\打地鼠\intermediate.dat" For Append As #2
                Print #2, Text1.Text + "  " + Format(Date, "M/d/yy")
                Close #2
            Else
                Open "C:\Users\Administrator\Desktop\打地鼠\advanced.dat" For Append As #3
                Print #3, Text1.Text + "  " + Format(Date, "M/d/yy")
                Close #3
            End If
    End If
End If
Call Form_Load
allnum = 0  '变化次数初始为0
  oknum = 0  '打中次数初始为0
Timer1.Enabled = True
pause.Enabled = True
WLXZ.Enabled = True
End Sub
Private Sub options_Click()
Timer1.Enabled = False
Form4.Show
WLXZ.Enabled = False
countine.Enabled = True
End Sub
Private Sub pause_Click()
Dim r, g, b As Integer
Timer1.Enabled = False
countine.Enabled = True
pause.Enabled = False
WLXZ.Enabled = False
Form5.Top = Form2.Top + 700
Form5.Left = Form2.Left
Form5.Show
r = Rnd * 255
g = Rnd * 255
b = Rnd * 255
Form5.BackColor = RGB(r, g, b)
End Sub
Private Sub Picture1_Click(Index As Integer)
  If Picture1(Index).Visible = True Then
    Picture1(Index).Picture = Src.Picture1.Picture '击晕图显示
    If flags = True Then
        WindowsMediaPlayer1.Controls.play
    End If
  End If
  oknum = oknum + 1 '打中次数+1
End Sub
Private Sub statistics_Click()
Form5.Show
WLXZ.Enabled = False
countine.Enabled = True
End Sub
Private Sub record_Click()
Form6.Show
End Sub
Private Sub Timer1_Timer()
Dim I As Integer
Text1.Text = oknum & "/" & allnum  '打印得分

版权声明：本站内容均来自互联网，仅供演示用，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198，我们将在24小时内删除。