📄 form1.frm

📁 一个简单的仿盛大传奇游戏
💻 FRM
📖 第 1 页 / 共 2 页
字号:
上一页 12
Label4.Caption = 0
ElseIf Label2.Caption < 0 Then
Label2.Caption = 0
End If
ProgressBar2.Value = Label4.Caption
ProgressBar1.Value = Label2.Caption
If ProgressBar2.Value = 0 Then
Timer10.Enabled = False
Timer11.Enabled = False
Timer12.Enabled = False
Timer13.Enabled = False
Timer14.Enabled = False
Timer15.Enabled = True
ElseIf ProgressBar1.Value = 0 Then
Timer10.Enabled = False
Timer11.Enabled = False
Timer12.Enabled = False
Timer13.Enabled = False
Timer14.Enabled = False
Timer16.Enabled = True
End If
End Sub

Private Sub Timer14_Timer()
Label5.Caption = ""
Command1.Visible = False
If Picture1.Top < MY Then
If Picture1.Left < MX Then
Picture1.Top = Picture1.Top + 5
Picture1.Left = Picture1.Left + 5
Timer1.Enabled = False
Timer2.Enabled = False
Timer3.Enabled = False
Timer4.Enabled = False
Timer6.Enabled = False
Timer7.Enabled = False
Timer8.Enabled = False
Timer9.Enabled = True
ElseIf Picture1.Left > MX Then
Picture1.Top = Picture1.Top + 5
Picture1.Left = Picture1.Left - 5
Timer1.Enabled = False
Timer2.Enabled = False
Timer3.Enabled = False
Timer4.Enabled = False
Timer6.Enabled = False
Timer7.Enabled = False
Timer8.Enabled = True
Timer9.Enabled = False
ElseIf Picture1.Left = MX Then
Picture1.Top = Picture1.Top + 5
Timer1.Enabled = False
Timer2.Enabled = True
Timer3.Enabled = False
Timer4.Enabled = False
Timer6.Enabled = False
Timer7.Enabled = False
Timer8.Enabled = False
Timer9.Enabled = False
End If
End If

If Picture1.Top > MY Then
If Picture1.Left < MX Then
Picture1.Top = Picture1.Top - 5
Picture1.Left = Picture1.Left + 5
Timer1.Enabled = False
Timer2.Enabled = False
Timer3.Enabled = False
Timer4.Enabled = False
Timer6.Enabled = False
Timer7.Enabled = True
Timer8.Enabled = False
Timer9.Enabled = False
ElseIf Picture1.Left > MX Then
Picture1.Top = Picture1.Top - 5
Picture1.Left = Picture1.Left - 5
Timer1.Enabled = False
Timer2.Enabled = False
Timer3.Enabled = False
Timer4.Enabled = False
Timer6.Enabled = True
Timer7.Enabled = False
Timer8.Enabled = False
Timer9.Enabled = False
ElseIf Picture1.Left = MX Then
Picture1.Top = Picture1.Top - 5
Timer1.Enabled = True
Timer2.Enabled = False
Timer3.Enabled = False
Timer4.Enabled = False
Timer6.Enabled = False
Timer7.Enabled = False
Timer8.Enabled = False
Timer9.Enabled = False
End If
End If

If Picture1.Top = MY Then
If Picture1.Left < MX Then
Picture1.Left = Picture1.Left + 5
Timer1.Enabled = False
Timer2.Enabled = False
Timer3.Enabled = False
Timer4.Enabled = True
Timer6.Enabled = False
Timer7.Enabled = False
Timer8.Enabled = False
Timer9.Enabled = False
ElseIf Picture1.Left > MX Then
Picture1.Left = Picture1.Left - 5
Timer1.Enabled = False
Timer2.Enabled = False
Timer3.Enabled = True
Timer4.Enabled = False
Timer6.Enabled = False
Timer7.Enabled = False
Timer8.Enabled = False
Timer9.Enabled = False
ElseIf Picture1.Left = MX Then
Select Case F
Case 1
Timer10.Enabled = True
Case 2
Timer11.Enabled = True
Case 3
Timer12.Enabled = True
Case 4
Timer13.Enabled = True
End Select
Timer1.Enabled = False
Timer2.Enabled = False
Timer3.Enabled = False
Timer4.Enabled = False
Timer6.Enabled = False
Timer7.Enabled = False
Timer8.Enabled = False
Timer9.Enabled = False
Timer5.Enabled = False
End If
End If
End Sub

