Programming Tool Box

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

/ Programming Tool Box / SIMS_2.iso / tool / various / ctdemo / ct_sched.frm (.txt) < prev next >

Wrap

Visual Basic Form | 1995-02-26 | 20.5 KB | 614 lines

VERSION 2.00 Begin Form w_sched_demo BackColor = &H00C0C0C0& Caption = "ctSHED and ctRULER (Scheduling Bar and Ruler) Demo" ClientHeight = 6045 ClientLeft = 90 ClientTop = 900 ClientWidth = 9360 Height = 6570 Icon = CT_SCHED.FRX:0000 Left = 30 LinkTopic = "Form1" MDIChild = -1 'True ScaleHeight = 6045 ScaleWidth = 9360 Top = 435 Width = 9480 WindowState = 2 'Maximized Begin ctSCHED ctSched AllowOverlap = 0 'False AllowReversal = -1 'True BackColor = &H00FFFFFF& BarBorder = 0 'False BarColor = &H000000C0& BarEnd = 0 BarStart = 0 BorderColor = &H00000000& BorderType = 0 'Regular Height = 495 Index = 6 InnerBottom = 12 InnerColor = &H00FFFFFF& InnerLeft = 1 InnerRight = 1 InnerTop = 5 Left = 1320 MaxValue = 120 MinValue = 0 PicEndFront = 0 'False PicEndHide = 0 'False PicEndXOffset = 0 PicEndYOffset = 0 PicStartFront = 0 'False PicStartHide = 0 'False PicStartXOffset = 0 PicStartYOffset = 0 ReverseOffsets = 0 'False TabIndex = 12 TipExtension = 0 TipSize = 4 Top = 4560 Width = 7695 End Begin CommandButton Command1 Caption = "E&xit" Height = 435 Left = 8340 TabIndex = 9 Top = 5310 Width = 855 End Begin ctSCHED ctSched AllowOverlap = 0 'False AllowReversal = -1 'True BackColor = &H00FFFFFF& BarBorder = 0 'False BarColor = &H000000FF& BarEnd = 0 BarStart = 0 BorderColor = &H00000000& BorderType = 0 'Regular Height = 495 Index = 5 InnerBottom = 12 InnerColor = &H00FFFFFF& InnerLeft = 1 InnerRight = 1 InnerTop = 5 Left = 1320 MaxValue = 120 MinValue = 0 PicEndFront = 0 'False PicEndHide = 0 'False PicEndXOffset = 0 PicEndYOffset = 0 PicStartFront = 0 'False PicStartHide = 0 'False PicStartXOffset = 0 PicStartYOffset = 0 ReverseOffsets = 0 'False TabIndex = 8 TipExtension = 0 TipSize = 4 Top = 4080 Width = 7695 End Begin ctSCHED ctSched AllowOverlap = 0 'False AllowReversal = -1 'True BackColor = &H00FFFFFF& BarBorder = -1 'True BarColor = &H000000FF& BarEnd = 0 BarStart = 0 BorderColor = &H00000000& BorderType = 0 'Regular Height = 495 Index = 4 InnerBottom = 16 InnerColor = &H00FFFFFF& InnerLeft = 1 InnerRight = 1 InnerTop = 5 Left = 1320 MaxValue = 120 MinValue = 0 PicEndFront = -1 'True PicEndHide = 0 'False PicEndXOffset = 0 PicEndYOffset = 2 PicStartFront = -1 'True PicStartHide = 0 'False PicStartXOffset = 0 PicStartYOffset = 2 PictureEnd = CT_SCHED.FRX:0302 PictureStart = CT_SCHED.FRX:0604 ReverseOffsets = 0 'False TabIndex = 7 TipExtension = 4 TipSize = 4 Top = 3600 Width = 7695 End Begin ctSCHED ctSched AllowOverlap = 0 'False AllowReversal = -1 'True BackColor = &H00FFFFFF& BarBorder = -1 'True BarColor = &H000000FF& BarEnd = 0 BarStart = 0 BorderColor = &H00000000& BorderType = 0 'Regular Height = 495 Index = 3 InnerBottom = 16 InnerColor = &H00FFFFFF& InnerLeft = 1 InnerRight = 1 InnerTop = 5 Left = 1320 MaxValue = 120 MinValue = 0 PicEndFront = -1 'True PicEndHide = 0 'False PicEndXOffset = 0 PicEndYOffset = 2 PicStartFront = -1 'True PicStartHide = 0 'False PicStartXOffset = 0 PicStartYOffset = 2 PictureEnd = CT_SCHED.FRX:0906 PictureStart = CT_SCHED.FRX:0C08 ReverseOffsets = 0 'False TabIndex = 6 TipExtension = 4 TipSize = 4 Top = 3120 Width = 7695 End Begin VScrollBar VScroll1 Enabled = 0 'False Height = 3375 Left = 9000 TabIndex = 5 Top = 1680 Width = 255 End Begin ctSCHED ctSched AllowOverlap = 0 'False AllowReversal = -1 'True BackColor = &H00FFFFFF& BarBorder = 0 'False BarColor = &H000000FF& BarEnd = 0 BarStart = 0 BorderColor = &H00000000& BorderType = 0 'Regular Height = 495 Index = 2 InnerBottom = 12 InnerColor = &H00FFFFFF& InnerLeft = 1 InnerRight = 1 InnerTop = 5 Left = 1320 MaxValue = 120 MinValue = 0 PicEndFront = 0 'False PicEndHide = 0 'False PicEndXOffset = 0 PicEndYOffset = 0 PicStartFront = 0 'False PicStartHide = 0 'False PicStartXOffset = 0 PicStartYOffset = 0 ReverseOffsets = 0 'False TabIndex = 4 TipExtension = 0 TipSize = 4 Top = 2640 Width = 7695 End Begin ctSCHED ctSched AllowOverlap = 0 'False AllowReversal = -1 'True BackColor = &H00FFFFFF& BarBorder = 0 'False BarColor = &H000000C0& BarEnd = 0 BarStart = 0 BorderColor = &H00000000& BorderType = 0 'Regular Height = 495 Index = 1 InnerBottom = 12 InnerColor = &H00FFFFFF& InnerLeft = 1 InnerRight = 1 InnerTop = 5 Left = 1320 MaxValue = 120 MinValue = 0 PicEndFront = 0 'False PicEndHide = 0 'False PicEndXOffset = 0 PicEndYOffset = 0 PicStartFront = 0 'False PicStartHide = 0 'False PicStartXOffset = 0 PicStartYOffset = 0 ReverseOffsets = 0 'False TabIndex = 3 TipExtension = 0 TipSize = 4 Top = 2160 Width = 7695 End Begin ctSCHED ctSched AllowOverlap = 0 'False AllowReversal = -1 'True BackColor = &H00FFFFFF& BarBorder = -1 'True BarColor = &H000000FF& BarEnd = 40 BarStart = 20 BorderColor = &H00000000& BorderType = 0 'Regular Height = 495 Index = 0 InnerBottom = 16 InnerColor = &H00FFFFFF& InnerLeft = 1 InnerRight = 1 InnerTop = 5 Left = 1320 MaxValue = 120 MinValue = 0 PicEndFront = -1 'True PicEndHide = 0 'False PicEndXOffset = 0 PicEndYOffset = 2 PicStartFront = -1 'True PicStartHide = 0 'False PicStartXOffset = 0 PicStartYOffset = 2 PictureEnd = CT_SCHED.FRX:0F0A PictureStart = CT_SCHED.FRX:120C ReverseOffsets = 0 'False TabIndex = 2 TipExtension = 3 TipSize = 4 Top = 1680 Width = 7695 End Begin ctFRAME ctFrame1 Align = 1 'Align Top BackColor = &H00C0C0C0& BorderColor = &H00000000& DistanceApart = 5 Height = 525 InnerBorder = 1 'None InnerWidth = 1 Left = 0 OuterBorder = 0 'Regular OuterWidth = 1 ShadowColor = &H00808080& ShowBottom = -1 'True ShowLeft = 0 'False ShowRight = 0 'False ShowTop = 0 'False TabIndex = 0 Top = 0 Width = 9360 Begin ctRULER ctRuler BackColor = &H00C0C0C0& BorderColor = &H00000000& BorderType = 1 'None FontBold = 0 'False FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False ForeColor = &H00800000& Height = 540 InnerBottom = 0 InnerLeft = 1 InnerRight = 1 InnerTop = 0 Left = 1320 LineAlternate = -1 'True LinePosition = 1 'Bottom/Right LineThreeD = -1 'True MarkerColor = &H000000FF& MarkerValue1 = -1 MarkerValue2 = -1 MaxValue = 120 MinValue = 0 RulerType = 1 'Horizontal ShowDivisions = 4 ShowMax = 12 ShowMin = 0 ShowMultiply = 1 ShowType = 3 'Time Value (x:00) TabIndex = 1 TextPosition = 0 'Top/Left TextXOffset = 0 TextYOffset = 0 Top = -30 Width = 7695 End Begin Label Label2 BackColor = &H00C0C0C0& Caption = "Time :" FontBold = 0 'False FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 9.75 FontStrikethru = 0 'False FontUnderline = 0 'False ForeColor = &H00000000& Height = 255 Left = 420 TabIndex = 13 Top = 120 Width = 675 End End Begin ctTEXT ctText Alignment = 2 'Centered BackColor = &H00C0C0C0& BorderColor = &H00000000& BorderType = 3 'Lowered Caption = "Employee #1" FontBold = 0 'False FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False ForeColor = &H00000000& Height = 495 Index = 0 Left = 60 PicPosition = 0 'Center ShadowColor = &H00000000& SingleLine = -1 'True TabIndex = 10 TextAngle = 0 TextPosition = 1 'Center ThreeDColor = &H00808080& ThreeDText = 0 'False Top = 1680 Width = 1275 End Begin ctTEXT ctText Alignment = 2 'Centered BackColor = &H00C0C0C0& BorderColor = &H00000000& BorderType = 3 'Lowered Caption = "Employee #2" FontBold = 0 'False FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False ForeColor = &H00000000& Height = 495 Index = 1 Left = 60 PicPosition = 0 'Center ShadowColor = &H00000000& SingleLine = -1 'True TabIndex = 11 TextAngle = 0 TextPosition = 1 'Center ThreeDColor = &H00808080& ThreeDText = 0 'False Top = 2160 Width = 1275 End Begin ctTEXT ctText Alignment = 2 'Centered BackColor = &H00C0C0C0& BorderColor = &H00000000& BorderType = 3 'Lowered Caption = "Employee #3" FontBold = 0 'False FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False ForeColor = &H00000000& Height = 495 Index = 2 Left = 60 PicPosition = 0 'Center ShadowColor = &H00000000& SingleLine = -1 'True TabIndex = 14 TextAngle = 0 TextPosition = 1 'Center ThreeDColor = &H00808080& ThreeDText = 0 'False Top = 2640 Width = 1275 End Begin ctTEXT ctText Alignment = 2 'Centered BackColor = &H00C0C0C0& BorderColor = &H00000000& BorderType = 3 'Lowered Caption = "Employee #4" FontBold = 0 'False FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False ForeColor = &H00000000& Height = 495 Index = 3 Left = 60 PicPosition = 0 'Center ShadowColor = &H00000000& SingleLine = -1 'True TabIndex = 15 TextAngle = 0 TextPosition = 1 'Center ThreeDColor = &H00808080& ThreeDText = 0 'False Top = 3120 Width = 1275 End Begin ctTEXT ctText Alignment = 2 'Centered BackColor = &H00C0C0C0& BorderColor = &H00000000& BorderType = 3 'Lowered Caption = "Employee #5" FontBold = 0 'False FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False ForeColor = &H00000000& Height = 495 Index = 4 Left = 60 PicPosition = 0 'Center ShadowColor = &H00000000& SingleLine = -1 'True TabIndex = 16 TextAngle = 0 TextPosition = 1 'Center ThreeDColor = &H00808080& ThreeDText = 0 'False Top = 3600 Width = 1275 End Begin ctTEXT ctText Alignment = 2 'Centered BackColor = &H00C0C0C0& BorderColor = &H00000000& BorderType = 3 'Lowered Caption = "Employee #6" FontBold = 0 'False FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False ForeColor = &H00000000& Height = 495 Index = 5 Left = 60 PicPosition = 0 'Center ShadowColor = &H00000000& SingleLine = -1 'True TabIndex = 17 TextAngle = 0 TextPosition = 1 'Center ThreeDColor = &H00808080& ThreeDText = 0 'False Top = 4080 Width = 1275 End Begin ctTEXT ctText Alignment = 2 'Centered BackColor = &H00C0C0C0& BorderColor = &H00000000& BorderType = 3 'Lowered Caption = "Employee #7" FontBold = 0 'False FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False ForeColor = &H00000000& Height = 495 Index = 6 Left = 60 PicPosition = 0 'Center ShadowColor = &H00000000& SingleLine = -1 'True TabIndex = 18 TextAngle = 0 TextPosition = 1 'Center ThreeDColor = &H00808080& ThreeDText = 0 'False Top = 4560 Width = 1275 End Begin Label Label3 BackStyle = 0 'Transparent Caption = "Bitmaps or icons can be assigned to each end of a scheduling bar. This allows the programmer to use the VBX as a sort of gantt chart control." FontBold = 0 'False FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False ForeColor = &H00800000& Height = 495 Left = 1320 TabIndex = 20 Top = 5220 Width = 6375 End Begin Label Label1 Alignment = 2 'Center BackStyle = 0 'Transparent Caption = "This demonstration uses the ctSCHED (Scheduling Bar) , ctRULER, ctFRAME and ctTEXT to create a type of employee scheduling system. To start scheduling an employee, click and drag the mouse along one of the white bars below. The scheduling bars can be moved by clicking and dragging along the middle of the bar. They can be re-sized by clicking and dragging along the ends of the bar." FontBold = 0 'False FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False ForeColor = &H00800000& Height = 825 Left = 360 TabIndex = 19 Top = 660 Width = 8595 End Dim nActive As Integer Sub Command1_Click () Unload w_sched_demo End Sub Sub ctCheck_Click () End Sub Sub ctSched_BarChange (Index As Integer, nStartBar As Integer, nEndBar As Integer) ctRuler.MarkerValue1 = ctSched(Index).BarStart ctRuler.MarkerValue2 = ctSched(Index).BarEnd End Sub Sub ctSched_GotFocus (Index As Integer) If ctSched(Index).BarStart > 0 Then ctRuler.MarkerValue1 = ctSched(Index).BarStart End If If ctSched(Index).BarEnd > 0 Then ctRuler.MarkerValue2 = ctSched(Index).BarEnd End If nActive = Index ctText(Index).FontBold = True End Sub Sub ctSched_LostFocus (Index As Integer) nActive = -1 ctText(Index).FontBold = False End Sub Sub Form_Load () ' Center the window on the screen Move (Screen.Width - Width) / 2, (Screen.Height - Height) * .25 w_mdi_main.bt_sched = BUTTON_DISABLE End Sub Sub Form_Unload (Cancel As Integer) w_mdi_main.bt_sched = BUTTON_UP End Sub