home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / wg_lib / clkfrm.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1995-09-06  |  3.1 KB  |  109 lines
  1. VERSION 2.00
  2. Begin Form ClkFrm 
  3.    BackColor       =   &H00C0C0C0&
  4.    Caption         =   "Clocks!"
  5.    ClientHeight    =   2145
  6.    ClientLeft      =   1140
  7.    ClientTop       =   2040
  8.    ClientWidth     =   4935
  9.    FontBold        =   -1  'True
  10.    FontItalic      =   0   'False
  11.    FontName        =   "MS Sans Serif"
  12.    FontSize        =   9.75
  13.    FontStrikethru  =   0   'False
  14.    FontUnderline   =   0   'False
  15.    Height          =   2550
  16.    Left            =   1080
  17.    LinkMode        =   1  'Source
  18.    LinkTopic       =   "Form1"
  19.    ScaleHeight     =   2145
  20.    ScaleWidth      =   4935
  21.    Top             =   1695
  22.    Width           =   5055
  23.    Begin Clock1 Clock 
  24.       Alarm_Hr        =   0
  25.       Alarm_Min       =   0
  26.       AlarmEnable     =   0   'False
  27.       BackColor       =   &H00000000&
  28.       ForeColor       =   &H000000FF&
  29.       Height          =   375
  30.       HideSecs        =   0   'False
  31.       Index           =   3
  32.       Left            =   1560
  33.       TimeFormat      =   0  '24 Hour
  34.       TimeLabel       =   0  'AM/PM
  35.       TimerMode       =   0   'False
  36.       TimeZone        =   -5
  37.       Top             =   1425
  38.       Width           =   1215
  39.    End
  40.    Begin CheckBox Check1 
  41.       BackColor       =   &H00C0C0C0&
  42.       Caption         =   "12 Hr Format"
  43.       Height          =   375
  44.       Left            =   3060
  45.       TabIndex        =   0
  46.       Top             =   840
  47.       Width           =   1575
  48.    End
  49.    Begin Clock1 Clock 
  50.       Alarm_Hr        =   0
  51.       Alarm_Min       =   0
  52.       AlarmEnable     =   0   'False
  53.       BackColor       =   &H00000000&
  54.       ForeColor       =   &H0000FF00&
  55.       Height          =   375
  56.       HideSecs        =   0   'False
  57.       Index           =   2
  58.       Left            =   1575
  59.       TimeFormat      =   0  '24 Hour
  60.       TimeLabel       =   0  'AM/PM
  61.       TimerMode       =   0   'False
  62.       TimeZone        =   1
  63.       Top             =   840
  64.       Width           =   1215
  65.    End
  66.    Begin Clock1 Clock 
  67.       Alarm_Hr        =   0
  68.       Alarm_Min       =   0
  69.       AlarmEnable     =   0   'False
  70.       BackColor       =   &H00000000&
  71.       ForeColor       =   &H000000FF&
  72.       Height          =   375
  73.       HideSecs        =   0   'False
  74.       Index           =   1
  75.       Left            =   1560
  76.       TimeFormat      =   0  '24 Hour
  77.       TimeLabel       =   0  'AM/PM
  78.       TimerMode       =   0   'False
  79.       TimeZone        =   0
  80.       Top             =   195
  81.       Width           =   1215
  82.    End
  83. defint a-z
  84. Sub Check1_Click ()
  85.      If Check1.Value Then
  86.          For x = 1 To 3
  87.              Clock(x).TimeFormat = 1
  88.              Clock(x).Visible = 1
  89.          Next x
  90.      Else
  91.          For x = 1 To 3
  92.              Clock(x).TimeFormat = 0
  93.              Clock(x).Visible = 1
  94.          Next x
  95.      End If
  96. End Sub
  97. Sub Form_Load ()
  98.     CenterForm ClkFrm
  99. End Sub
  100. Sub Form_Paint ()
  101.     ConvexFrm ClkFrm, 5
  102.     For x = 1 To 3
  103.         ConcaveCtl Clock(x), 5
  104.     Next x
  105.     CtlLabel ClkFrm, Clock(1), " Local Time "
  106.     CtlLabel ClkFrm, Clock(2), "Home Office "
  107.     CtlLabel ClkFrm, Clock(3), "     London "
  108. End Sub
  109.