Programming Tool Box

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

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

Wrap

Visual Basic Form | 1995-02-26 | 18.0 KB | 540 lines

VERSION 2.00 Begin Form w_fold_demo BackColor = &H00C0C0C0& BorderStyle = 1 'Fixed Single Caption = "cfFOLD (Tabbed File Folder) Demo" ClientHeight = 5715 ClientLeft = 465 ClientTop = 1200 ClientWidth = 8385 Height = 6240 Icon = CT_FOLD.FRX:0000 Left = 405 LinkTopic = "Form1" MaxButton = 0 'False MDIChild = -1 'True ScaleHeight = 5715 ScaleWidth = 8385 Top = 735 Width = 8505 Begin ctGROUP ctGroup1 Alignment = 0 'Left BackColor = &H00C0C0C0& BorderColor = &H00808080& BorderType = 4 'Lowered Inset Caption = "Enabled Tabs" ForeColor = &H00000000& Height = 735 Left = 300 TabIndex = 13 TextPosition = 0 'Top Top = 4800 Width = 5715 Begin ctCHECK chk_6 Alignment = 0 'Left Justify BackColor = &H00C0C0C0& Caption = "Tab 6" DisableColor = &H00808080& FontBold = 0 'False FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False ForeColor = &H00000000& Height = 255 Left = 4680 PicStyle = 2 'Style #2 ShowFocus = -1 'True TabIndex = 19 Top = 300 Value = -1 'True Width = 915 End Begin ctCHECK chk_5 Alignment = 0 'Left Justify BackColor = &H00C0C0C0& Caption = "Tab 5" DisableColor = &H00808080& FontBold = 0 'False FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False ForeColor = &H00000000& Height = 255 Left = 3780 PicStyle = 2 'Style #2 ShowFocus = -1 'True TabIndex = 18 Top = 300 Value = -1 'True Width = 915 End Begin ctCHECK chk_4 Alignment = 0 'Left Justify BackColor = &H00C0C0C0& Caption = "Tab 4" DisableColor = &H00808080& FontBold = 0 'False FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False ForeColor = &H00000000& Height = 255 Left = 2880 PicStyle = 2 'Style #2 ShowFocus = -1 'True TabIndex = 17 Top = 300 Value = -1 'True Width = 915 End Begin ctCHECK chk_3 Alignment = 0 'Left Justify BackColor = &H00C0C0C0& Caption = "Tab 3" DisableColor = &H00808080& FontBold = 0 'False FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False ForeColor = &H00000000& Height = 255 Left = 1980 PicStyle = 2 'Style #2 ShowFocus = -1 'True TabIndex = 16 Top = 300 Value = -1 'True Width = 915 End Begin ctCHECK chk_2 Alignment = 0 'Left Justify BackColor = &H00C0C0C0& Caption = "Tab 2" DisableColor = &H00808080& FontBold = 0 'False FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False ForeColor = &H00000000& Height = 255 Left = 1080 PicStyle = 2 'Style #2 ShowFocus = -1 'True TabIndex = 15 Top = 300 Value = -1 'True Width = 915 End Begin ctCHECK chk_1 Alignment = 0 'Left Justify BackColor = &H00C0C0C0& Caption = "Tab 1" DisableColor = &H00808080& FontBold = 0 'False FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False ForeColor = &H00000000& Height = 255 Left = 180 PicStyle = 2 'Style #2 ShowFocus = -1 'True TabIndex = 14 Top = 300 Value = -1 'True Width = 915 End End Begin ctCHECK chk_flat Alignment = 0 'Left Justify BackColor = &H00C0C0C0& Caption = "Flat Tab" DisableColor = &H00808080& FontBold = 0 'False FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False ForeColor = &H00000000& Height = 315 Left = 6300 PicStyle = 1 'Style #1 ShowFocus = -1 'True TabIndex = 12 Top = 2340 Value = 0 'False Width = 1515 End Begin ctCHECK chk_color Alignment = 0 'Left Justify BackColor = &H00C0C0C0& Caption = "Color Sequence" DisableColor = &H00808080& FontBold = 0 'False FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False ForeColor = &H00000000& Height = 315 Left = 6300 PicStyle = 1 'Style #1 ShowFocus = -1 'True TabIndex = 11 Top = 1980 Value = 0 'False Width = 1515 End Begin ctCHECK chk_fixed Alignment = 0 'Left Justify BackColor = &H00C0C0C0& Caption = "Fixed Size" DisableColor = &H00808080& FontBold = 0 'False FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False ForeColor = &H00000000& Height = 315 Left = 6300 PicStyle = 1 'Style #1 ShowFocus = -1 'True TabIndex = 10 Top = 1620 Value = 0 'False Width = 1515 End Begin Frame Frame1 BackColor = &H00C0C0C0& Caption = "Levels" FontBold = 0 'False FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 645 Left = 6300 TabIndex = 7 Top = 810 Width = 1605 Begin ctRADIO opt_lev2 Alignment = 0 'Left Justify BackColor = &H00C0C0C0& Caption = "2" DisableColor = &H00808080& FontBold = 0 'False FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False ForeColor = &H00000000& Height = 255 Left = 900 PicStyle = 2 'Style #2 ShowFocus = -1 'True TabIndex = 9 Top = 240 Value = -1 'True Width = 465 End Begin ctRADIO opt_lev1 Alignment = 0 'Left Justify BackColor = &H00C0C0C0& Caption = "1" DisableColor = &H00808080& FontBold = 0 'False FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False ForeColor = &H00000000& Height = 225 Left = 180 PicStyle = 2 'Style #2 ShowFocus = -1 'True TabIndex = 8 Top = 270 Value = 0 'False Width = 495 End End Begin ComboBox cmb_pic BackColor = &H00FFFFFF& FontBold = 0 'False FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False ForeColor = &H00000000& Height = 300 Left = 6300 Style = 2 'Dropdown List TabIndex = 3 Top = 3720 Width = 1695 End Begin ComboBox cmb_side BackColor = &H00FFFFFF& FontBold = 0 'False FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False ForeColor = &H00000000& Height = 300 Left = 6300 Style = 2 'Dropdown List TabIndex = 4 Top = 3030 Width = 1695 End Begin CommandButton btn_exit Caption = "E&xit" Height = 375 Left = 7320 TabIndex = 1 Top = 5100 Width = 795 End Begin ctFOLD ctFold Amount = 6 BackColor = &H00C0C0C0& BackSequence = "" Caption = "Table;Query;Form;Report;Macro;Module" CustomColor1 = &H0000FFFF& CustomColor2 = &H0000FF00& CustomColor3 = &H00FF00FF& CustomColor4 = &H00FFFF00& CustomColor5 = &H00FF0000& DisableColor = &H00808080& DisableSequence = "" FixedSize = 0 'False FontBold = 0 'False FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 4035 Left = 240 LevelOffset = 20 Levels = 2 PicCols = 2 PicPosition = 3 'Left PicRows = 3 PicSequence = "1,2,3,4,5,6" Picture = CT_FOLD.FRX:0302 PicXOffset = 0 PicYOffset = 0 SelectedFontBold= -1 'True SelectedFontItalic= 0 'False SelectedFontStrikeOut= 0 'False SelectedFontUnderline= 0 'False SelectedTab = 1 TabBorder = 1 'Raised TabColor = &H00C0C0C0& TabHeight = 45 TabIndex = 0 TabLine = 0 'False TabSide = 0 'Top TabWidth = 60 TextColor = &H00000000& TextSequence = "" TextXOffset = 0 TextYOffset = 0 Top = 630 UnTabColor = &H00C0C0C0& UnTextColor = &H00000000& Width = 5655 End Begin Label lbl_tab BackColor = &H00C0C0C0& Caption = "1" ForeColor = &H00000000& Height = 255 Left = 7620 TabIndex = 21 Top = 4200 Width = 315 End Begin Label Label4 BackColor = &H00C0C0C0& Caption = "Tab Selected :" FontBold = 0 'False FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False ForeColor = &H00000000& Height = 255 Left = 6480 TabIndex = 20 Top = 4200 Width = 1155 End Begin Label Label3 BackColor = &H00C0C0C0& Caption = "Picture Position" FontBold = 0 'False FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False ForeColor = &H00000000& Height = 225 Left = 6300 TabIndex = 5 Top = 3480 Width = 1335 End Begin Label Label2 BackColor = &H00C0C0C0& Caption = "Tab Side" FontBold = 0 'False FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False ForeColor = &H00000000& Height = 225 Left = 6300 TabIndex = 6 Top = 2790 Width = 1395 End Begin Shape Shape1 BackColor = &H00C0C0C0& BackStyle = 1 'Opaque BorderColor = &H00000000& Height = 4005 Left = 6120 Top = 630 Width = 1995 End Begin Label Label1 Alignment = 2 'Center BackStyle = 0 'Transparent Caption = "The ctFOLD VBX is a tabbed file folder control. The tabs can be placed on any side of the folder. As well, each tab can contain a bitmap image and be set with its own color. " ForeColor = &H00800000& Height = 525 Left = 360 TabIndex = 2 Top = 120 Width = 7695 End Sub btn_exit_Click () Unload w_fold_demo End Sub Sub chk_1_Click () ctFold.DisableSequence = Disabled_Tabs() End Sub Sub chk_2_Click () ctFold.DisableSequence = Disabled_Tabs() End Sub Sub chk_3_Click () ctFold.DisableSequence = Disabled_Tabs() End Sub Sub chk_4_Click () ctFold.DisableSequence = Disabled_Tabs() End Sub Sub chk_5_Click () ctFold.DisableSequence = Disabled_Tabs() End Sub Sub chk_6_Click () ctFold.DisableSequence = Disabled_Tabs() End Sub Sub chk_color_Click () If chk_color.Value Then ctFold.BackSequence = "1,2,3,4,5,1" ctFold.TextSequence = "5,5,0,0,1,0" Else ctFold.BackSequence = "" ctFold.TextSequence = "" End If End Sub Sub chk_fixed_Click () ctFold.FixedSize = chk_fixed.Value End Sub Sub chk_flat_Click () If (chk_flat.Value) Then ctFold.TabBorder = 0 Else ctFold.TabBorder = 1 End If End Sub Sub cmb_pic_Click () ctFold.PicPosition = cmb_pic.ListIndex End Sub Sub cmb_side_Click () If cmb_side.ListIndex <= 1 Then ctFold.TabHeight = 45 ctFold.TabWidth = 60 Else ctFold.TabHeight = 60 ctFold.TabWidth = 60 End If ctFold.TabSide = cmb_side.ListIndex End Sub Sub ctFold_TabChange (nNewTab As Integer, nOldTab As Integer) lbl_tab = Str(nNewTab) End Sub Function Disabled_Tabs () Dim cString As String cString = IIf(chk_1.Value = False, "1,", "0,") cString = cString + IIf(chk_2.Value = False, "1,", "0,") cString = cString + IIf(chk_3.Value = False, "1,", "0,") cString = cString + IIf(chk_4.Value = False, "1,", "0,") cString = cString + IIf(chk_5.Value = False, "1,", "0,") cString = cString + IIf(chk_6.Value = False, "1", "0") Disabled_Tabs = cString End Function Sub Form_Load () ' Center the window on the screen Move (Screen.Width - Width) / 2, (Screen.Height - Height) * .1 w_mdi_main.bt_fold = BUTTON_DISABLE cmb_side.AddItem "0 - Top" cmb_side.AddItem "1 - Bottom" cmb_side.AddItem "2 - Left" cmb_side.AddItem "3 - Right" cmb_side.ListIndex = 0 cmb_pic.AddItem "0 - None" cmb_pic.AddItem "1 - Top" cmb_pic.AddItem "2 - Bottom" cmb_pic.AddItem "3 - Left" cmb_pic.AddItem "4 - Right" cmb_pic.ListIndex = 3 End Sub Sub Form_Unload (Cancel As Integer) w_mdi_main.bt_fold = BUTTON_UP End Sub Sub opt_lev1_Click () ctFold.Levels = 1 End Sub Sub opt_lev2_Click () ctFold.Levels = 2 End Sub