form1.frm

[原创]非常耐玩的足球小游戏

            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        =   1
      Left            =   7080
      Top             =   240
   End
   Begin VB.PictureBox Picture1 
      BackColor       =   &H0000C000&
      FillColor       =   &H0000C000&
      ForeColor       =   &H0000FF00&
      Height          =   11415
      Left            =   0
      Picture         =   "Form1.frx":2A3A1
      ScaleHeight     =   11355
      ScaleWidth      =   8235
      TabIndex        =   0
      Top             =   0
      Width           =   8295
      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.Shape paddle2 
         FillColor       =   &H00FF0000&
         FillStyle       =   0  'Solid
         Height          =   300
         Left            =   3960
         Shape           =   3  'Circle
         Top             =   600
         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.Shape paddle1 
         FillColor       =   &H000000FF&
         FillStyle       =   0  'Solid
         Height          =   300
         Left            =   4440
         Shape           =   3  'Circle
         Top             =   6120
         Width           =   300
      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
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
    

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

Private Sub addpassing_Click()
passingpp = passingpp + 1
additionpp = additionpp - 1
sx
yz
End Sub

Private Sub addshoting_Click()
shotingpp = shotingpp + 2
additionpp = additionpp - 1
sx
yz
End Sub

Private Sub addsturdiness_Click()
sturdinesspp = sturdinesspp + 1
additionpp = additionpp - 1
sx
yz
End Sub

Private Sub Command1_Click()
vpucky = -200
vpuckx = -100
End Sub

Private Sub Command10_Click()
puckx = 7920
pucky = 0
End Sub

Private Sub Command11_Click()
puckx = 4080
pucky = 8640
End Sub

Private Sub Command12_Click()
vpuckx = -20
vpucky = -20
End Sub

Private Sub Command13_Click()
vpuckx = 0
vpucky = -20
End Sub

Private Sub Command14_Click()
vpuckx = 20
vpucky = -20
End Sub

Private Sub Command15_Click()
vpuckx = -20
vpucky = 0
End Sub

Private Sub Command16_Click()
vpuckx = 0
vpucky = 0
End Sub

Private Sub Command17_Click()
vpuckx = 20
vpucky = 0
End Sub

Private Sub Command18_Click()
vpuckx = -20
vpucky = 20
End Sub

Private Sub Command19_Click()
vpuckx = 0
vpucky = 20
End Sub

Private Sub Command2_Click()
vpucky = -200
vpuckx = 100
End Sub

Private Sub Command20_Click()
vpuckx = 20
vpucky = 20
End Sub



Private Sub Command21_Click()
save_num = 3
save_file
End Sub

Private Sub Command22_Click()
load_num = 3
load_file
yz
End Sub

Private Sub Command23_Click()
save_num = 2
save_file
End Sub

Private Sub Command24_Click()
load_num = 2
load_file
yz
End Sub

Private Sub Command25_Click()
vpucky = 0
vpuckx = -80
End Sub

Private Sub Command26_Click()
vpucky = 0
vpuckx = 80
End Sub

Private Sub Command27_Click()
Form1.Hide
Form2.Label7.Caption = namep.Caption
End Sub

Private Sub Command28_Click()
vpucky = 10
vpuckx = 80
End Sub

Private Sub Command29_Click()
vpucky = 10
vpuckx = -80
End Sub

Private Sub Command3_Click()
vpucky = -200
vpuckx = 0
End Sub

Private Sub Command30_Click()
If Command30.Caption = "Personal" Then
Picture3.Left = 8640
Picture3.Top = 0
Command30.Caption = "Personal(s)"
Else
Picture3.Left = 20000
Picture3.Top = 20000
Command30.Caption = "Personal"
End If
End Sub

Private Sub Command31_Click()
If Command31.Caption = "Header" Then
header.Left = 8640
header.Top = 1080
Command31.Caption = "Header(s)"
Else
header.Left = 20000
header.Top = 20000
Command31.Caption = "Header"
End If
End Sub

Private Sub Command32_Click()
If Command32.Caption = "Shotting" Then
shotting.Left = 12840
shotting.Top = 960
Command32.Caption = "Shotting(s)"
Else
shotting.Left = 20000
shotting.Top = 20000
Command32.Caption = "Shotting"
End If
End Sub

Private Sub Command33_Click()
If Command33.Caption = "System" Then
System.Left = 5160
System.Top = 7560
Command33.Caption = "System(s)"
Else
System.Left = 20000
System.Top = 20000
Command33.Caption = "System"
End If
End Sub

Private Sub Command34_Click()
If Command34.Caption = "B.Control" Then
bc.Left = 12840
bc.Top = 2640
Command34.Caption = "B.Control(s)"
Else
bc.Left = 20000
bc.Top = 20000
Command34.Caption = "B.Control"
End If
End Sub

Private Sub Command35_Click()
If Command35.Caption = "Passing" Then
Passing.Left = 8640
Passing.Top = 5400
Command35.Caption = "Passing(s)"
Else
Passing.Left = 20000
Passing.Top = 20000
Command35.Caption = "Passing"
End If
End Sub