home *** CD-ROM | disk | FTP | other *** search
/ Programming Tool Box / SIMS_2.iso / tool / design / clocvb / form1.frm < prev   
Text File  |  1995-02-27  |  4KB  |  145 lines
  1. VERSION 2.00
  2. Begin Form Form1 
  3.    BackColor       =   &H00C0C0C0&
  4.    Caption         =   "GSS ClocVbx"
  5.    ClientHeight    =   2010
  6.    ClientLeft      =   1624
  7.    ClientTop       =   4125
  8.    ClientWidth     =   5880
  9.    Height          =   2415
  10.    Left            =   1568
  11.    LinkTopic       =   "Form1"
  12.    ScaleHeight     =   2010
  13.    ScaleWidth      =   5880
  14.    Top             =   3780
  15.    Width           =   5992
  16.    Begin CommandButton Command2 
  17.       Caption         =   "Refresh Timer"
  18.       Height          =   375
  19.       Left            =   3906
  20.       TabIndex        =   4
  21.       Top             =   1320
  22.       Width           =   1652
  23.    End
  24.    Begin TextBox Text3 
  25.       Height          =   495
  26.       Left            =   3906
  27.       TabIndex        =   3
  28.       Text            =   "Text1"
  29.       Top             =   120
  30.       Width           =   1666
  31.    End
  32.    Begin TextBox Text2 
  33.       Height          =   495
  34.       Left            =   2016
  35.       TabIndex        =   2
  36.       Text            =   "Text1"
  37.       Top             =   120
  38.       Width           =   1666
  39.    End
  40.    Begin Cloc Cloc3 
  41.       BackColor       =   &H00FF0000&
  42.       Cloc3D          =   0   'False
  43.       ClocBevel       =   0  'Raised
  44.       ClocSecs        =   -1  'True
  45.       ClocType        =   2  'Elapsed Time
  46.       FontBold        =   0   'False
  47.       FontItalic      =   0   'False
  48.       FontName        =   "Terminal"
  49.       FontSize        =   9
  50.       FontStrikethru  =   0   'False
  51.       FontUnderline   =   0   'False
  52.       ForeColor       =   &H00FFFFFF&
  53.       Height          =   255
  54.       Interval        =   1000
  55.       Left            =   3906
  56.       Tm_of_Day       =   "00:00:00"
  57.       Top             =   720
  58.       Width           =   1148
  59.    End
  60.    Begin Cloc Cloc2 
  61.       BackColor       =   &H00FFFF00&
  62.       Cloc3D          =   -1  'True
  63.       ClocBevel       =   0  'Raised
  64.       ClocSecs        =   -1  'True
  65.       ClocType        =   1  '24 Hour
  66.       FontBold        =   -1  'True
  67.       FontItalic      =   0   'False
  68.       FontName        =   "System"
  69.       FontSize        =   9.75
  70.       FontStrikethru  =   0   'False
  71.       FontUnderline   =   0   'False
  72.       Height          =   495
  73.       Interval        =   1000
  74.       Left            =   2016
  75.       Tm_of_Day       =   "19:45:56"
  76.       Top             =   720
  77.       Width           =   1666
  78.    End
  79.    Begin Cloc Cloc1 
  80.       BackColor       =   &H00C0C0C0&
  81.       Cloc3D          =   -1  'True
  82.       ClocBevel       =   1  'Inset
  83.       ClocSecs        =   -1  'True
  84.       ClocType        =   0  '12 Hour
  85.       FontBold        =   0   'False
  86.       FontItalic      =   0   'False
  87.       FontName        =   "MS Serif"
  88.       FontSize        =   12
  89.       FontStrikethru  =   0   'False
  90.       FontUnderline   =   0   'False
  91.       Height          =   495
  92.       Interval        =   1000
  93.       Left            =   126
  94.       Tm_of_Day       =   "07:45:56"
  95.       Top             =   720
  96.       Width           =   1288
  97.    End
  98.    Begin Timer Timer1 
  99.       Interval        =   1000
  100.       Left            =   4410
  101.       Top             =   1800
  102.    End
  103.    Begin TextBox Text1 
  104.       Height          =   495
  105.       Left            =   126
  106.       TabIndex        =   1
  107.       Text            =   "Text1"
  108.       Top             =   120
  109.       Width           =   1666
  110.    End
  111.    Begin CommandButton Command1 
  112.       BackColor       =   &H00C0C0C0&
  113.       Caption         =   "Command1"
  114.       Height          =   495
  115.       Left            =   1764
  116.       TabIndex        =   0
  117.       Top             =   1320
  118.       Visible         =   0   'False
  119.       Width           =   2055
  120.    End
  121. End
  122.  
  123. Option Explicit
  124. Dim xx As Long
  125.  
  126. Sub command1_click ()
  127. text1.Text = cloc1.Tm_of_Day
  128. text2.Text = cloc2.Tm_of_Day
  129. text3.Text = cloc3.Tm_of_Day
  130. End Sub
  131.  
  132. Sub Command2_Click ()
  133. cloc3.Refresh
  134. End Sub
  135.  
  136. Sub Form_Load ()
  137. cloc1.Interval = 1000
  138. cloc1.Refresh
  139. End Sub
  140.  
  141. Sub Timer1_Timer ()
  142. command1_click
  143. End Sub
  144.  
  145.