📄 form1.frm
字号:
Width = 765
End
Begin VB.Image chaoche3
Height = 300
Index = 2
Left = -765
Picture = "Form1.frx":6E6B
Top = 5880
Visible = 0 'False
Width = 765
End
Begin VB.Image chaoche3
Height = 300
Index = 0
Left = -765
Picture = "Form1.frx":7ADD
Stretch = -1 'True
Top = 5880
Visible = 0 'False
Width = 765
End
Begin VB.Image chaoche1
Height = 300
Left = -765
Picture = "Form1.frx":874F
Stretch = -1 'True
Top = 5880
Visible = 0 'False
Width = 765
End
Begin VB.Image zuoche
Height = 300
Index = 2
Left = -765
Picture = "Form1.frx":93C1
Top = 5880
Visible = 0 'False
Width = 765
End
Begin VB.Image zuoche
Height = 300
Index = 1
Left = -765
Picture = "Form1.frx":A033
Top = 5880
Visible = 0 'False
Width = 765
End
Begin VB.Image zuoche
Height = 300
Index = 0
Left = -765
Picture = "Form1.frx":ACA5
Top = 5880
Visible = 0 'False
Width = 765
End
Begin VB.Image youche
Height = 300
Index = 2
Left = 15240
Picture = "Form1.frx":B917
Top = 4440
Visible = 0 'False
Width = 765
End
Begin VB.Image youche
Height = 300
Index = 1
Left = 15240
Picture = "Form1.frx":BCA6
Top = 4440
Visible = 0 'False
Width = 765
End
Begin VB.Image youche
Height = 300
Index = 0
Left = 15240
Picture = "Form1.frx":C035
Top = 4440
Visible = 0 'False
Width = 765
End
Begin VB.Line Line7
X1 = 0
X2 = 15240
Y1 = 3840
Y2 = 3840
End
Begin VB.Line Line6
BorderColor = &H0080FFFF&
BorderStyle = 2 'Dash
X1 = 0
X2 = 15240
Y1 = 4320
Y2 = 4320
End
Begin VB.Line Line5
BorderColor = &H0080FFFF&
BorderStyle = 2 'Dash
X1 = 0
X2 = 15240
Y1 = 4800
Y2 = 4800
End
Begin VB.Line Line4
X1 = 0
X2 = 15240
Y1 = 6720
Y2 = 6720
End
Begin VB.Line Line3
BorderColor = &H0080FFFF&
BorderStyle = 2 'Dash
X1 = 0
X2 = 15240
Y1 = 6240
Y2 = 6240
End
Begin VB.Line Line2
BorderColor = &H0080FFFF&
BorderStyle = 2 'Dash
X1 = 0
X2 = 15240
Y1 = 5760
Y2 = 5760
End
Begin VB.Line Line1
BorderWidth = 3
X1 = 0
X2 = 15240
Y1 = 5280
Y2 = 5280
End
End
Attribute VB_Name = "form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Dim m1 As Integer
Dim m30 As Integer
Dim m31 As Integer
Dim m32 As Integer
Private Sub chaoche1Timer_Timer()
chaoche1.Visible = True
If chaoche1.Left = -765 Then
Randomize
m1 = Int((100 * Rnd) + 80)
End If
If chaoche1.Left < 15240 Then
chaoche1.Left = chaoche1.Left + m1
Else
chaoche1.Left = -765
chaoche1.Visible = False
End If
If chaoche1.Left + 765 >= chaoche3(0).Left And chaoche1.Left + 565 < chaoche3(0).Left And chaoche1.Top = chaoche3(0).Top Then
chaoche1.Top = 5640
chaoche3(0).Top = 5880
chaoche1.Left = chaoche1.Left + m1
ElseIf chaoche1.Left + 565 >= chaoche3(0).Left And chaoche3(0).Left + 565 >= chaoche1.Left Then
chaoche1.Top = 5400
chaoche3(0).Top = 5880
chaoche1.Left = chaoche1.Left + m1
ElseIf chaoche1.Left > chaoche3(0).Left + 565 And chaoche1.Left <= chaoche3(0).Left + 765 Then
chaoche1.Top = 5640
chaoche3(0).Top = 5880
chaoche1.Left = chaoche1.Left + m1
ElseIf chaoche1.Left >= chaoche3(0).Left + 765 Then
chaoche1.Top = 5880
chaoche3(0).Top = 5880
chaoche1.Left = chaoche1.Left + m1
End If
If chaoche1.Left + 765 >= chaoche3(1).Left And chaoche1.Left + 565 < chaoche3(1).Left And chaoche1.Top = chaoche3(1).Top Then
chaoche1.Top = 5640
chaoche3(1).Top = 5880
chaoche1.Left = chaoche1.Left + m1
ElseIf chaoche1.Left + 565 >= chaoche3(1).Left And chaoche3(1).Left + 565 >= chaoche1.Left Then
chaoche1.Top = 5400
chaoche3(1).Top = 5880
chaoche1.Left = chaoche1.Left + m1
ElseIf chaoche1.Left > chaoche3(1).Left + 565 And chaoche1.Left <= chaoche3(1).Left + 765 Then
chaoche1.Top = 5640
chaoche3(1).Top = 5880
chaoche1.Left = chaoche1.Left + m1
ElseIf chaoche1.Left >= chaoche3(1).Left + 765 Then
chaoche1.Top = 5880
chaoche3(1).Top = 5880
chaoche1.Left = chaoche1.Left + m1
End If
If chaoche1.Left + 765 >= chaoche3(2).Left And chaoche1.Left + 565 < chaoche3(2).Left And chaoche1.Top = chaoche3(2).Top Then
chaoche1.Top = 5640
chaoche3(2).Top = 5880
chaoche1.Left = chaoche1.Left + m1
ElseIf chaoche1.Left + 565 >= chaoche3(2).Left And chaoche3(2).Left + 565 >= chaoche1.Left Then
chaoche1.Top = 5400
chaoche3(2).Top = 5880
chaoche1.Left = chaoche1.Left + m1
ElseIf chaoche1.Left > chaoche3(2).Left + 565 And chaoche1.Left <= chaoche3(2).Left + 765 Then
chaoche1.Top = 5640
chaoche3(2).Top = 5880
chaoche1.Left = chaoche1.Left + m1
ElseIf chaoche1.Left >= chaoche3(2).Left + 765 Then
chaoche1.Top = 5880
chaoche3(2).Top = 5880
chaoche1.Left = chaoche1.Left + m1
End If
End Sub
Private Sub chaoche30Timer_Timer()
chaoche3(0).Visible = True
If chaoche3(0).Left = -765 Then
Randomize
m30 = Int((80 * Rnd) + 60)
End If
If chaoche3(0).Left < 15240 Then
chaoche3(0).Left = chaoche3(0).Left + m30
Else
chaoche3(0).Left = -765
chaoche3(0).Visible = False
End If
If chaoche3(0).Left + 765 >= chaoche1.Left And chaoche3(0).Left + 565 < chaoche1.Left And chaoche1.Top = chaoche3(0).Top Then
chaoche3(0).Top = 5640
chaoche1.Top = 5880
chaoche3(0).Left = chaoche3(0).Left + m30
ElseIf chaoche3(0).Left + 565 >= chaoche1.Left And chaoche1.Left + 565 >= chaoche3(0).Left Then
chaoche3(0).Top = 5400
chaoche1.Top = 5880
chaoche3(0).Left = chaoche3(0).Left + m30
ElseIf chaoche3(0).Left > chaoche1.Left + 565 And chaoche3(0).Left <= chaoche1.Left + 765 Then
chaoche3(0).Top = 5640
chaoche1.Top = 5880
chaoche3(0).Left = chaoche3(0).Left + m30
ElseIf chaoche3(0).Left >= chaoche1.Left + 765 Then
chaoche3(0).Top = 5880
chaoche1.Top = 5880
chaoche3(0).Left = chaoche3(0).Left + m30
End If
If chaoche3(0).Left + 765 >= chaoche3(1).Left And chaoche3(0).Left + 565 < chaoche3(1).Left And chaoche3(0).Top = chaoche3(1).Top Then
chaoche3(0).Top = 5640
chaoche3(1).Top = 5880
chaoche3(0).Left = chaoche3(0).Left + m30
ElseIf chaoche3(0).Left + 565 >= chaoche3(1).Left And chaoche3(1).Left + 565 >= chaoche3(0).Left Then
chaoche3(0).Top = 5400
chaoche3(1).Top = 5880
chaoche3(0).Left = chaoche3(0).Left + m30
ElseIf chaoche3(0).Left > chaoche3(1).Left + 565 And chaoche3(0).Left <= chaoche3(1).Left + 765 Then
chaoche3(0).Top = 5640
chaoche3(1).Top = 5880
chaoche3(0).Left = chaoche3(0).Left + m30
ElseIf chaoche3(0).Left >= chaoche3(1).Left + 765 Then
chaoche3(0).Top = 5880
chaoche3(1).Top = 5880
chaoche3(0).Left = chaoche3(0).Left + m30
End If
If chaoche3(0).Left + 765 >= chaoche3(2).Left And chaoche3(0).Left + 565 < chaoche3(2).Left And chaoche3(0).Top = chaoche3(2).Top Then
chaoche3(0).Top = 5640
chaoche3(2).Top = 5880
chaoche3(0).Left = chaoche3(0).Left + m30
ElseIf chaoche3(0).Left + 565 >= chaoche3(2).Left And chaoche3(2).Left + 565 >= chaoche3(0).Left Then
chaoche3(0).Top = 5400
chaoche3(2).Top = 5880
chaoche3(0).Left = chaoche3(0).Left + m30
ElseIf chaoche3(0).Left > chaoche3(2).Left + 565 And chaoche3(0).Left <= chaoche3(2).Left + 765 Then
chaoche3(0).Top = 5640
chaoche3(2).Top = 5880
chaoche3(0).Left = chaoche3(0).Left + m30
ElseIf chaoche3(0).Left >= chaoche3(2).Left + 765 Then
chaoche3(0).Top = 5880
chaoche3(2).Top = 5880
chaoche3(0).Left = chaoche3(0).Left + m30
End If
End Sub
Private Sub chaoche31Timer_Timer()
chaoche3(1).Visible = True
If chaoche3(1).Left = -765 Then
Randomize
m31 = Int((60 * Rnd) + 40)
End If
If chaoche3(1).Left < 15240 Then
chaoche3(1).Left = chaoche3(1).Left + m31
Else
chaoche3(1).Left = -765
chaoche3(1).Visible = False
End If
If chaoche3(1).Left + 765 >= chaoche3(0).Left And chaoche3(1).Left + 565 < chaoche3(0).Left And chaoche3(1).Top = chaoche3(0).Top Then
chaoche3(1).Top = 5640
chaoche3(0).Top = 5880
chaoche3(1).Left = chaoche3(1).Left + m31
ElseIf chaoche3(1).Left + 565 >= chaoche3(0).Left And chaoche3(0).Left + 565 >= chaoche3(1).Left Then
chaoche3(1).Top = 5400
chaoche3(0).Top = 5880
chaoche3(1).Left = chaoche3(1).Left + m31
ElseIf chaoche3(1).Left > chaoche3(0).Left + 565 And chaoche3(1).Left <= chaoche3(0).Left + 765 Then
chaoche3(1).Top = 5640
chaoche3(0).Top = 5880
chaoche3(1).Left = chaoche3(1).Left + m31
ElseIf chaoche3(1).Left >= chaoche3(0).Left + 765 Then
chaoche3(1).Top = 5880
chaoche3(0).Top = 5880
chaoche3(1).Left = chaoche3(1).Left + m31
End If
If chaoche3(1).Left + 765 >= chaoche1.Left And chaoche3(1).Left + 565 < chaoche1.Left And chaoche3(1).Top = chaoche1.Top Then
chaoche3(1).Top = 5640
chaoche1.Top = 5880
chaoche3(1).Left = chaoche3(1).Left + m31
ElseIf chaoche3(1).Left + 565 >= chaoche1.Left And chaoche1.Left + 565 >= chaoche3(1).Left Then
chaoche3(1).Top = 5400
chaoche1.Top = 5880
chaoche3(1).Left = chaoche3(1).Left + m31
ElseIf chaoche3(1).Left > chaoche1.Left + 565 And chaoche3(1).Left <= chaoche1.Left + 765 Then
chaoche3(1).Top = 5640
chaoche1.Top = 5880
chaoche3(1).Left = chaoche3(1).Left + m31
ElseIf chaoche3(1).Left >= chaoche1.Left + 765 Then
chaoche3(1).Top = 5880
chaoche1.Top = 5880
chaoche3(1).Left = chaoche3(1).Left + m31
End If
If chaoche3(1).Left + 765 >= chaoche3(2).Left And chaoche3(1).Left + 565 < chaoche3(2).Left And chaoche3(1).Top = chaoche3(2).Top Then
chaoche3(1).Top = 5640
chaoche3(2).Top = 5880
chaoche3(1).Left = chaoche3(1).Left + m31
ElseIf chaoche3(1).Left + 565 >= chaoche3(2).Left And chaoche3(2).Left + 565 >= chaoche3(1).Left Then
chaoche3(1).Top = 5400
chaoche3(2).Top = 5880
chaoche3(1).Left = chaoche3(1).Left + m31
ElseIf chaoche3(1).Left > chaoche3(2).Left + 565 And chaoche3(1).Left <= chaoche3(2).Left + 765 Then
chaoche3(1).Top = 5640
chaoche3(2).Top = 5880
chaoche3(1).Left = chaoche3(1).Left + m31
ElseIf chaoche3(1).Left >= chaoche3(2).Left + 765 Then
chaoche3(1).Top = 5880
chaoche3(2).Top = 5880
chaoche3(1).Left = chaoche3(1).Left + m31
End If
End Sub
Private Sub chaoche32Timer_Timer()
chaoche3(2).Visible = True
If chaoche3(2).Left = -765 Then
Randomize
m32 = Int((40 * Rnd) + 20)
End If
If chaoche3(2).Left < 15240 Then
chaoche3(2).Left = chaoche3(2).Left + m32
Else
chaoche3(2).Left = -765
chaoche3(2).Visible = False
End If
End Sub
Private Sub Command1_Click()
Timer20.Enabled = True
Timer21.Enabled = True
Timer22.Enabled = True
Timer23.Enabled = True
Timer10.Enabled = True
Timer11.Enabled = True
Timer12.Enabled = True
Timer13.Enabled = True
'chaoche1Timer.Enabled = True
'chaoche30Timer.Enabled = True
'chaoche31Timer.Enabled = True
'chaoche32Timer.Enabled = True
'manche10Timer.Enabled = True
End Sub
Private Sub Command2_Click()
Timer10.Enabled = False
Timer11.Enabled = False
Timer12.Enabled = False
Timer13.Enabled = False
Timer20.Enabled = False
Timer21.Enabled = False
Timer22.Enabled = False
Timer23.Enabled = False
chaoche1Timer.Enabled = False
chaoche30Timer.Enabled = False
chaoche31Timer.Enabled = False
chaoche32Timer.Enabled = False
End Sub
Private Sub Command5_Click()
End
End Sub
Private Sub Command6_Click()
Timer24.Enabled = True
End Sub
Private Sub Command7_Click()
manche10Timer.Enabled = True
Delay (10)
kuaiche10Timer.Enabled = True
End Sub
Private Sub Command8_Click()
shoukongcheTimer.Enabled = True
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -