stopwatch.ctl

vb 的例子

VERSION 5.00
Begin VB.UserControl stopwatch 
   ClientHeight    =   1440
   ClientLeft      =   0
   ClientTop       =   0
   ClientWidth     =   4800
   ScaleHeight     =   1440
   ScaleWidth      =   4800
   Begin VB.Timer Timer1 
      Enabled         =   0   'False
      Interval        =   100
      Left            =   3120
      Top             =   720
   End
   Begin VB.CommandButton cmdStartStop 
      Caption         =   "计时"
      Height          =   450
      Left            =   3840
      TabIndex        =   1
      Top             =   240
      Width           =   615
   End
   Begin VB.CommandButton cmdReset 
      Caption         =   "清零"
      Height          =   465
      Left            =   3840
      TabIndex        =   0
      Top             =   780
      Width           =   630
   End
End
Attribute VB_Name = "stopwatch"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = True
Option Explicit