stop watch.frm

来自「一个stop watch, 能得到日期和时间(12KB).功能很齐全」· FRM 代码 · 共 45 行

VERSION 4.00
Begin VB.Form frmStopWatch 
   BorderStyle     =   1  'Fixed Single
   Caption         =   "Stop Watch"
   ClientHeight    =   1560
   ClientLeft      =   3825
   ClientTop       =   3195
   ClientWidth     =   3510
   Height          =   2250
   Icon            =   "Stop Watch.frx":0000
   Left            =   3765
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   ScaleHeight     =   1560
   ScaleWidth      =   3510
   Top             =   2565
   Width           =   3630
   Begin VB.CommandButton cmdStartPause 
      Caption         =   "&Start"
      Default         =   -1  'True
      Height          =   375
      Left            =   840
      TabIndex        =   1
      Top             =   1080
      Width           =   1215
   End
   Begin VB.CommandButton cmdReset 
      Caption         =   "&Reset"
      Enabled         =   0   'False
      Height          =   375
      Left            =   2160
      TabIndex        =   0
      Top             =   1080
      Width           =   1215
   End
   Begin VB.Timer tmrRunClock 
      Interval        =   970
      Left            =   0
      Top             =   2520
   End
   Begin VB.Label lblDisClock 
      AutoSize        =   -1  'True
      BackColor       =   &H00FFFFFF&
      BorderStyle     =   1  'Fixed Single
      Caption         =   "