Private Sub Timer15_Timer()
Label5.Caption = ""
Command1.Visible = False
Select Case F
Case 1
Picture2.Picture = LoadPicture(App.Path & "\bmp\xs" & Ps & ".BMP")
Case 2
Picture2.Picture = LoadPicture(App.Path & "\bmp\ss" & Ps & ".BMP")
Case 3
Picture2.Picture = LoadPicture(App.Path & "\bmp\zs" & Ps & ".BMP")
Case 4
Picture2.Picture = LoadPicture(App.Path & "\bmp\ys" & Ps & ".BMP")
End Select
Ps = Ps + 1
If Ps = 15 Then
Ps = 0
P2 = 2
Timer15.Enabled = False
End If
End Sub

Private Sub Timer16_Timer()
Label5.Caption = ""
Command1.Visible = False
Select Case F
Case 1
Picture1.Picture = LoadPicture(App.Path & "\bmp\ss" & Ps & ".BMP")
If Ps = 14 Then
msgbox1 = MsgBox("重新开始?", vbOKCancel, "GAMEOVER")
Select Case msgbox1
Case 1
Unload Me
Load Form2
Form2.Show
Case 2
Unload Me
Unload Form2
End Select
End If
Case 2
Picture1.Picture = LoadPicture(App.Path & "\bmp\xs" & Ps & ".BMP")
If Ps = 14 Then
msgbox1 = MsgBox("重新开始?", vbOKCancel, "GAMEOVER")
Select Case msgbox1
Case 1
Unload Me
Load Form2
Form2.Show
Case 2
Unload Me
Unload Form2
End Select
End If
Case 3
Picture1.Picture = LoadPicture(App.Path & "\bmp\ys" & Ps & ".BMP")
If Ps = 14 Then
msgbox1 = MsgBox("重新开始?", vbOKCancel, "GAMEOVER")
Select Case msgbox1
Case 1
Unload Me
Load Form2
Form2.Show
Case 2
Unload Me
Unload Form2
End Select
End If
Case 4
Picture1.Picture = LoadPicture(App.Path & "\bmp\zs" & Ps & ".BMP")
If Ps = 14 Then
msgbox1 = MsgBox("重新开始?", vbOKCancel, "GAMEOVER")
Select Case msgbox1
Case 1
Unload Me
Load Form2
Form2.Show
Case 2
Unload Me
Unload Form2
End Select
End If
End Select
Ps = Ps + 1
End Sub

Private Sub Timer17_Timer()
If Picture1.Top < MY Then
If Picture1.Left < MX Then
Picture1.Top = Picture1.Top + 5
Picture1.Left = Picture1.Left + 5
Timer1.Enabled = False
Timer2.Enabled = False
Timer3.Enabled = False
Timer4.Enabled = False
Timer6.Enabled = False
Timer7.Enabled = False
Timer8.Enabled = False
Timer9.Enabled = True
ElseIf Picture1.Left > MX Then
Picture1.Top = Picture1.Top + 5
Picture1.Left = Picture1.Left - 5
Timer1.Enabled = False
Timer2.Enabled = False
Timer3.Enabled = False
Timer4.Enabled = False
Timer6.Enabled = False
Timer7.Enabled = False
Timer8.Enabled = True
Timer9.Enabled = False
ElseIf Picture1.Left = MX Then
Picture1.Top = Picture1.Top + 5
Timer1.Enabled = False
Timer2.Enabled = True
Timer3.Enabled = False
Timer4.Enabled = False
Timer6.Enabled = False
Timer7.Enabled = False
Timer8.Enabled = False
Timer9.Enabled = False
End If
End If

