📄 frmsplash1.frm
字号:
VERSION 5.00
Begin VB.Form frmSplash1
BackColor = &H00008000&
BorderStyle = 3 'Fixed Dialog
ClientHeight = 5325
ClientLeft = 3630
ClientTop = 1620
ClientWidth = 7380
ClipControls = 0 'False
ControlBox = 0 'False
Icon = "frmSplash1.frx":0000
KeyPreview = -1 'True
LinkTopic = "Form2"
MaxButton = 0 'False
MinButton = 0 'False
Picture = "frmSplash1.frx":000C
ScaleHeight = 5325
ScaleWidth = 7380
ShowInTaskbar = 0 'False
StartUpPosition = 1 'CenterOwner
Begin VB.ComboBox Combo1
Height = 315
ItemData = "frmSplash1.frx":D4EB6
Left = 3240
List = "frmSplash1.frx":D4EB8
Style = 2 'Dropdown List
TabIndex = 6
ToolTipText = "Game Length"
Top = 3480
Width = 1215
End
Begin VB.CommandButton Command2
Caption = "Exit"
Height = 615
Left = 840
TabIndex = 4
Top = 4320
Width = 1935
End
Begin VB.TextBox text1
BeginProperty Font
Name = "Ravie"
Size = 18
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Left = 3240
MaxLength = 10
TabIndex = 2
ToolTipText = "Enter your name"
Top = 2760
Width = 2895
End
Begin VB.Timer Timer1
Interval = 10
Left = 0
Top = 3480
End
Begin VB.CommandButton Command1
Caption = "Continue"
Height = 615
Left = 4440
TabIndex = 1
Top = 4320
Width = 1935
End
Begin VB.Label Label1
Alignment = 1 'Right Justify
BackStyle = 0 'Transparent
Caption = "jimlinnegar@hotmail.com"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 4920
TabIndex = 14
Top = 5040
Width = 2295
End
Begin VB.Line Line1
BorderWidth = 3
X1 = 1320
X2 = 6480
Y1 = 1680
Y2 = 1680
End
Begin VB.Image ball
Height = 960
Left = 4800
Picture = "frmSplash1.frx":D4EBA
Top = 600
Width = 960
End
Begin VB.Line Line2
BorderWidth = 3
X1 = 720
X2 = 6720
Y1 = 2640
Y2 = 2640
End
Begin VB.Label hello
Alignment = 2 'Center
BackStyle = 0 'Transparent
Caption = "p"
BeginProperty Font
Name = "Showcard Gothic"
Size = 48
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
Height = 1215
Index = 5
Left = 5880
TabIndex = 13
Top = -1080
Width = 735
End
Begin VB.Label hello
Alignment = 2 'Center
BackStyle = 0 'Transparent
Caption = "t"
BeginProperty Font
Name = "Showcard Gothic"
Size = 48
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
Height = 1215
Index = 4
Left = 4080
TabIndex = 12
Top = -1200
Width = 735
End
Begin VB.Label hello
Alignment = 2 'Center
BackStyle = 0 'Transparent
Caption = "k"
BeginProperty Font
Name = "Showcard Gothic"
Size = 48
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
Height = 1215
Index = 3
Left = 3360
TabIndex = 11
Top = -1320
Width = 735
End
Begin VB.Label hello
Alignment = 2 'Center
BackStyle = 0 'Transparent
Caption = "s"
BeginProperty Font
Name = "Showcard Gothic"
Size = 48
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
Height = 1215
Index = 2
Left = 2640
TabIndex = 10
Top = -1440
Width = 735
End
Begin VB.Label hello
Alignment = 2 'Center
BackStyle = 0 'Transparent
Caption = "e"
BeginProperty Font
Name = "Showcard Gothic"
Size = 48
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
Height = 1215
Index = 1
Left = 2040
TabIndex = 9
Top = -1560
Width = 735
End
Begin VB.Label hello
Alignment = 2 'Center
BackStyle = 0 'Transparent
Caption = "D"
BeginProperty Font
Name = "Showcard Gothic"
Size = 48
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
Height = 1215
Index = 0
Left = 1320
TabIndex = 8
Top = -1800
Width = 855
End
Begin VB.Label Label5
Alignment = 2 'Center
BackStyle = 0 'Transparent
Caption = "&Minutes"
BeginProperty Font
Name = "MS Sans Serif"
Size = 18
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Left = 0
TabIndex = 7
Top = 3360
Width = 2535
End
Begin VB.Label Label4
BackStyle = 0 'Transparent
Caption = "James Linnegar --- Spring 2002"
Height = 255
Left = 120
TabIndex = 5
Top = 5040
Width = 2895
End
Begin VB.Label Label3
Alignment = 2 'Center
BackStyle = 0 'Transparent
Caption = "&Player Name"
BeginProperty Font
Name = "MS Sans Serif"
Size = 18
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Left = 240
TabIndex = 3
Top = 2760
Width = 2535
End
Begin VB.Label Label2
Alignment = 2 'Center
BackStyle = 0 'Transparent
Caption = "Basketball"
BeginProperty Font
Name = "Showcard Gothic"
Size = 48
Charset = 0
Weight = 700
Underline = -1 'True
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000000C0&
Height = 1335
Left = 0
TabIndex = 0
Top = 1560
Width = 7455
End
End
Attribute VB_Name = "frmSplash1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim matt(6) As Integer
Dim bounceloop As Integer
Private Sub Command1_Click()
If Text1.Text = "" Then
MsgBox "Enter your player name!", vbInformation, "Name please!"
Else
If Combo1.Text = "" Then
MsgBox "Choose your game length!", vbInformation, "Games Length please!"
Else
MsgBox "Bounce the ball using the mouse. Score through the hoop. To exit Press the 'ESC' Button", vbInformation, "Game Play"
playtime = Val(Combo1.Text) * 60
player = Text1.Text
frmSplash1.Hide
clock.Show
End If
End If
End Sub
Private Sub Command2_Click()
Dim Msg, Style, Title, Help, Ctxt, Response, MyString
Msg = "Are you sure you want to Exit?"
Style = vbYesNo + vbExclamation + vbDefaultButton2
Title = "Exit"
Response = MsgBox(Msg, Style, Title, Help, Ctxt)
If Response = vbYes Then
End
End If
End Sub
Private Sub Form_Load()
Dim loopcounter As Integer
For loopcounter = 1 To 10
Combo1.AddItem loopcounter
Next loopcounter
End Sub
Private Sub hello_MouseMove(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
matt(Index) = -100
End Sub
Private Sub Timer1_Timer()
For bounceloop = 0 To 5
hello(bounceloop).Top = hello(bounceloop).Top + matt(bounceloop)
matt(bounceloop) = matt(bounceloop) + 10
If hello((bounceloop)).Top > 480 Then
matt(bounceloop) = -100
End If
Next bounceloop
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -