📄 playing.frm
字号:
Begin VB.CommandButton Command20
Appearance = 0 'Flat
Caption = "\"
Enabled = 0 'False
Height = 375
Left = 1560
MaskColor = &H00C00000&
Style = 1 'Graphical
TabIndex = 52
Top = 1800
UseMaskColor = -1 'True
Width = 375
End
End
Begin VB.Frame header
Caption = "Header"
Height = 4215
Left = 8640
TabIndex = 42
Top = 20000
Width = 2055
Begin VB.PictureBox Picture2
BackColor = &H0000C000&
Height = 3855
Left = 120
ScaleHeight = 3795
ScaleWidth = 1770
TabIndex = 43
Top = 240
Width = 1835
Begin VB.CommandButton Command5
Appearance = 0 'Flat
BackColor = &H000000FF&
Caption = "P"
Enabled = 0 'False
Height = 255
Left = 120
MaskColor = &H000000FF&
Style = 1 'Graphical
TabIndex = 50
Top = 840
Width = 255
End
Begin VB.CommandButton Command6
Appearance = 0 'Flat
BackColor = &H000000FF&
Caption = "P"
Enabled = 0 'False
Height = 255
Left = 840
MaskColor = &H000000FF&
Style = 1 'Graphical
TabIndex = 49
Top = 840
Width = 255
End
Begin VB.CommandButton Command7
Appearance = 0 'Flat
BackColor = &H000000FF&
Caption = "P"
Enabled = 0 'False
Height = 255
Left = 1560
MaskColor = &H000000FF&
Style = 1 'Graphical
TabIndex = 48
Top = 840
Width = 255
End
Begin VB.CommandButton Command8
Appearance = 0 'Flat
BackColor = &H000000FF&
Caption = "P"
Enabled = 0 'False
Height = 255
Left = 840
MaskColor = &H000000FF&
Style = 1 'Graphical
TabIndex = 47
Top = 1680
Width = 255
End
Begin VB.CommandButton Command9
Appearance = 0 'Flat
BackColor = &H000000FF&
Caption = "P"
Enabled = 0 'False
Height = 255
Left = 0
MaskColor = &H000000FF&
Style = 1 'Graphical
TabIndex = 46
Top = 0
Width = 255
End
Begin VB.CommandButton Command10
Appearance = 0 'Flat
BackColor = &H000000FF&
Caption = "P"
Enabled = 0 'False
Height = 255
Left = 1680
MaskColor = &H000000FF&
Style = 1 'Graphical
TabIndex = 45
Top = 0
Width = 255
End
Begin VB.CommandButton Command11
Appearance = 0 'Flat
BackColor = &H000000FF&
Caption = "P"
Enabled = 0 'False
Height = 255
Left = 840
MaskColor = &H000000FF&
Style = 1 'Graphical
TabIndex = 44
Top = 2880
Width = 255
End
Begin VB.Shape Shape4
Height = 375
Left = 480
Top = 0
Width = 975
End
Begin VB.Line Line4
X1 = 0
X2 = 1920
Y1 = 1800
Y2 = 1800
End
Begin VB.Shape Shape5
Height = 735
Left = 600
Shape = 3 'Circle
Top = 1440
Width = 735
End
Begin VB.Shape Shape6
Height = 375
Left = 480
Top = 3480
Width = 975
End
End
End
Begin VB.Frame shotting
Caption = "Shotting"
Height = 1215
Left = 12840
TabIndex = 36
Top = 20000
Width = 2055
Begin VB.CommandButton Command1
Appearance = 0 'Flat
Caption = "SHOT!"
Enabled = 0 'False
Height = 375
Left = 120
MaskColor = &H0000FFFF&
Style = 1 'Graphical
TabIndex = 40
Top = 240
UseMaskColor = -1 'True
Width = 495
End
Begin VB.CommandButton Command2
Appearance = 0 'Flat
Caption = "SHOT!"
Enabled = 0 'False
Height = 375
Left = 1440
MaskColor = &H0000FFFF&
Style = 1 'Graphical
TabIndex = 39
Top = 240
UseMaskColor = -1 'True
Width = 495
End
Begin VB.CommandButton Command3
Appearance = 0 'Flat
Caption = "SHOT!"
Height = 375
Left = 720
MaskColor = &H0000FFFF&
Style = 1 'Graphical
TabIndex = 38
Top = 240
UseMaskColor = -1 'True
Width = 615
End
Begin VB.CommandButton Command4
Appearance = 0 'Flat
Caption = "Stop"
Enabled = 0 'False
Height = 375
Left = 120
MaskColor = &H0000FFFF&
Style = 1 'Graphical
TabIndex = 37
Top = 720
UseMaskColor = -1 'True
Width = 1815
End
End
Begin VB.Timer Timer1
Interval = 5
Left = 6960
Top = 480
End
Begin VB.PictureBox Picture1
BackColor = &H0000C000&
FillColor = &H0000C000&
ForeColor = &H0000FF00&
Height = 11415
Left = 0
Picture = "playing.frx":2A3A1
ScaleHeight = 11355
ScaleWidth = 8235
TabIndex = 0
Top = 0
Width = 8295
Begin VB.Image goalkeeper2
Height = 405
Left = 3960
Picture = "playing.frx":167B43
Top = 10680
Width = 630
End
Begin VB.Image goalkeeper1
Height = 405
Left = 3960
Picture = "playing.frx":16A90E
Top = 360
Width = 630
End
Begin VB.Image paddle2
Height = 405
Left = 4440
Picture = "playing.frx":16AD6A
Top = 2400
Width = 390
End
Begin VB.Shape paddle1
BackColor = &H000000FF&
BackStyle = 1 'Opaque
BorderColor = &H000000FF&
FillColor = &H000000FF&
Height = 300
Left = 4800
Shape = 3 'Circle
Top = 5880
Width = 300
End
Begin VB.Image ene1
Height = 405
Left = 1920
Picture = "playing.frx":16DA7C
Top = 2520
Width = 390
End
Begin VB.Image fri1
Height = 405
Left = 2880
Picture = "playing.frx":17078E
Top = 6120
Width = 390
End
Begin VB.Shape puck
BackColor = &H0000FF00&
BackStyle = 1 'Opaque
BorderColor = &H00E0E0E0&
FillStyle = 7 'Diagonal Cross
Height = 300
Left = 4080
Shape = 3 'Circle
Top = 5640
Width = 300
End
Begin VB.Line Line3
BorderColor = &H00008000&
BorderWidth = 10
X1 = 3360
X2 = 5040
Y1 = 120
Y2 = 120
End
Begin VB.Line Line2
BorderColor = &H00008000&
BorderWidth = 10
X1 = 3360
X2 = 5040
Y1 = 11280
Y2 = 11280
End
Begin VB.Line Line1
BorderColor = &H00FFFFFF&
X1 = 120
X2 = 8400
Y1 = 5760
Y2 = 5760
End
Begin VB.Label Scorered
BackColor = &H0000C000&
BackStyle = 0 'Transparent
Caption = "0"
BeginProperty Font
Name = "MS Sans Serif"
Size = 18
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000080&
Height = 375
Left = 7680
TabIndex = 2
Top = 5880
Width = 375
End
Begin VB.Label Scoreblue
BackColor = &H0000C000&
BackStyle = 0 'Transparent
Caption = "0"
BeginProperty Font
Name = "MS Sans Serif"
Size = 18
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF8080&
Height = 375
Left = 7680
TabIndex = 1
Top = 5280
Width = 375
End
End
Begin VB.TextBox saying
BackColor = &H00FF8080&
BeginProperty Font
Name = "Arial"
Size = 15.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = -1 'True
Strikethrough = 0 'False
EndProperty
ForeColor = &H0000FFFF&
Height = 8415
Left = 8640
MultiLine = -1 'True
ScrollBars = 2 'Vertical
TabIndex = 103
Text = "playing.frx":1733E5
Top = 960
Width = 6495
End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Declare Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Long, ByVal lpFileName As String) As Long
Private Declare Function WritePrivateProfileString Lib "kernel32" Alias "WritePrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpString As Any, ByVal lpFileName As String) As Long
Option Explicit
'date in game
Dim puckx As Single, pucky As Single, vpuckx As Single, vpucky As Single
Dim padx1 As Single, padx2 As Single, pady1 As Single, pady2 As Single
Dim pad2x1 As Single, pad2x2 As Single, pad2y1 As Single, pad2y2 As Single
Dim touche As Boolean, touche1 As Boolean
Dim gagne As Boolean
Dim headerpp As String, sturdinesspp As String, fitnesspp As String, passingpp As String, shotingpp As String
Dim Bcpp As String, additionpp As String, rp As String, mp As String
Dim save_ini As String, object_ini As String
Dim Section As String
Dim cusjfp As Integer
Dim cusllp As Integer
Dim cusfyp As Integer
Dim xx As String
'for function
Dim temp_string As String
Dim DefaultValue As String
Dim Entry As String
Dim EntryValue As String
Dim EntryValueSize As String
Dim box_msg As String
Dim Len_string As String
Dim X As Integer
'save/load file choice
Dim save_num As String
Dim load_num As String
'others
Dim picturepath As Single
Dim money As Long
Dim sq As Long
Dim sw As Long
Dim jc As Long
Private Sub addballcontrol_Click()
Bcpp = Bcpp + 1
additionpp = additionpp - 1
sx
yz
End Sub
Private Sub addfitness_Click()
fitnesspp = fitnesspp + 1
additionpp = additionpp - 1
sx
yz
End Sub
Private Sub addheader_Click()
headerpp = headerpp + 1
additionpp = additionpp - 1
sx
yz
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -