home *** CD-ROM | disk | FTP | other *** search
/ Mastering Visual Basic 6 / mastvb6.iso / ch_code / ch15 / timermod / timerform.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1996-06-05  |  2.6 KB  |  86 lines
  1. VERSION 5.00
  2. Begin VB.Form TimerForm 
  3.    Caption         =   "Timer Module Test Form"
  4.    ClientHeight    =   2550
  5.    ClientLeft      =   60
  6.    ClientTop       =   345
  7.    ClientWidth     =   4845
  8.    LinkTopic       =   "Form1"
  9.    ScaleHeight     =   2550
  10.    ScaleWidth      =   4845
  11.    StartUpPosition =   3  'Windows Default
  12.    Begin VB.CommandButton Command3 
  13.       Caption         =   "E X I T"
  14.       BeginProperty Font 
  15.          Name            =   "Verdana"
  16.          Size            =   9.75
  17.          Charset         =   0
  18.          Weight          =   400
  19.          Underline       =   0   'False
  20.          Italic          =   0   'False
  21.          Strikethrough   =   0   'False
  22.       EndProperty
  23.       Height          =   495
  24.       Left            =   2760
  25.       TabIndex        =   2
  26.       Top             =   1320
  27.       Width           =   1935
  28.    End
  29.    Begin VB.CommandButton Command2 
  30.       Caption         =   "Show Interval"
  31.       BeginProperty Font 
  32.          Name            =   "Verdana"
  33.          Size            =   9.75
  34.          Charset         =   0
  35.          Weight          =   400
  36.          Underline       =   0   'False
  37.          Italic          =   0   'False
  38.          Strikethrough   =   0   'False
  39.       EndProperty
  40.       Height          =   495
  41.       Left            =   240
  42.       TabIndex        =   1
  43.       Top             =   1320
  44.       Width           =   1935
  45.    End
  46.    Begin VB.CommandButton Command1 
  47.       Caption         =   "Start Timing"
  48.       BeginProperty Font 
  49.          Name            =   "Verdana"
  50.          Size            =   9.75
  51.          Charset         =   0
  52.          Weight          =   400
  53.          Underline       =   0   'False
  54.          Italic          =   0   'False
  55.          Strikethrough   =   0   'False
  56.       EndProperty
  57.       Height          =   495
  58.       Left            =   240
  59.       TabIndex        =   0
  60.       Top             =   360
  61.       Width           =   1935
  62.    End
  63. Attribute VB_Name = "TimerForm"
  64. Attribute VB_GlobalNameSpace = False
  65. Attribute VB_Creatable = False
  66. Attribute VB_PredeclaredId = True
  67. Attribute VB_Exposed = False
  68. Private Sub Command1_Click()
  69.     If Command1.Caption = "Start Timing" Then
  70.         StartCounting
  71.         Command1.Caption = "Stop Timing"
  72.     Else
  73.         StopCounting
  74.         Command1.Caption = "Start Timing"
  75.     End If
  76. End Sub
  77. Private Sub Command2_Click()
  78.     MsgBox "I've been counting for " & vbCrLf & _
  79.         Hour(TotalInterval) & " hours" & vbCrLf & _
  80.         Minute(TotalInterval) & " minutes and " & vbCrLf & _
  81.         Second(TotalInterval) & " seconds" & vbCrLf
  82. End Sub
  83. Private Sub Command3_Click()
  84.     End
  85. End Sub
  86.