ActiveX Programming Unleashed CD

home *** CD-ROM | disk | FTP | other *** search

/ ActiveX Programming Unleashed CD / AXU.iso / activex / demos / oletrial / samples / vb / mhtinp / mhtinp.frm (.txt) < prev next >

Wrap

Visual Basic Form | 1995-11-30 | 69.5 KB | 1,924 lines

VERSION 4.00 Begin VB.Form frmMhTimeInputOCX_Demo BorderStyle = 3 'Fixed Dialog Caption = "MicroHelp MhTimeInput OCX Demo" ClientHeight = 4515 ClientLeft = 2370 ClientTop = 1890 ClientWidth = 5775 BeginProperty Font name = "MS Sans Serif" charset = 0 weight = 700 size = 8.25 underline = 0 'False italic = 0 'False strikethrough = 0 'False EndProperty ForeColor = &H80000008& Height = 5175 Icon = "Mhtinp.frx":0000 Left = 2310 LinkTopic = "Form1" ScaleHeight = 4515 ScaleWidth = 5775 Top = 1290 Width = 5895 Begin VB.Frame fraInputRange Caption = "Restricting The Input Range" Height = 3576 Left = 6060 TabIndex = 36 Tag = "slide frame" Top = 480 Visible = 0 'False Width = 5628 Begin VB.Frame Frame2 Caption = "Set your desired lunch hour" Height = 1092 Left = 1152 TabIndex = 38 Top = 1764 Width = 3360 Begin VB.Label Label16 Caption = "&End" BeginProperty Font name = "MS Sans Serif" charset = 0 weight = 400 size = 8.25 underline = 0 'False italic = 0 'False strikethrough = 0 'False EndProperty Height = 228 Left = 1764 TabIndex = 42 Top = 396 Width = 804 End Begin MhintimeLib.MhTimeInput MhTimeInputLunch Height = 300 Index = 1 Left = 1764 TabIndex = 41 Top = 648 Width = 1488 _Version = 65536 _ExtentX = 2625 _ExtentY = 529 _StockProps = 77 TintColor = 16711935 Alignment = 2 BevelSize = 1 BevelStyle = 0 BorderColor = -2147483642 BorderStyle = 0 FillColor = -2147483633 LightColor = -2147483643 ShadowColor = -2147483632 TextColor = -2147483640 Text = "1:00:00" ReadOnly = 0 'False Spin = 2 SpinDelay = 500 SpinSpeed = 500 Indent = 0 AutoHScroll = 0 'False FontStyle = 0 Verbose = 0 'False CaretHeight = 0 CaretWidth = 0 CaretColor = -2147483640 CaretStyle = 0 CaretVAlign = 0 CaretInterval = 500 CaretVisible = -1 'True Separator = 58 TimeFormat = 2 Country = 0 VAlignment = 2 MaxHours = 17 MaxMinutes = 59 MaxSeconds = 59 MinHours = 9 MinMinutes = 0 MinSeconds = 0 SpinChange = 1 AllowBlank = 0 'False FocusSelect = 0 'False AM = 0 'False End Begin VB.Label Label15 Caption = "&Begin" BeginProperty Font name = "MS Sans Serif" charset = 0 weight = 400 size = 8.25 underline = 0 'False italic = 0 'False strikethrough = 0 'False EndProperty Height = 228 Left = 108 TabIndex = 40 Top = 396 Width = 804 End Begin MhintimeLib.MhTimeInput MhTimeInputLunch Height = 300 Index = 0 Left = 108 TabIndex = 39 Top = 648 Width = 1488 _Version = 65536 _ExtentX = 2625 _ExtentY = 529 _StockProps = 77 TintColor = 16711935 Alignment = 2 BevelSize = 1 BevelStyle = 0 BorderColor = -2147483642 BorderStyle = 0 FillColor = -2147483633 LightColor = -2147483643 ShadowColor = -2147483632 TextColor = -2147483640 Text = "12:00:00" ReadOnly = 0 'False Spin = 2 SpinDelay = 500 SpinSpeed = 500 Indent = 0 AutoHScroll = 0 'False FontStyle = 0 Verbose = 0 'False CaretHeight = 0 CaretWidth = 0 CaretColor = -2147483640 CaretStyle = 0 CaretVAlign = 0 CaretInterval = 500 CaretVisible = -1 'True Separator = 58 TimeFormat = 2 Country = 0 VAlignment = 2 MaxHours = 16 MaxMinutes = 59 MaxSeconds = 59 MinHours = 9 MinMinutes = 0 MinSeconds = 0 SpinChange = 1 AllowBlank = 0 'False FocusSelect = 0 'False AM = 0 'False End End Begin Threed.SSPanel SSPanel4 Height = 660 Left = 465 TabIndex = 37 Top = 975 Width = 4695 _Version = 65536 _ExtentX = 8276 _ExtentY = 1164 _StockProps = 15 Caption = "The following MhTimeInput controls have been set so that you can only enter hours between 9 and 17 (5pm)" BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} name = "MS Sans Serif" charset = 0 weight = 400 size = 8.25 underline = 0 'False italic = 0 'False strikethrough = 0 'False EndProperty BevelWidth = 0 Font3D = 3 End End Begin VB.Frame fraWorldTimes Caption = "Times Around The World" Height = 3576 Left = 5940 TabIndex = 4 Tag = "slide frame" Top = 252 Width = 5628 Begin VB.CommandButton cmdChangeTime Caption = "Change &Time" BeginProperty Font name = "MS Sans Serif" charset = 0 weight = 400 size = 8.25 underline = 0 'False italic = 0 'False strikethrough = 0 'False EndProperty Height = 372 Left = 4176 TabIndex = 43 Top = 3024 Width = 1300 End Begin Threed.SSPanel SSPanel1 Height = 630 Left = 150 TabIndex = 21 Top = 2730 Width = 3900 _Version = 65536 _ExtentX = 6879 _ExtentY = 1101 _StockProps = 15 Caption = $"Mhtinp.frx":0442 BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} name = "MS Sans Serif" charset = 0 weight = 400 size = 8.25 underline = 0 'False italic = 0 'False strikethrough = 0 'False EndProperty BevelWidth = 0 BevelOuter = 1 Font3D = 3 End Begin MhintimeLib.MhTimeInput MhTimeInputZones Height = 300 Index = 11 Left = 4248 TabIndex = 32 TabStop = 0 'False Top = 1944 Width = 1200 _Version = 65536 _ExtentX = 2117 _ExtentY = 529 _StockProps = 77 TintColor = 16711935 Alignment = 2 BevelSize = 1 BevelStyle = 0 BorderColor = -2147483642 BorderStyle = 1 FillColor = -2147483633 LightColor = -2147483643 ShadowColor = -2147483632 TextColor = -2147483640 Text = "03:04:30" ReadOnly = -1 'True Spin = 0 SpinDelay = 500 SpinSpeed = 500 Indent = 0 AutoHScroll = 0 'False FontStyle = 0 Verbose = 0 'False CaretHeight = 0 CaretWidth = 0 CaretColor = -2147483640 CaretStyle = 0 CaretVAlign = 0 CaretInterval = 500 CaretVisible = -1 'True Separator = 58 TimeFormat = 2 Country = 0 VAlignment = 2 MaxHours = 23 MaxMinutes = 59 MaxSeconds = 59 MinHours = 0 MinMinutes = 0 MinSeconds = 0 SpinChange = 1 AllowBlank = 0 'False FocusSelect = 0 'False AM = -1 'True End Begin MhintimeLib.MhTimeInput MhTimeInputZones Height = 300 Index = 10 Left = 2880 TabIndex = 31 TabStop = 0 'False Top = 1944 Width = 1200 _Version = 65536 _ExtentX = 2117 _ExtentY = 529 _StockProps = 77 TintColor = 16711935 Alignment = 2 BevelSize = 1 BevelStyle = 0 BorderColor = -2147483642 BorderStyle = 0 FillColor = -2147483633 LightColor = -2147483643 ShadowColor = -2147483632 TextColor = -2147483640 Text = "03:04:30" ReadOnly = -1 'True Spin = 0 SpinDelay = 500 SpinSpeed = 500 Indent = 0 AutoHScroll = 0 'False FontStyle = 0 Verbose = 0 'False CaretHeight = 0 CaretWidth = 0 CaretColor = -2147483640 CaretStyle = 0 CaretVAlign = 0 CaretInterval = 500 CaretVisible = -1 'True Separator = 58 TimeFormat = 2 Country = 0 VAlignment = 2 MaxHours = 23 MaxMinutes = 59 MaxSeconds = 59 MinHours = 0 MinMinutes = 0 MinSeconds = 0 SpinChange = 1 AllowBlank = 0 'False FocusSelect = 0 'False AM = -1 'True End Begin MhintimeLib.MhTimeInput MhTimeInputZones Height = 300 Index = 9 Left = 1512 TabIndex = 30 TabStop = 0 'False Top = 1944 Width = 1200 _Version = 65536 _ExtentX = 2117 _ExtentY = 529 _StockProps = 77 TintColor = 16711935 Alignment = 2 BevelSize = 1 BevelStyle = 0 BorderColor = -2147483642 BorderStyle = 1 FillColor = -2147483633 LightColor = -2147483643 ShadowColor = -2147483632 TextColor = -2147483640 Text = "03:04:30" ReadOnly = -1 'True Spin = 0 SpinDelay = 500 SpinSpeed = 500 Indent = 0 AutoHScroll = 0 'False FontStyle = 0 Verbose = 0 'False CaretHeight = 0 CaretWidth = 0 CaretColor = -2147483640 CaretStyle = 0 CaretVAlign = 0 CaretInterval = 500 CaretVisible = 0 'False Separator = 58 TimeFormat = 2 Country = 0 VAlignment = 2 MaxHours = 23 MaxMinutes = 59 MaxSeconds = 59 MinHours = 0 MinMinutes = 0 MinSeconds = 0 SpinChange = 1 AllowBlank = 0 'False FocusSelect = 0 'False AM = -1 'True End Begin MhintimeLib.MhTimeInput MhTimeInputZones Height = 300 Index = 8 Left = 180 TabIndex = 29 TabStop = 0 'False Top = 1944 Width = 1200 _Version = 65536 _ExtentX = 2117 _ExtentY = 529 _StockProps = 77 TintColor = 16711935 Alignment = 2 BevelSize = 1 BevelStyle = 0 BorderColor = -2147483642 BorderStyle = 0 FillColor = -2147483633 LightColor = -2147483643 ShadowColor = -2147483632 TextColor = -2147483640 Text = "03:04:30" ReadOnly = -1 'True Spin = 0 SpinDelay = 500 SpinSpeed = 500 Indent = 0 AutoHScroll = 0 'False FontStyle = 0 Verbose = 0 'False CaretHeight = 0 CaretWidth = 0 CaretColor = -2147483640 CaretStyle = 0 CaretVAlign = 0 CaretInterval = 500 CaretVisible = -1 'True Separator = 58 TimeFormat = 2 Country = 0 VAlignment = 2 MaxHours = 23 MaxMinutes = 59 MaxSeconds = 59 MinHours = 0 MinMinutes = 0 MinSeconds = 0 SpinChange = 1 AllowBlank = 0 'False FocusSelect = 0 'False AM = -1 'True End Begin MhintimeLib.MhTimeInput MhTimeInputZones Height = 300 Index = 7 Left = 4248 TabIndex = 28 TabStop = 0 'False Top = 1152 Width = 1200 _Version = 65536 _ExtentX = 2117 _ExtentY = 529 _StockProps = 77 TintColor = 16711935 Alignment = 2 BevelSize = 1 BevelStyle = 0 BorderColor = -2147483642 BorderStyle = 1 FillColor = -2147483633 LightColor = -2147483643 ShadowColor = -2147483632 TextColor = -2147483640 Text = "03:04:30" ReadOnly = -1 'True Spin = 0 SpinDelay = 500 SpinSpeed = 500 Indent = 0 AutoHScroll = 0 'False FontStyle = 0 Verbose = 0 'False CaretHeight = 0 CaretWidth = 0 CaretColor = -2147483640 CaretStyle = 0 CaretVAlign = 0 CaretInterval = 500 CaretVisible = 0 'False Separator = 58 TimeFormat = 2 Country = 0 VAlignment = 2 MaxHours = 23 MaxMinutes = 59 MaxSeconds = 59 MinHours = 0 MinMinutes = 0 MinSeconds = 0 SpinChange = 1 AllowBlank = 0 'False FocusSelect = 0 'False AM = -1 'True End Begin MhintimeLib.MhTimeInput MhTimeInputZones Height = 300 Index = 6 Left = 2880 TabIndex = 27 TabStop = 0 'False Top = 1152 Width = 1200 _Version = 65536 _ExtentX = 2117 _ExtentY = 529 _StockProps = 77 TintColor = 16711935 Alignment = 2 BevelSize = 1 BevelStyle = 0 BorderColor = -2147483642 BorderStyle = 0 FillColor = -2147483633 LightColor = -2147483643 ShadowColor = -2147483632 TextColor = -2147483640 Text = "03:04:30" ReadOnly = -1 'True Spin = 0 SpinDelay = 500 SpinSpeed = 500 Indent = 0 AutoHScroll = 0 'False FontStyle = 0 Verbose = 0 'False CaretHeight = 0 CaretWidth = 0 CaretColor = -2147483640 CaretStyle = 0 CaretVAlign = 0 CaretInterval = 500 CaretVisible = -1 'True Separator = 58 TimeFormat = 2 Country = 0 VAlignment = 2 MaxHours = 23 MaxMinutes = 59 MaxSeconds = 59 MinHours = 0 MinMinutes = 0 MinSeconds = 0 SpinChange = 1 AllowBlank = 0 'False FocusSelect = 0 'False AM = -1 'True End Begin MhintimeLib.MhTimeInput MhTimeInputZones Height = 300 Index = 5 Left = 1512 TabIndex = 26 TabStop = 0 'False Top = 1152 Width = 1200 _Version = 65536 _ExtentX = 2117 _ExtentY = 529 _StockProps = 77 TintColor = 16711935 Alignment = 2 BevelSize = 1 BevelStyle = 0 BorderColor = -2147483642 BorderStyle = 1 FillColor = -2147483633 LightColor = -2147483643 ShadowColor = -2147483632 TextColor = -2147483640 Text = "03:04:30" ReadOnly = -1 'True Spin = 0 SpinDelay = 500 SpinSpeed = 500 Indent = 0 AutoHScroll = 0 'False FontStyle = 0 Verbose = 0 'False CaretHeight = 0 CaretWidth = 0 CaretColor = -2147483640 CaretStyle = 0 CaretVAlign = 0 CaretInterval = 500 CaretVisible = 0 'False Separator = 58 TimeFormat = 2 Country = 0 VAlignment = 2 MaxHours = 23 MaxMinutes = 59 MaxSeconds = 59 MinHours = 0 MinMinutes = 0 MinSeconds = 0 SpinChange = 1 AllowBlank = 0 'False FocusSelect = 0 'False AM = -1 'True End Begin MhintimeLib.MhTimeInput MhTimeInputZones Height = 300 Index = 4 Left = 180 TabIndex = 25 TabStop = 0 'False Top = 1152 Width = 1200 _Version = 65536 _ExtentX = 2117 _ExtentY = 529 _StockProps = 77 TintColor = 16711935 Alignment = 2 BevelSize = 1 BevelStyle = 0 BorderColor = -2147483642 BorderStyle = 0 FillColor = -2147483633 LightColor = -2147483643 ShadowColor = -2147483632 TextColor = -2147483640 Text = "03:04:30" ReadOnly = -1 'True Spin = 0 SpinDelay = 500 SpinSpeed = 500 Indent = 0 AutoHScroll = 0 'False FontStyle = 0 Verbose = 0 'False CaretHeight = 0 CaretWidth = 0 CaretColor = -2147483640 CaretStyle = 0 CaretVAlign = 0 CaretInterval = 500 CaretVisible = 0 'False Separator = 58 TimeFormat = 2 Country = 0 VAlignment = 2 MaxHours = 23 MaxMinutes = 59 MaxSeconds = 59 MinHours = 0 MinMinutes = 0 MinSeconds = 0 SpinChange = 1 AllowBlank = 0 'False FocusSelect = 0 'False AM = -1 'True End Begin MhintimeLib.MhTimeInput MhTimeInputZones Height = 300 Index = 3 Left = 4248 TabIndex = 24 TabStop = 0 'False Top = 360 Width = 1200 _Version = 65536 _ExtentX = 2117 _ExtentY = 529 _StockProps = 77 TintColor = 16711935 Alignment = 2 BevelSize = 1 BevelStyle = 0 BorderColor = -2147483642 BorderStyle = 1 FillColor = -2147483633 LightColor = -2147483643 ShadowColor = -2147483632 TextColor = -2147483640 Text = "03:04:30" ReadOnly = -1 'True Spin = 0 SpinDelay = 500 SpinSpeed = 500 Indent = 0 AutoHScroll = 0 'False FontStyle = 0 Verbose = 0 'False CaretHeight = 0 CaretWidth = 0 CaretColor = -2147483640 CaretStyle = 0 CaretVAlign = 0 CaretInterval = 500 CaretVisible = 0 'False Separator = 58 TimeFormat = 2 Country = 0 VAlignment = 2 MaxHours = 23 MaxMinutes = 59 MaxSeconds = 59 MinHours = 0 MinMinutes = 0 MinSeconds = 0 SpinChange = 1 AllowBlank = 0 'False FocusSelect = 0 'False AM = -1 'True End Begin MhintimeLib.MhTimeInput MhTimeInputZones Height = 300 Index = 2 Left = 2880 TabIndex = 23 TabStop = 0 'False Top = 360 Width = 1200 _Version = 65536 _ExtentX = 2117 _ExtentY = 529 _StockProps = 77 TintColor = 16711935 Alignment = 2 BevelSize = 1 BevelStyle = 0 BorderColor = -2147483642 BorderStyle = 0 FillColor = -2147483633 LightColor = -2147483643 ShadowColor = -2147483632 TextColor = -2147483640 Text = "03:04:30" ReadOnly = -1 'True Spin = 0 SpinDelay = 500 SpinSpeed = 500 Indent = 0 AutoHScroll = 0 'False FontStyle = 0 Verbose = 0 'False CaretHeight = 0 CaretWidth = 0 CaretColor = -2147483640 CaretStyle = 0 CaretVAlign = 0 CaretInterval = 500 CaretVisible = -1 'True Separator = 58 TimeFormat = 2 Country = 0 VAlignment = 2 MaxHours = 23 MaxMinutes = 59 MaxSeconds = 59 MinHours = 0 MinMinutes = 0 MinSeconds = 0 SpinChange = 1 AllowBlank = 0 'False FocusSelect = 0 'False AM = -1 'True End Begin MhintimeLib.MhTimeInput MhTimeInputZones Height = 300 Index = 1 Left = 1512 TabIndex = 22 TabStop = 0 'False Top = 360 Width = 1200 _Version = 65536 _ExtentX = 2117 _ExtentY = 529 _StockProps = 77 TintColor = 16711935 Alignment = 2 BevelSize = 1 BevelStyle = 0 BorderColor = -2147483642 BorderStyle = 1 FillColor = -2147483633 LightColor = -2147483643 ShadowColor = -2147483632 TextColor = -2147483640 Text = "03:04:30" ReadOnly = -1 'True Spin = 0 SpinDelay = 500 SpinSpeed = 500 Indent = 0 AutoHScroll = 0 'False FontStyle = 0 Verbose = 0 'False CaretHeight = 0 CaretWidth = 0 CaretColor = -2147483640 CaretStyle = 0 CaretVAlign = 0 CaretInterval = 500 CaretVisible = -1 'True Separator = 58 TimeFormat = 2 Country = 0 VAlignment = 2 MaxHours = 23 MaxMinutes = 59 MaxSeconds = 59 MinHours = 0 MinMinutes = 0 MinSeconds = 0 SpinChange = 1 AllowBlank = 0 'False FocusSelect = 0 'False AM = -1 'True End Begin VB.Label Label2 Alignment = 2 'Center Caption = "Mexico City" BeginProperty Font name = "MS Sans Serif" charset = 0 weight = 400 size = 8.25 underline = 0 'False italic = 0 'False strikethrough = 0 'False EndProperty Height = 264 Left = 2880 TabIndex = 20 Top = 1476 Width = 1200 End Begin VB.Label Label13 Alignment = 2 'Center Caption = "Tokyo" BeginProperty Font name = "MS Sans Serif" charset = 0 weight = 400 size = 8.25 underline = 0 'False italic = 0 'False strikethrough = 0 'False EndProperty Height = 264 Left = 4248 TabIndex = 19 Top = 2268 Width = 1200 End Begin VB.Label Label12 Alignment = 2 'Center Caption = "Sydney" BeginProperty Font name = "MS Sans Serif" charset = 0 weight = 400 size = 8.25 underline = 0 'False italic = 0 'False strikethrough = 0 'False EndProperty Height = 264 Left = 2880 TabIndex = 18 Top = 2268 Width = 1200 End Begin VB.Label Label11 Alignment = 2 'Center Caption = "Madina" BeginProperty Font name = "MS Sans Serif" charset = 0 weight = 400 size = 8.25 underline = 0 'False italic = 0 'False strikethrough = 0 'False EndProperty Height = 264 Left = 1512 TabIndex = 17 Top = 1476 Width = 1200 End Begin VB.Label Label10 Alignment = 2 'Center Caption = "Fiji" BeginProperty Font name = "MS Sans Serif" charset = 0 weight = 400 size = 8.25 underline = 0 'False italic = 0 'False strikethrough = 0 'False EndProperty Height = 264 Left = 2880 TabIndex = 16 Top = 684 Width = 1200 End Begin VB.Label Label9 Alignment = 2 'Center Caption = "New York" BeginProperty Font name = "MS Sans Serif" charset = 0 weight = 400 size = 8.25 underline = 0 'False italic = 0 'False strikethrough = 0 'False EndProperty Height = 264 Left = 4248 TabIndex = 15 Top = 1476 Width = 1200 End Begin VB.Label Label8 Alignment = 2 'Center Caption = "Paris" BeginProperty Font name = "MS Sans Serif" charset = 0 weight = 400 size = 8.25 underline = 0 'False italic = 0 'False strikethrough = 0 'False EndProperty Height = 264 Left = 1512 TabIndex = 14 Top = 2268 Width = 1200 End Begin VB.Label Label7 Alignment = 2 'Center Caption = "Los Angeles" BeginProperty Font name = "MS Sans Serif" charset = 0 weight = 400 size = 8.25 underline = 0 'False italic = 0 'False strikethrough = 0 'False EndProperty Height = 264 Left = 180 TabIndex = 13 Top = 1476 Width = 1200 End Begin VB.Label Label6 Alignment = 2 'Center Caption = "Cairo" BeginProperty Font name = "MS Sans Serif" charset = 0 weight = 400 size = 8.25 underline = 0 'False italic = 0 'False strikethrough = 0 'False EndProperty Height = 264 Left = 1512 TabIndex = 12 Top = 684 Width = 1200 End Begin VB.Label Label5 Alignment = 2 'Center Caption = "Greenwich Mean Time" BeginProperty Font name = "MS Sans Serif" charset = 0 weight = 400 size = 8.25 underline = 0 'False italic = 0 'False strikethrough = 0 'False EndProperty Height = 444 Left = 4248 TabIndex = 11 Top = 684 Width = 1200 End Begin VB.Label Label4 Alignment = 2 'Center Caption = "Buenos Aires" BeginProperty Font name = "MS Sans Serif" charset = 0 weight = 400 size = 8.25 underline = 0 'False italic = 0 'False strikethrough = 0 'False EndProperty Height = 264 Left = 180 TabIndex = 10 Top = 684 Width = 1200 End Begin MhintimeLib.MhTimeInput MhTimeInputZones Height = 300 Index = 0 Left = 180 TabIndex = 9 TabStop = 0 'False Top = 360 Width = 1200 _Version = 65536 _ExtentX = 2117 _ExtentY = 529 _StockProps = 77 TintColor = 16711935 Alignment = 2 BevelSize = 1 BevelStyle = 0 BorderColor = -2147483642 BorderStyle = 0 FillColor = -2147483633 LightColor = -2147483643 ShadowColor = -2147483632 TextColor = -2147483640 Text = "03:04:30" ReadOnly = -1 'True Spin = 0 SpinDelay = 500 SpinSpeed = 500 Indent = 0 AutoHScroll = 0 'False FontStyle = 0 Verbose = 0 'False CaretHeight = 0 CaretWidth = 0 CaretColor = -2147483640 CaretStyle = 0 CaretVAlign = 0 CaretInterval = 500 CaretVisible = -1 'True Separator = 58 TimeFormat = 2 Country = 0 VAlignment = 2 MaxHours = 23 MaxMinutes = 59 MaxSeconds = 59 MinHours = 0 MinMinutes = 0 MinSeconds = 0 SpinChange = 1 AllowBlank = 0 'False FocusSelect = 0 'False AM = -1 'True End Begin VB.Label Label1 Alignment = 2 'Center Caption = "Nigeria" BeginProperty Font name = "MS Sans Serif" charset = 0 weight = 400 size = 8.25 underline = 0 'False italic = 0 'False strikethrough = 0 'False EndProperty Height = 264 Left = 180 TabIndex = 8 Top = 2268 Width = 1200 End End Begin VB.Timer tmrTimeDisplayManager Interval = 1000 Left = 4860 Top = 3744 End Begin VB.CommandButton cmdSlide Appearance = 0 'Flat BackColor = &H00D9A8AE& Caption = "< &Back" Enabled = 0 'False BeginProperty Font name = "MS Sans Serif" charset = 0 weight = 400 size = 8.25 underline = 0 'False italic = 0 'False strikethrough = 0 'False EndProperty Height = 372 Index = 0 Left = 1080 TabIndex = 1 Top = 3732 Width = 1212 End Begin VB.CommandButton cmdSlide Appearance = 0 'Flat BackColor = &H00D9A8AE& Caption = "&Next >" Default = -1 'True BeginProperty Font name = "MS Sans Serif" charset = 0 weight = 400 size = 8.25 underline = 0 'False italic = 0 'False strikethrough = 0 'False EndProperty Height = 372 Index = 1 Left = 2280 TabIndex = 2 Top = 3732 Width = 1212 End Begin VB.CommandButton cmdClose Appearance = 0 'Flat BackColor = &H00D9A8AE& Caption = "&Close" BeginProperty Font name = "MS Sans Serif" charset = 0 weight = 400 size = 8.25 underline = 0 'False italic = 0 'False strikethrough = 0 'False EndProperty Height = 372 Left = 3576 TabIndex = 3 Top = 3744 Width = 1212 End Begin VB.Timer tmrStatusLine Enabled = 0 'False Left = 648 Top = 3744 End Begin Threed.SSPanel panStatusLine Height = 240 Left = 75 TabIndex = 7 Top = 4215 Width = 5625 _Version = 65536 _ExtentX = 9927 _ExtentY = 423 _StockProps = 15 Caption = "Ready..." BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} name = "MS Sans Serif" charset = 0 weight = 400 size = 8.25 underline = 0 'False italic = 0 'False strikethrough = 0 'False EndProperty BevelOuter = 1 End Begin VB.Frame fraTheLook Caption = "Introducing The MhTimeInput Control..." Height = 3576 Left = 72 TabIndex = 33 Tag = "slide frame" Top = 36 Width = 5628 Begin Threed.SSPanel SSPanel2 Height = 480 Left = 1620 TabIndex = 34 Top = 2310 Width = 2385 _Version = 65536 _ExtentX = 4212 _ExtentY = 847 _StockProps = 15 Caption = "Right-click on me to set my properties" BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} name = "MS Sans Serif" charset = 0 weight = 400 size = 8.25 underline = 0 'False italic = 0 'False strikethrough = 0 'False EndProperty BevelWidth = 0 Font3D = 3 End Begin Threed.SSPanel SSPanel3 Height = 945 Left = 1620 TabIndex = 35 Top = 1335 Width = 2385 _Version = 65536 _ExtentX = 4212 _ExtentY = 1672 _StockProps = 15 BevelInner = 2 Begin MhintimeLib.MhTimeInput MhTimeInputStar Height = 444 Left = 396 TabIndex = 0 Top = 252 Width = 1560 _Version = 65536 _ExtentX = 2752 _ExtentY = 783 _StockProps = 77 BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} name = "MS Sans Serif" charset = 0 weight = 400 size = 12 underline = 0 'False italic = 0 'False strikethrough = 0 'False EndProperty TintColor = 16711935 Alignment = 2 BevelSize = 1 BevelStyle = 0 BorderColor = -2147483642 BorderStyle = 0 FillColor = -2147483633 LightColor = -2147483643 ShadowColor = -2147483632 TextColor = -2147483640 Text = "20:36:40" ReadOnly = 0 'False Spin = 0 SpinDelay = 500 SpinSpeed = 500 Indent = 0 AutoHScroll = 0 'False FontStyle = 0 Verbose = 0 'False CaretHeight = 0 CaretWidth = 0 CaretColor = -2147483640 CaretStyle = 0 CaretVAlign = 0 CaretInterval = 500 CaretVisible = -1 'True Separator = 58 TimeFormat = 2 Country = 0 VAlignment = 2 MaxHours = 23 MaxMinutes = 59 MaxSeconds = 59 MinHours = 0 MinMinutes = 0 MinSeconds = 0 SpinChange = 1 AllowBlank = 0 'False FocusSelect = 0 'False AM = 0 'False End Begin VB.Shape Shape5 BackColor = &H00FFFF00& BackStyle = 1 'Opaque FillColor = &H00FFFFFF& Height = 480 Left = 1728 Shape = 2 'Oval Top = 144 Width = 336 End Begin VB.Shape Shape4 BackColor = &H00FF00FF& BackStyle = 1 'Opaque FillColor = &H00FFFFFF& Height = 300 Left = 216 Shape = 2 'Oval Top = 504 Width = 444 End End Begin VB.Shape Shape13 BackColor = &H00800080& BackStyle = 1 'Opaque FillColor = &H00FFFFFF& Height = 264 Left = 4248 Shape = 2 'Oval Top = 396 Width = 372 End Begin VB.Shape Shape12 BackColor = &H00808000& BackStyle = 1 'Opaque FillColor = &H00FFFFFF& Height = 336 Left = 4176 Shape = 2 'Oval Top = 2952 Width = 588 End Begin VB.Shape Shape11 BackColor = &H0000FFFF& BackStyle = 1 'Opaque FillColor = &H00FFFFFF& Height = 372 Left = 540 Shape = 2 'Oval Top = 2772 Width = 660 End Begin VB.Shape Shape8 BackColor = &H0000FFFF& BackStyle = 1 'Opaque FillColor = &H00FFFFFF& Height = 408 Left = 3096 Shape = 2 'Oval Top = 1008 Width = 300 End Begin VB.Shape Shape7 BackColor = &H000000FF& BackStyle = 1 'Opaque FillColor = &H00FFFFFF& Height = 696 Left = 4572 Shape = 2 'Oval Top = 1476 Width = 372 End Begin VB.Shape Shape6 BackColor = &H00800080& BackStyle = 1 'Opaque FillColor = &H00FFFFFF& Height = 660 Left = 360 Shape = 2 'Oval Top = 1260 Width = 480 End Begin VB.Shape Shape3 BackColor = &H00808000& BackStyle = 1 'Opaque FillColor = &H00FFFFFF& Height = 588 Left = 1440 Shape = 2 'Oval Top = 1548 Width = 480 End Begin VB.Shape Shape2 BackColor = &H00FF00FF& BackStyle = 1 'Opaque FillColor = &H00FFFFFF& Height = 516 Left = 2700 Shape = 2 'Oval Top = 2844 Width = 408 End Begin VB.Shape Shape1 BackColor = &H00FFFF00& BackStyle = 1 'Opaque FillColor = &H00FFFFFF& Height = 444 Left = 1080 Shape = 2 'Oval Top = 432 Width = 768 End End Begin VB.Frame fraTipsAndTricks Caption = "Tips and Tricks..." Height = 3576 Left = 5832 TabIndex = 5 Tag = "slide frame" Top = 36 Visible = 0 'False Width = 5628 Begin VB.TextBox txtTipsAndTricks Height = 3216 Left = 108 Locked = -1 'True MultiLine = -1 'True ScrollBars = 2 'Vertical TabIndex = 6 Top = 252 Width = 5388 End End Begin VB.Menu mnuFile Caption = "&File" Begin VB.Menu mnuFileExit Caption = "E&xit" End End Begin VB.Menu mnuTime Caption = "Set &Time..." End Begin VB.Menu mnuAbout Caption = "&About..." End Begin VB.Menu mnuStar_Context Caption = "MhTimeInputStar Context Menu" Visible = 0 'False Begin VB.Menu mnuStar_Context_Alignment Caption = "&Alignment" Begin VB.Menu mnuStar_Context_Alignment_Item Caption = "&Left" Index = 0 End Begin VB.Menu mnuStar_Context_Alignment_Item Caption = "&Right" Index = 1 End Begin VB.Menu mnuStar_Context_Alignment_Item Caption = "&Center" Index = 2 End End Begin VB.Menu mnuStar_Context_VAlignment Caption = "&VAlignment" Begin VB.Menu mnuStar_Context_VAlignment_Item Caption = "&Top" Index = 0 End Begin VB.Menu mnuStar_Context_VAlignment_Item Caption = "&Bottem" Index = 1 End Begin VB.Menu mnuStar_Context_VAlignment_Item Caption = "&Center" Index = 2 End End Begin VB.Menu mnuStar_Context_Sep6 Caption = "-" End Begin VB.Menu mnuStar_Context_FontStyle Caption = "&Font Style" Begin VB.Menu mnuStar_Context_FontStyle_Item Caption = "&None" Index = 0 End Begin VB.Menu mnuStar_Context_FontStyle_Item Caption = "&Raised" Index = 1 End Begin VB.Menu mnuStar_Context_FontStyle_Item Caption = "Raised (more)" Index = 2 End Begin VB.Menu mnuStar_Context_FontStyle_Item Caption = "&Lowered" Index = 3 End Begin VB.Menu mnuStar_Context_FontStyle_Item Caption = "Lowered (more)" Index = 4 End End Begin VB.Menu mnuStar_Context_Spin Caption = "&Spin Buttons" Begin VB.Menu mnuStar_Context_Spin_Item Caption = "&None" Index = 0 End Begin VB.Menu mnuStar_Context_Spin_Item Caption = "&Left" Index = 1 End Begin VB.Menu mnuStar_Context_Spin_Item Caption = "&Right" Index = 2 End End Begin VB.Menu mnuStar_Context_Sep7 Caption = "-" End Begin VB.Menu mnuStar_Context_Caret Caption = "Caret Visible" Checked = -1 'True End Begin VB.Menu mnuStar_Context_ReadOnly Caption = "&Read Only" End Begin VB.Menu mnuStar_Context_Sep8 Caption = "-" End Begin VB.Menu mnuStar_Context_AboutControl Caption = "About Control..." End End Attribute VB_Name = "frmMhTimeInputOCX_Demo" Attribute VB_Creatable = False Attribute VB_Exposed = False Option Explicit ' always Public TimeDisplayManager As CTimeDisplayManager Private iNumberOfSlides As Byte, iCurrentSlide As Byte ' This method moves to the demo's next slide if not already on the last slide Private Sub ShowSlideNext() ' if we are not on the last slide then choose the next slide as the current slide If iCurrentSlide < iNumberOfSlides Then iCurrentSlide = iCurrentSlide + 1 ' have the user interface move to this new slide (view) SetupFrames (iCurrentSlide) End Sub ' This method returns to the demo's previous slide if not already on the first slide Private Sub ShowSlidePrevious() ' if we are not on the first slide then make the previouse slide the current slide If iCurrentSlide >= 1 Then iCurrentSlide = iCurrentSlide - 1 ' have the user interface move to this new slide (view) SetupFrames (iCurrentSlide) End Sub Public Sub ShowAbout() ' show the about box Screen.MousePointer = vbHourglass Load frmAbout frmAbout.Show Screen.MousePointer = vbDefault End Sub ' This procedure sets the status line text to the text in sMessageText parameter ' and keeps the text there for the time period specified (in milliseconds) by the ' vTimePeriod parameter. This procedure uses the timer on the demo's mDemoFace form to ' get a callback when the vTimePeriod has elapsed. ' sMessageText - text to be displayed ' [vTimePeriod] - time period (in milliseconds) to display the message. If not specfied a value ' of 3000 is used. ' [vOverRide] - when set to True the sMessageText is displayed immediately even if there is a ' message currently being displayed. If set to False (or not specified) and there is a message ' being displayed the new message is placed in a single item queue and displayed when the time ' period of the previous message has expired. Private Sub SetStatusLineText(sMessageText As String, Optional vTimePeriod As Variant, Optional vOverRide As Variant) Static sQueueText As String, iQueueTimePeriod As Integer, bQueueIsEmpty As Boolean Dim oStatusLine As Control, oStatusLineTimer As Timer ' set references to controls on the m_DemoFace form Set oStatusLine = panStatusLine Set oStatusLineTimer = tmrStatusLine ' if the calling procedure did not specify a display time (or set it to <.5 seconds) then default the time to 3 seconds Select Case True Case IsMissing(vTimePeriod), vTimePeriod <= 500 vTimePeriod = 3000 End Select ' if the calling procedure did not specify an vOverRide value then set vOverRide to False If IsMissing(vOverRide) Then vOverRide = False With oStatusLineTimer ' if this procedure was called by the timer then turn the timer off and check queue. If it was not called by the timer ' then there is a new message to display. If sMessageText = "_timer_calling_" Then ' If there is nothing in the queue then reset the status line text to "Ready". ' Otherwise, display the message which is in the queue .Enabled = False ' turn timer off If bQueueIsEmpty Then ' reset status line text oStatusLine.Caption = "Ready..." Else ' display message which is in the queue oStatusLine.Caption = sQueueText ' setup timer to call this procedure when the iQueueTimePeriod has expired .Interval = iQueueTimePeriod sQueueText = "" ' clear queue text iQueueTimePeriod = 0 ' clear queue time period bQueueIsEmpty = True ' the queue is now empty so let's indicate this fact .Enabled = True End If Else ' if the timer is enabled then there is already a message being displayed so place ' this new message in the single item queue. But, if this is an over-ride then ' show the message now If .Enabled And Not vOverRide Then sQueueText = sMessageText iQueueTimePeriod = vTimePeriod bQueueIsEmpty = False Else ' over-ride the currently displayed message .Enabled = False sQueueText = "" ' clear queue text iQueueTimePeriod = 0 ' clear queue time period bQueueIsEmpty = True ' the queue is now empty so let's indicate this fact oStatusLine.Caption = sMessageText ' setup timer to call this procedure when the vTimePeriod has expired .Interval = vTimePeriod .Enabled = True End If End If End With End Sub ' This procedure sets the percent complete status line of the demo's interface ' form. ' iProgress - value to set indicate percent complete of operation. ' If a value of <0 or > 100 is passed the status line is cleared and reset Private Sub SetStatusBarProgress(iProgress As Byte) Dim StatusBar As Control ' set reference to status line on form Set StatusBar = panStatusLine With StatusBar Select Case iProgress Case 0 To 100 ' set the status line flood type if not already set If .FloodType <> 1 Then .FloodType = 1 ' set the value of the percent complete .FloodPercent = iProgress Case Else ' value is outside of valid range so reset status line .FloodType = 0 .FloodPercent = 0 End Select End With ' StatusBar End Sub Private Sub cmdChangeTime_Click() ' show the 'change time' form Call EditTime End Sub Private Sub cmdClose_Click() ' unload this form Unload Me End Sub Private Sub cmdSlide_Click(Index As Integer) ' determine the button that the user pressed Select Case Index Case 0 ' Go Back ShowSlidePrevious Case 1 ' Go to Next slide ShowSlideNext End Select End Sub Private Sub Form_Load() Dim iDisplaySlideLeft As Integer, iDisplaySlideTop As Integer Dim oTempTimeZoneControl As CTimeZoneControl Dim iCount As Byte Set TimeDisplayManager = New CTimeDisplayManager ' setup time management objects For iCount = 0 To 11 Set oTempTimeZoneControl = New CTimeZoneControl With oTempTimeZoneControl Set .InputControl = MhTimeInputZones(iCount) ' set the time zone offsets Select Case iCount Case 0 ' Buenos Aires .TimeZoneOffset = -3 Case 1 ' Cairo .TimeZoneOffset = 2 Case 2 ' Fiji .TimeZoneOffset = 12 Case 3 ' Greenwich Mean Time .TimeZoneOffset = 0 Case 4 ' Los Angeles .TimeZoneOffset = -8 Case 5 ' Madina .TimeZoneOffset = 3 Case 6 ' Mexico City .TimeZoneOffset = -6 Case 7 ' New York .TimeZoneOffset = -5 Case 8 ' Nigeria .TimeZoneOffset = 0 Case 9 ' Paris .TimeZoneOffset = 1 Case 10 ' Sydney .TimeZoneOffset = 10 Case 11 ' Tokyo .TimeZoneOffset = 9 End Select End With ' oTempTimeZoneControl ' add this control to the TimeDisplayManager TimeDisplayManager.Add oTempTimeZoneControl Next iCount ' set control to current time MhTimeInputStar.Text = Format$(Time, "h:nn:ss") ' set GMT as if we are in New York TimeDisplayManager.GreenwichMeanTimeOffset = -5 ' hours tmrTimeDisplayManager.Interval = 1000 ' 1 second ' place all display frames in the same location as the first frame iDisplaySlideTop = fraTheLook.Top iDisplaySlideLeft = fraTheLook.Left Dim TempControl As Control For Each TempControl In Me.Controls If TypeOf TempControl Is Frame Then With TempControl If .Tag = "slide frame" Then ' frames used as slides have their .Tag properties set to "slide frame" .Left = iDisplaySlideLeft .Top = iDisplaySlideTop End If End With ' TempControl End If Next TempControl ' center the form to the screen Move Abs(Screen.Width - Width) \ 2, Abs(Screen.Height - Height) \ 2 ' we use 4 slide (views) for this demo iNumberOfSlides = 4 ' setup first slide SetupFrames (1) Call ShowSlideNext ' greet the user warmly! Dim sGreeting As String Randomize (Timer) Select Case Int(Rnd * 4) Case 0 sGreeting = "Howdi programmer..." Case 1 sGreeting = "Hi there..." Case 2 sGreeting = "It's MhWave Time!" Case Else sGreeting = "Welcome to the MicroHelp MhWave Demo!" End Select Call SetStatusLineText(sGreeting, 5001, True) End Sub Private Sub Form_Unload(Cancel As Integer) End End Sub Private Sub MhTimeInputStar_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) ' if the user click the right mousebutton then show ' the context menu for this control If Button And vbRightButton Then ' setup menu items With MhTimeInputStar mnuStar_Context_Caret.Checked = .CaretVisible mnuStar_Context_ReadOnly.Checked = .ReadOnly End With ' MhTimeInputStar PopupMenu mnuStar_Context End If End Sub Private Sub mnuAbout_Click() ' tell user about the demo by calling the parent object's ShowAbout method ShowAbout End Sub Private Sub mnuFileExit_Click() ' unload form Unload Me End Sub ' This procedure sets up the different views according to the SlideNumber parameter Public Sub SetupFrames(SlideNumber As Integer) On Error GoTo SetupFrames_Error Dim oCurrentFrame As Frame Dim sMessageText As String ' enabled/disable the appropriate buttons according to our slide number Select Case True Case SlideNumber <= 1 ' we are at first slide ' disable the back button cmdSlide(0).Enabled = False ' enable the 'next' button cmdSlide(1).Enabled = True cmdSlide(1).SetFocus Case SlideNumber >= iNumberOfSlides ' we are at last slide ' disable the next button cmdSlide(1).Enabled = False ' enable the 'back' button cmdSlide(0).Enabled = True cmdSlide(0).SetFocus Case Else ' enable both buttons cmdSlide(0).Enabled = True ' back cmdSlide(1).Enabled = True ' next End Select ' since only one slide uses this text box it can be set to empty to save a little memory txtTipsAndTricks.Text = "" ' make desired slide visible Select Case SlideNumber Case 1 Set oCurrentFrame = fraTheLook oCurrentFrame.Visible = True ' tell user what this slide is about sMessageText = "Check out the MhTimeInput control!" MhTimeInputStar.SetFocus Case 2 Set oCurrentFrame = fraInputRange oCurrentFrame.Visible = True ' tell user what this slide is about sMessageText = "The MhTimeInput allows you to control the range of valid values." MhTimeInputLunch(0).SetFocus Case 3 Set oCurrentFrame = fraWorldTimes oCurrentFrame.Visible = True ' tell user what this slide is about sMessageText = "Programming is an international language. Amy Allsmyles, 1995." Case 4 Set oCurrentFrame = fraTipsAndTricks oCurrentFrame.Visible = True With txtTipsAndTricks .Text = "Speeding Up Data Entry" & vbCrLf & "When designing forms for rapid data entry try utilizing the AutoTerminate event of the various OLETools controls (including this one). The AutoTerminate event fires when the user has reached the end of the text in the control. You can facilitate speedy data entry by placing code in the AutoTerminate event which sets focus to the next data entry control." .Text = .Text & vbCrLf & vbCrLf & "" & vbCrLf & "" End With ' txtTipsAndTricks ' give user a tip sMessageText = "Best advice: Know your tools, read the manual well!" cmdSlide(0).SetFocus End Select ' make all frames invisible (except for the current frame) Dim TempControl As Control For Each TempControl In Me.Controls If TypeOf TempControl Is Frame Then With TempControl If .Tag = "slide frame" And .hWnd <> oCurrentFrame.hWnd Then .Visible = False End With ' TempControl End If Next TempControl ' show user message which goes with the selected slide Call SetStatusLineText(sMessageText, vOverRide:=True) Exit Sub SetupFrames_Error: Select Case Err Case 5 ' setfocus while form still not loaded is ok to do End Select Resume Next End Sub Private Sub mnuStar_Context_AboutControl_Click() ' show the control's built in about box Screen.MousePointer = vbHourglass Call MhTimeInputStar.AboutBox Screen.MousePointer = vbDefault End Sub Private Sub mnuStar_Context_Alignment_Item_Click(Index As Integer) ' set the .Alignment property to the one which the user selected. Note the ' use of the control's intrinsic constants Select Case Index Case 0 MhTimeInputStar.Alignment = mhAlignmentLeft Case 1 MhTimeInputStar.Alignment = mhAlignmentRight Case 2 MhTimeInputStar.Alignment = mhAlignmentCenter End Select End Sub Private Sub mnuStar_Context_Caret_Click() ' toggle the visible state of the caret MhTimeInputStar.CaretVisible = Not mnuStar_Context_Caret.Checked End Sub Private Sub mnuStar_Context_FontStyle_Item_Click(Index As Integer) ' set font style to the one which the user chose (see the ' mnuStar_Context_VAlignment_Item_Click procedure for illustration of use of ' intrinsic constants MhTimeInputStar.FontStyle = Index End Sub Private Sub mnuStar_Context_ReadOnly_Click() ' toggle the visible state of the caret MhTimeInputStar.ReadOnly = Not mnuStar_Context_ReadOnly.Checked End Sub Private Sub mnuStar_Context_Spin_Item_Click(Index As Integer) ' set the .Spin property to the one which the user selected. Note the ' use of the control's intrinsic constants Select Case Index Case 0 ' none MhTimeInputStar.Spin = mhNoSpin Case 1 ' left MhTimeInputStar.Spin = mhLeftSpin Case 2 ' right MhTimeInputStar.Spin = mhRightSpin End Select End Sub Private Sub mnuStar_Context_VAlignment_Item_Click(Index As Integer) ' set the .VAlignment property to the one which the user selected. Note the ' use of the control's intrinsic constants Select Case Index Case 0 MhTimeInputStar.VAlignment = mhVAlignTop Case 1 MhTimeInputStar.VAlignment = mhVAlignBottom Case 2 MhTimeInputStar.VAlignment = mhVAlignCenter End Select End Sub Private Sub mnuTime_Click() ' show the 'change time' form Call EditTime End Sub Private Sub tmrStatusLine_Timer() ' tell status line that it is time to reset itself Call SetStatusLineText("_timer_calling_") End Sub Private Sub tmrTimeDisplayManager_Timer() ' tell the TimeDisplayManager to update the times Call TimeDisplayManager.UpdateTimeZoneControls End Sub Private Sub EditTime() ' show the 'change time' form Screen.MousePointer = vbHourglass frmChangeTime.ParentObject = Me Screen.MousePointer = vbDefault frmChangeTime.Show vbModal End Sub