home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 6_2008-2009.ISO / data / zips / Clock_cont2220682262012.psc / Forms / frmClock.frm next >
Text File  |  2005-11-04  |  5KB  |  146 lines
  1. VERSION 5.00
  2. Begin VB.Form frmClock 
  3.    BorderStyle     =   3  'Fixed Dialog
  4.    Caption         =   "ClockDemo"
  5.    ClientHeight    =   4716
  6.    ClientLeft      =   36
  7.    ClientTop       =   324
  8.    ClientWidth     =   4692
  9.    Icon            =   "frmClock.frx":0000
  10.    LinkTopic       =   "Form1"
  11.    MaxButton       =   0   'False
  12.    MinButton       =   0   'False
  13.    ScaleHeight     =   4716
  14.    ScaleWidth      =   4692
  15.    StartUpPosition =   2  'CenterScreen
  16.    Begin vb6projectClock.Clock Clock1 
  17.       Height          =   2172
  18.       Index           =   0
  19.       Left            =   120
  20.       TabIndex        =   0
  21.       Top             =   120
  22.       Width           =   2172
  23.       _ExtentX        =   3831
  24.       _ExtentY        =   3831
  25.       BackStyle       =   0
  26.       ClockPlateBorderColor=   12632064
  27.       ClockPlateColor =   8421376
  28.       ClockPlateGradientStyle=   1
  29.       DigitsBackStyle =   0
  30.       DigitsForeColor =   8388736
  31.       DigitsPosition  =   2
  32.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  33.          Name            =   "MS Sans Serif"
  34.          Size            =   7.8
  35.          Charset         =   0
  36.          Weight          =   400
  37.          Underline       =   0   'False
  38.          Italic          =   0   'False
  39.          Strikethrough   =   0   'False
  40.       EndProperty
  41.       HandsHourMinuteStyle=   1
  42.    End
  43.    Begin vb6projectClock.Clock Clock1 
  44.       Height          =   2172
  45.       Index           =   1
  46.       Left            =   2400
  47.       TabIndex        =   1
  48.       Top             =   120
  49.       Width           =   2172
  50.       _ExtentX        =   3831
  51.       _ExtentY        =   3831
  52.       BackColor       =   14737632
  53.       ClockPlateBorder=   0   'False
  54.       ClockPlateColor =   12632256
  55.       ClockPlateGradientPosition=   0
  56.       ClockPlateGradientStyle=   1
  57.       DateStyle       =   3
  58.       DigitsPosition  =   0
  59.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  60.          Name            =   "MS Sans Serif"
  61.          Size            =   7.8
  62.          Charset         =   0
  63.          Weight          =   400
  64.          Underline       =   0   'False
  65.          Italic          =   0   'False
  66.          Strikethrough   =   0   'False
  67.       EndProperty
  68.       NameBackStyle   =   0
  69.       NameClock       =   "Next Clock"
  70.       NameForeColor   =   12582912
  71.       NamePosition    =   2
  72.    End
  73.    Begin vb6projectClock.Clock Clock1 
  74.       Height          =   2172
  75.       Index           =   2
  76.       Left            =   120
  77.       TabIndex        =   2
  78.       Top             =   2400
  79.       Width           =   2172
  80.       _ExtentX        =   3831
  81.       _ExtentY        =   3831
  82.       ClockHoursColor =   12582912
  83.       ClockMirrored   =   3
  84.       ClockPlateBorderColor=   32896
  85.       ClockPlateStyle =   1
  86.       DigitsAmPm      =   0   'False
  87.       DigitsBackStyle =   0
  88.       DigitsForeColor =   192
  89.       DigitsPosition  =   2
  90.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  91.          Name            =   "MS Sans Serif"
  92.          Size            =   7.8
  93.          Charset         =   0
  94.          Weight          =   400
  95.          Underline       =   0   'False
  96.          Italic          =   0   'False
  97.          Strikethrough   =   0   'False
  98.       EndProperty
  99.       HandsHourMinuteStyle=   3
  100.    End
  101.    Begin vb6projectClock.Clock Clock1 
  102.       Height          =   2172
  103.       Index           =   3
  104.       Left            =   2400
  105.       TabIndex        =   3
  106.       Top             =   2400
  107.       Width           =   2172
  108.       _ExtentX        =   3831
  109.       _ExtentY        =   3831
  110.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  111.          Name            =   "MS Sans Serif"
  112.          Size            =   7.8
  113.          Charset         =   0
  114.          Weight          =   400
  115.          Underline       =   0   'False
  116.          Italic          =   0   'False
  117.          Strikethrough   =   0   'False
  118.       EndProperty
  119.       HandsHourMinuteStyle=   2
  120.       NameBackColor   =   16777088
  121.       NameBorderStyle =   1
  122.       NameClock       =   "Last Clock"
  123.       NameForeColor   =   8421376
  124.       NamePosition    =   1
  125.    End
  126. End
  127. Attribute VB_Name = "frmClock"
  128. Attribute VB_GlobalNameSpace = False
  129. Attribute VB_Creatable = False
  130. Attribute VB_PredeclaredId = True
  131. Attribute VB_Exposed = False
  132. Option Explicit
  133.  
  134. Private Sub Form_Load()
  135.  
  136. Dim intCount As Integer
  137.  
  138.    Clock1.Item(0).TimeZoneValue = -33
  139.    
  140.    For intCount = 0 To 3
  141.       Clock1.Item(intCount).SetTime = DateAdd("h", Rnd * 10, Time)
  142.       Clock1.Item(intCount).Active = True
  143.    Next 'intCount
  144.  
  145. End Sub
  146.