If Picture1.Top > MY Then
If Picture1.Left < MX Then
Picture1.Top = Picture1.Top - 5
Picture1.Left = Picture1.Left + 5
Timer1.Enabled = False
Timer2.Enabled = False
Timer3.Enabled = False
Timer4.Enabled = False
Timer6.Enabled = False
Timer7.Enabled = True
Timer8.Enabled = False
Timer9.Enabled = False
ElseIf Picture1.Left > MX Then
Picture1.Top = Picture1.Top - 5
Picture1.Left = Picture1.Left - 5
Timer1.Enabled = False
Timer2.Enabled = False
Timer3.Enabled = False
Timer4.Enabled = False
Timer6.Enabled = True
Timer7.Enabled = False
Timer8.Enabled = False
Timer9.Enabled = False
ElseIf Picture1.Left = MX Then
Picture1.Top = Picture1.Top - 5
Timer1.Enabled = True
Timer2.Enabled = False
Timer3.Enabled = False
Timer4.Enabled = False
Timer6.Enabled = False
Timer7.Enabled = False
Timer8.Enabled = False
Timer9.Enabled = False
End If
End If

If Picture1.Top = MY Then
If Picture1.Left < MX Then
Picture1.Left = Picture1.Left + 5
Timer1.Enabled = False
Timer2.Enabled = False
Timer3.Enabled = False
Timer4.Enabled = True
Timer6.Enabled = False
Timer7.Enabled = False
Timer8.Enabled = False
Timer9.Enabled = False
ElseIf Picture1.Left > MX Then
Picture1.Left = Picture1.Left - 5
Timer1.Enabled = False
Timer2.Enabled = False
Timer3.Enabled = True
Timer4.Enabled = False
Timer6.Enabled = False
Timer7.Enabled = False
Timer8.Enabled = False
Timer9.Enabled = False
ElseIf Picture1.Left = MX Then
Select Case F
Case 1
Picture1.Picture = LoadPicture(App.Path & "\bmp\sz5.BMP")
Picture3.Picture = LoadPicture(App.Path & "\bmp\xz5.BMP")
Case 2
Picture1.Picture = LoadPicture(App.Path & "\bmp\xz5.BMP")
Picture3.Picture = LoadPicture(App.Path & "\bmp\sz5.BMP")
Case 3
Picture1.Picture = LoadPicture(App.Path & "\bmp\zz5.BMP")
Picture3.Picture = LoadPicture(App.Path & "\bmp\yz5.BMP")
Case 4
Picture1.Picture = LoadPicture(App.Path & "\bmp\yz5.BMP")
Picture3.Picture = LoadPicture(App.Path & "\bmp\zz5.BMP")
End Select
Label5.Caption = "路人:嗨,你好~!"
Command1.Visible = True
End If
End If
End Sub

Private Sub Timer2_Timer()
Label5.Caption = ""
Command1.Visible = False
Select Case I
Case I
Picture1.Picture = LoadPicture(App.Path & "\bmp\xz" & I & ".BMP")
If I = 9 Then
I = -1
End If
End Select
I = I + 1
End Sub

Private Sub Timer3_Timer()
Label5.Caption = ""
Command1.Visible = False
Select Case I
Case I
Picture1.Picture = LoadPicture(App.Path & "\bmp\zz" & I & ".BMP")
If I = 9 Then
I = -1
End If
End Select
I = I + 1
End Sub

Private Sub Timer4_Timer()
Label5.Caption = ""
Command1.Visible = False
Select Case I
Case I
Picture1.Picture = LoadPicture(App.Path & "\bmp\yz" & I & ".BMP")
If I = 9 Then
I = -1
End If
End Select
I = I + 1
End Sub

