📄 frmsplash.frm
字号:
VERSION 5.00
Begin VB.Form frmSplash
BackColor = &H00000000&
BorderStyle = 0 'None
ClientHeight = 1695
ClientLeft = 6285
ClientTop = 4920
ClientWidth = 3135
ClipControls = 0 'False
ControlBox = 0 'False
Icon = "frmSplash.frx":0000
KeyPreview = -1 'True
LinkTopic = "Form2"
MaxButton = 0 'False
MinButton = 0 'False
Picture = "frmSplash.frx":000C
ScaleHeight = 1695
ScaleWidth = 3135
ShowInTaskbar = 0 'False
Begin VB.Timer Timer2
Interval = 500
Left = 840
Top = 360
End
Begin VB.Timer Timer1
Interval = 10
Left = 1680
Top = 360
End
Begin VB.Label Label1
Alignment = 2 'Center
BackStyle = 0 'Transparent
Caption = "Desktop Basketball"
BeginProperty Font
Name = "Rockwell Extra Bold"
Size = 14.25
Charset = 0
Weight = 800
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000000C0&
Height = 735
Left = 120
TabIndex = 1
Top = 120
Width = 3015
End
Begin VB.Label Label2
Alignment = 2 'Center
BackStyle = 0 'Transparent
Caption = "Desktop Basketball"
BeginProperty Font
Name = "Rockwell Extra Bold"
Size = 14.25
Charset = 0
Weight = 800
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
Height = 735
Left = 120
TabIndex = 0
Top = 120
Width = 3015
End
Begin VB.Image Image2
Height = 540
Left = 1200
Picture = "frmSplash.frx":779E
Top = 960
Width = 465
End
Begin VB.Image Image1
Height = 540
Left = 1200
Picture = "frmSplash.frx":8560
Top = 960
Width = 465
End
Begin VB.Shape Shape1
BackColor = &H000000FF&
BackStyle = 1 'Opaque
Height = 255
Left = 360
Shape = 3 'Circle
Top = 1080
Width = 255
End
Begin VB.Shape Shape2
BackColor = &H000000FF&
BackStyle = 1 'Opaque
Height = 255
Left = 2400
Shape = 3 'Circle
Top = 1080
Width = 255
End
Begin VB.Shape Shape4
BorderColor = &H00000000&
BorderWidth = 3
Height = 1455
Left = 120
Top = 120
Width = 2895
End
Begin VB.Shape Shape3
BackStyle = 1 'Opaque
Height = 1695
Left = 0
Top = 0
Width = 3135
End
End
Attribute VB_Name = "frmSplash"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim dunked As Boolean
Private Sub Timer1_Timer()
If dunked = False Then
If linnegar > 0 And clock.Left > frmSplash.Left + Shape1.Left + Shape1.Width Then
If clock.Left + clock.Width < frmSplash.Left + Shape2.Left Then
If clock.Top > frmSplash.Top + Shape1.Top Then
If clock.Top < frmSplash.Top + Shape1.Top + Shape1.Height Then
Form1.Lblscore.Caption = Val(Form1.Lblscore.Caption) + 1
dunked = True
Beep
james = 0
clock.Top = frmSplash.Top + frmSplash.Height
baskets = baskets + 1
If player = "iwanacheat" Then
baskets = baskets + 10
End If
End If
End If
End If
End If
End If
If clock.Top > frmSplash.Top + frmSplash.Height Then
dunked = False
End If
If clock.Left + clock.Width > frmSplash.Left Then
If clock.Left < frmSplash.Left + frmSplash.Width Then
If clock.Top > frmSplash.Top + Shape1.Top Then
If clock.Top < frmSplash.Top + Shape1.Top + 400 Then
If linnegar < 0 Then
linnegar = -linnegar
clock.Top = frmSplash.Top + frmSplash.Height
End If
End If
End If
End If
End If
If clock.Top + clock.Height > frmSplash.Top + frmSplash.Shape1.Top Then
If clock.Top + clock.Height < frmSplash.Top + Shape1.Top + 200 Then
If clock.Left + clock.Width > Shape1.Left + frmSplash.Left Then
If clock.Left < Shape1.Left + Shape1.Width + frmSplash.Left Then
linnegar = -50
james = james + 30
james = -james
clock.Top = frmSplash.Top - clock.Height + frmSplash.Shape1.Top
End If
End If
End If
End If
If clock.Top + clock.Height > frmSplash.Top + frmSplash.Shape2.Top Then
If clock.Top + clock.Height < frmSplash.Top + Shape2.Top + 200 Then
If clock.Left + clock.Width > Shape2.Left + frmSplash.Left Then
If clock.Left < Shape2.Left + Shape2.Width + frmSplash.Left Then
linnegar = -50
james = james + 30
james = -james
clock.Top = frmSplash.Top - clock.Height + frmSplash.Shape2.Top
End If
End If
End If
End If
'travelling Right
If clock.Top + clock.Height > frmSplash.Top + frmSplash.Shape2.Top Then
If clock.Top < frmSplash.Top + Shape2.Top + Shape2.Height Then
If clock.Left + clock.Width > Shape1.Left + frmSplash.Left Then
If clock.Left + clock.Width < Shape1.Left + frmSplash.Left + 100 Then
james = -james
End If
End If
End If
End If
'traveling left
If clock.Top + clock.Height > frmSplash.Top + frmSplash.Shape2.Top Then
If clock.Top < frmSplash.Top + Shape2.Top + Shape2.Height Then
If clock.Left > Shape2.Left + Shape2.Width + frmSplash.Left Then
If clock.Left < Shape2.Left + Shape2.Width + frmSplash.Left + 100 Then
james = -james
End If
End If
End If
End If
If clock.Top + clock.Height > frmSplash.Top + frmSplash.Shape2.Top Then
If clock.Top < frmSplash.Top + Shape2.Top + Shape2.Height Then
If clock.Left < Shape1.Left + Shape1.Width + frmSplash.Left Then
If clock.Left > Shape1.Left + Shape1.Width + frmSplash.Left - 100 Then
james = -james
End If
End If
End If
End If
If clock.Top + clock.Height > frmSplash.Top + frmSplash.Shape2.Top Then
If clock.Top < frmSplash.Top + Shape2.Top + Shape2.Height Then
If clock.Left + clock.Width > Shape2.Left + frmSplash.Left Then
If clock.Left + clock.Width < Shape2.Left + frmSplash.Left + 200 Then
james = -james
End If
End If
End If
End If
End Sub
Private Sub Timer2_Timer()
If Label1.ForeColor = &HC0& Then
Label1.ForeColor = vbRed
Image1.Visible = False
Image2.Visible = True
Else
Label1.ForeColor = &HC0&
Image1.Visible = True
Image2.Visible = False
End If
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -