Visual Basic 5 Developer's Kit

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

/ Visual Basic 5 Developer's Kit / vb5 dev kit.iso / dev / ct_ocx / ct_sched.frm (.txt) < prev next >

Wrap

Visual Basic Form | 1996-01-01 | 12.5 KB | 411 lines

VERSION 4.00 Begin VB.Form w_sched_demo BorderStyle = 3 'Fixed Dialog Caption = "ctSched and ctRuler (Scheduling Bar and Ruler) Demo" ClientHeight = 5940 ClientLeft = 1140 ClientTop = 1515 ClientWidth = 9300 Height = 6345 Icon = "ct_sched.frx":0000 Left = 1080 LinkTopic = "Form1" MaxButton = 0 'False MDIChild = -1 'True MinButton = 0 'False ScaleHeight = 5940 ScaleWidth = 9300 ShowInTaskbar = 0 'False Top = 1170 Width = 9420 Begin VB.CommandButton Command1 Caption = "E&xit" Height = 435 Left = 7800 TabIndex = 11 Top = 5220 Width = 1095 End Begin FrameLibCtl.ctFrame ctFrame1 Align = 1 'Align Top Height = 615 Left = 0 TabIndex = 6 Top = 0 Width = 9300 _version = 65536 _extentx = 16404 _extenty = 1085 _stockprops = 32 showtop = 0 'False showright = 0 'False showleft = 0 'False backcolor = 12632256 Begin VB.Label Label2 Caption = "Time :" BeginProperty Font name = "MS Sans Serif" charset = 0 weight = 400 size = 9.75 underline = 0 'False italic = 0 'False strikethrough = 0 'False EndProperty Height = 315 Left = 240 TabIndex = 10 Top = 180 Width = 735 End Begin RulerLibCtl.ctRuler ctRuler1 Height = 600 Left = 1440 TabIndex = 7 Top = 0 Width = 7395 _version = 65536 _extentx = 13044 _extenty = 1058 _stockprops = 68 maxvalue = 144 innerleft = 1 innerright = 1 showmax = 12 showtype = 3 bordertype = 1 textposition = 0 linethreed = -1 'True End End Begin VB.VScrollBar VScroll1 Height = 2895 Left = 8775 TabIndex = 8 Top = 1980 Width = 255 End Begin SchedLib.ctSched ctSched6 Height = 495 Left = 1440 TabIndex = 5 Top = 4380 Width = 7335 _version = 65536 _extentx = 12938 _extenty = 873 _stockprops = 78 innercolor = 14745599 maxvalue = 144 innerbottom = 10 innerleft = 1 innerright = 1 innertop = 10 End Begin SchedLib.ctSched ctSched5 Height = 495 Left = 1440 TabIndex = 4 Top = 3900 Width = 7335 _version = 65536 _extentx = 12938 _extenty = 873 _stockprops = 78 caption = "Special Services" barcolor = 33023 alignment = 2 maxvalue = 144 innerbottom = 7 innerleft = 1 innerright = 1 innertop = 7 barborder = -1 'True End Begin SchedLib.ctSched ctSched4 Height = 495 Left = 1440 TabIndex = 3 Top = 3420 Width = 7335 _version = 65536 _extentx = 12938 _extenty = 873 _stockprops = 78 picturestart = "ct_sched.frx":030A pictureend = "ct_sched.frx":0624 maxvalue = 144 picendyoffset = 2 picstartyoffset = 2 innerbottom = 16 innerleft = 1 innerright = 1 tipextension = 4 barborder = -1 'True picstartfront = -1 'True End Begin SchedLib.ctSched ctSched3 Height = 495 Left = 1440 TabIndex = 2 Top = 2940 Width = 7335 _version = 65536 _extentx = 12938 _extenty = 873 _stockprops = 78 barcolor = 192 maxvalue = 144 innerbottom = 12 innerleft = 1 innerright = 1 innertop = 12 End Begin TextLib.ctText ctText6 Height = 495 Left = 120 TabIndex = 18 Top = 4380 Width = 1335 _version = 65536 _extentx = 2355 _extenty = 873 _stockprops = 70 caption = "Employee #6" bordertype = 3 alignment = 2 End Begin TextLib.ctText ctText5 Height = 495 Left = 120 TabIndex = 17 Top = 3900 Width = 1335 _version = 65536 _extentx = 2355 _extenty = 873 _stockprops = 70 caption = "Employee #5" bordertype = 3 alignment = 2 End Begin TextLib.ctText ctText4 Height = 495 Left = 120 TabIndex = 16 Top = 3420 Width = 1335 _version = 65536 _extentx = 2355 _extenty = 873 _stockprops = 70 caption = "Employee #4" bordertype = 3 alignment = 2 End Begin TextLib.ctText ctText3 Height = 495 Left = 120 TabIndex = 15 Top = 2940 Width = 1335 _version = 65536 _extentx = 2355 _extenty = 873 _stockprops = 70 caption = "Employee #3" bordertype = 3 alignment = 2 End Begin SchedLib.ctSched ctSched2 Height = 495 Left = 1440 TabIndex = 1 Top = 2460 Width = 7335 _version = 65536 _extentx = 12938 _extenty = 873 _stockprops = 78 caption = "A.R. Project" forecolor = 16777215 maxvalue = 144 innerleft = 1 innerright = 1 End Begin TextLib.ctText ctText2 Height = 495 Left = 120 TabIndex = 14 Top = 2460 Width = 1335 _version = 65536 _extentx = 2355 _extenty = 873 _stockprops = 70 caption = "Employee #2" bordertype = 3 alignment = 2 End Begin SchedLib.ctSched ctSched1 Height = 495 Left = 1440 TabIndex = 0 Top = 1980 Width = 7335 _version = 65536 _extentx = 12938 _extenty = 873 _stockprops = 78 picturestart = "ct_sched.frx":093E pictureend = "ct_sched.frx":0C58 barend = 60 barstart = 20 maxvalue = 144 picendyoffset = 2 picstartyoffset = 2 innerbottom = 16 innerleft = 1 innerright = 1 tipextension = 4 barborder = -1 'True End Begin TextLib.ctText ctText1 Height = 495 Left = 120 TabIndex = 13 Top = 1980 Width = 1335 _version = 65536 _extentx = 2355 _extenty = 873 _stockprops = 70 caption = "Employee #1" bordertype = 3 alignment = 2 End Begin VB.Label Label3 Caption = $"ct_sched.frx":0F72 Height = 555 Left = 180 TabIndex = 12 Top = 5100 Width = 5535 End Begin VB.Label Label1 Alignment = 2 'Center Caption = $"ct_sched.frx":1003 ForeColor = &H00800000& Height = 975 Left = 240 TabIndex = 9 Top = 780 Width = 8655 End Attribute VB_Name = "w_sched_demo" Attribute VB_Creatable = False Attribute VB_Exposed = False Private Sub Command1_Click() Unload w_sched_demo End Sub Private Sub ctSched1_BarChange(nStartBar As Integer, nEndBar As Integer) ctRuler1.MarkerValue1 = nStartBar ctRuler1.MarkerValue2 = nEndBar End Sub Private Sub ctSched1_GotFocus() If ctSched1.BarStart > 0 Then ctRuler1.MarkerValue1 = ctSched1.BarStart End If If ctSched1.BarEnd > 0 Then ctRuler1.MarkerValue2 = ctSched1.BarEnd End If ctText1.FontBold = True End Sub Private Sub ctSched1_LostFocus() ctText1.FontBold = False End Sub Private Sub ctSched2_BarChange(nStartBar As Integer, nEndBar As Integer) ctRuler1.MarkerValue1 = nStartBar ctRuler1.MarkerValue2 = nEndBar End Sub Private Sub ctSched2_GotFocus() If ctSched2.BarStart > 0 Then ctRuler1.MarkerValue1 = ctSched2.BarStart End If If ctSched2.BarEnd > 0 Then ctRuler1.MarkerValue2 = ctSched2.BarEnd End If ctText2.FontBold = True End Sub Private Sub ctSched2_LostFocus() ctText2.FontBold = False End Sub Private Sub ctSched3_BarChange(nStartBar As Integer, nEndBar As Integer) ctRuler1.MarkerValue1 = nStartBar ctRuler1.MarkerValue2 = nEndBar End Sub Private Sub ctSched3_GotFocus() If ctSched3.BarStart > 0 Then ctRuler1.MarkerValue1 = ctSched3.BarStart End If If ctSched3.BarEnd > 0 Then ctRuler1.MarkerValue2 = ctSched3.BarEnd End If ctText3.FontBold = True End Sub Private Sub ctSched3_LostFocus() ctText3.FontBold = False End Sub Private Sub ctSched4_BarChange(nStartBar As Integer, nEndBar As Integer) ctRuler1.MarkerValue1 = nStartBar ctRuler1.MarkerValue2 = nEndBar End Sub Private Sub ctSched4_GotFocus() If ctSched4.BarStart > 0 Then ctRuler1.MarkerValue1 = ctSched4.BarStart End If If ctSched4.BarEnd > 0 Then ctRuler1.MarkerValue2 = ctSched4.BarEnd End If ctText4.FontBold = True End Sub Private Sub ctSched4_LostFocus() ctText4.FontBold = False End Sub Private Sub ctSched5_BarChange(nStartBar As Integer, nEndBar As Integer) ctRuler1.MarkerValue1 = nStartBar ctRuler1.MarkerValue2 = nEndBar End Sub Private Sub ctSched5_GotFocus() If ctSched5.BarStart > 0 Then ctRuler1.MarkerValue1 = ctSched5.BarStart End If If ctSched5.BarEnd > 0 Then ctRuler1.MarkerValue2 = ctSched5.BarEnd End If ctText5.FontBold = True End Sub Private Sub ctSched5_LostFocus() ctText5.FontBold = False End Sub Private Sub ctSched6_BarChange(nStartBar As Integer, nEndBar As Integer) ctRuler1.MarkerValue1 = nStartBar ctRuler1.MarkerValue2 = nEndBar End Sub Private Sub ctSched6_GotFocus() If ctSched6.BarStart > 0 Then ctRuler1.MarkerValue1 = ctSched6.BarStart End If If ctSched6.BarEnd > 0 Then ctRuler1.MarkerValue2 = ctSched6.BarEnd End If ctText6.FontBold = True End Sub Private Sub ctSched6_LostFocus() ctText6.FontBold = False End Sub Private Sub Form_Load() ' Center the window on the screen Move (Screen.Width - Width) / 2, (Screen.Height - Height) * 0.25 End Sub