Private Sub Timer5_Timer()
Label5.Caption = ""
Command1.Visible = False
If Picture1.Top < MY Then
If Picture1.Left < MX Then
Picture1.Top = Picture1.Top + 5
Picture1.Left = Picture1.Left + 5
Timer1.Enabled = False
Timer2.Enabled = False
Timer3.Enabled = False
Timer4.Enabled = False
Timer6.Enabled = False
Timer7.Enabled = False
Timer8.Enabled = False
Timer9.Enabled = True
ElseIf Picture1.Left > MX Then
Picture1.Top = Picture1.Top + 5
Picture1.Left = Picture1.Left - 5
Timer1.Enabled = False
Timer2.Enabled = False
Timer3.Enabled = False
Timer4.Enabled = False
Timer6.Enabled = False
Timer7.Enabled = False
Timer8.Enabled = True
Timer9.Enabled = False
ElseIf Picture1.Left = MX Then
Picture1.Top = Picture1.Top + 5
Timer1.Enabled = False
Timer2.Enabled = True
Timer3.Enabled = False
Timer4.Enabled = False
Timer6.Enabled = False
Timer7.Enabled = False
Timer8.Enabled = False
Timer9.Enabled = False
End If
End If

If Picture1.Top > MY Then
If Picture1.Left < MX Then
Picture1.Top = Picture1.Top - 5
Picture1.Left = Picture1.Left + 5
Timer1.Enabled = False
Timer2.Enabled = False
Timer3.Enabled = False
Timer4.Enabled = False
Timer6.Enabled = False
Timer7.Enabled = True
Timer8.Enabled = False
Timer9.Enabled = False
ElseIf Picture1.Left > MX Then
Picture1.Top = Picture1.Top - 5
Picture1.Left = Picture1.Left - 5
Timer1.Enabled = False
Timer2.Enabled = False
Timer3.Enabled = False
Timer4.Enabled = False
Timer6.Enabled = True
Timer7.Enabled = False
Timer8.Enabled = False
Timer9.Enabled = False
ElseIf Picture1.Left = MX Then
Picture1.Top = Picture1.Top - 5
Timer1.Enabled = True
Timer2.Enabled = False
Timer3.Enabled = False
Timer4.Enabled = False
Timer6.Enabled = False
Timer7.Enabled = False
Timer8.Enabled = False
Timer9.Enabled = False
End If
End If

If Picture1.Top = MY Then
If Picture1.Left < MX Then
Picture1.Left = Picture1.Left + 5
Timer1.Enabled = False
Timer2.Enabled = False
Timer3.Enabled = False
Timer4.Enabled = True
Timer6.Enabled = False
Timer7.Enabled = False
Timer8.Enabled = False
Timer9.Enabled = False
ElseIf Picture1.Left > MX Then
Picture1.Left = Picture1.Left - 5
Timer1.Enabled = False
Timer2.Enabled = False
Timer3.Enabled = True
Timer4.Enabled = False
Timer6.Enabled = False
Timer7.Enabled = False
Timer8.Enabled = False
Timer9.Enabled = False
ElseIf Picture1.Left = MX Then
Timer1.Enabled = False
Timer2.Enabled = False
Timer3.Enabled = False
Timer4.Enabled = False
Timer6.Enabled = False
Timer7.Enabled = False
Timer8.Enabled = False
Timer9.Enabled = False
Timer5.Enabled = False
End If
End If
End Sub

Private Sub Timer6_Timer()
Label5.Caption = ""
Command1.Visible = False
Select Case I
Case I
Picture1.Picture = LoadPicture(App.Path & "\bmp\zsz" & I & ".BMP")
If I = 9 Then
I = -1
End If
End Select
I = I + 1
End Sub

Private Sub Timer7_Timer()
Label5.Caption = ""
Command1.Visible = False
Select Case I
Case I
Picture1.Picture = LoadPicture(App.Path & "\bmp\ysz" & I & ".BMP")
If I = 9 Then
I = -1
End If
End Select
I = I + 1
End Sub

Private Sub Timer8_Timer()
Label5.Caption = ""
Command1.Visible = False
Select Case I
Case I
Picture1.Picture = LoadPicture(App.Path & "\bmp\zxz" & I & ".BMP")
If I = 9 Then
I = -1
End If
End Select
I = I + 1
End Sub

Private Sub Timer9_Timer()
Label5.Caption = ""
Command1.Visible = False
Select Case I
Case I
Picture1.Picture = LoadPicture(App.Path & "\bmp\yxz" & I & ".BMP")
If I = 9 Then
I = -1
End If
End Select
I = I + 1
End Sub
上一页 12
⌨️ 快捷键说明

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