form1.frm

一个用vb开发的源代码

VERSION 5.00
Begin VB.Form Form1 
   BorderStyle     =   0  'None
   Caption         =   "Score Board"
   ClientHeight    =   1335
   ClientLeft      =   105
   ClientTop       =   9555
   ClientWidth     =   4215
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   Picture         =   "Form1.frx":0000
   ScaleHeight     =   1335
   ScaleWidth      =   4215
   ShowInTaskbar   =   0   'False
   Begin VB.Timer Timer2 
      Interval        =   1000
      Left            =   1200
      Top             =   120
   End
   Begin VB.Timer Timer1 
      Interval        =   10
      Left            =   1560
      Top             =   240
   End
   Begin VB.Label Label3 
      Alignment       =   2  'Center
      BackColor       =   &H00FFFFFF&
      BorderStyle     =   1  'Fixed Single
      Caption         =   "Score Board"
      BeginProperty Font 
         Name            =   "Rockwell Extra Bold"
         Size            =   12
         Charset         =   0
         Weight          =   800
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H000000C0&
      Height          =   375
      Left            =   240
      TabIndex        =   3
      Top             =   120
      Width           =   1935
   End
   Begin VB.Shape Shape1 
      BorderColor     =   &H00000000&
      BorderWidth     =   5
      Height          =   1335
      Left            =   0
      Top             =   0
      Width           =   4215
   End
   Begin VB.Label Label1 
      Alignment       =   2  'Center
      BackColor       =   &H00000000&
      BorderStyle     =   1  'Fixed Single
      BeginProperty Font 
         Name            =   "Rockwell Extra Bold"
         Size            =   15.75
         Charset         =   0
         Weight          =   800
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00FFFFFF&
      Height          =   375
      Left            =   2760
      TabIndex        =   2
      Top             =   120
      Width           =   1215
   End
   Begin VB.Label Label2 
      Alignment       =   2  'Center
      BackColor       =   &H00000000&
      BorderStyle     =   1  'Fixed Single
      Caption         =   "Home"
      BeginProperty Font 
         Name            =   "Rockwell Extra Bold"
         Size            =   12
         Charset         =   0
         Weight          =   800
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00FFFFFF&
      Height          =   615
      Left            =   240
      TabIndex        =   1
      Top             =   600
      Width           =   1815
   End
   Begin VB.Label Lblscore 
      Alignment       =   2  'Center
      BackColor       =   &H00000000&
      BorderStyle     =   1  'Fixed Single
      Caption         =   "0 "
      BeginProperty Font 
         Name            =   "Rockwell Extra Bold"
         Size            =   24
         Charset         =   0
         Weight          =   800
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00FFFFFF&
      Height          =   615
      Left            =   2760
      TabIndex        =   0
      Top             =   600
      Width           =   1215
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Form_Load()
    Label2.Caption = player
    Form1.Left = 0
    Form1.Top = Screen.Height - Form1.Height
    frmSplash.Left = (Screen.Width / 2) - (frmSplash.Width / 2)
    frmSplash.Top = (Screen.Width / 8)
End Sub

Private Sub Timer1_Timer()
    
    If clock.Left < Form1.Width And clock.Top + clock.Height > Form1.Top Then
        linnegar = -linnegar
    End If
    
    If clock.Top > Form1.Top - clock.Height Then
    If clock.Left < Form1.Left + Form1.Width Then
        james = -james
    End If
    End If
        
    

    
    
End Sub

Private Sub Timer2_Timer()
    If playtime > 0 Then
    playtime = playtime - 1
    Label1.Caption = playtime
    Else
    clock.Hide
    frmSplash.Hide
    Form1.Hide
    MsgBox "Times up, lets see how you did!", vvbOKOnly, "Whats the score?"

    
    frmend.Show
    Timer2.Enabled = False
    End If
    If Val(Label1.Caption) < 10 Then
        Beep
    End If
    
    
End Sub