ActiveX Programming Unleashed CD

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

/ ActiveX Programming Unleashed CD / AXU.iso / componen / vsocx / demo / indextab.frm (.txt) < prev next >

Wrap

Visual Basic Form | 1995-01-05 | 32.8 KB | 842 lines

VERSION 2.00 Begin Form IndexTab BackColor = &H00C0C0C0& Caption = "Double click a tab with the right mouse" ClientHeight = 6075 ClientLeft = 495 ClientTop = 705 ClientWidth = 8265 Height = 6540 Left = 405 LinkTopic = "Form2" ScaleHeight = 6075 ScaleWidth = 8265 Top = 330 Width = 8445 Begin VideoSoftElastic ToolTip BevelInner = 0 'None BevelOuterWidth = 1 BorderWidth = 1 Caption = "ToolTip" CaptionPos = 4 'Center Center ConvInfo = INDEXTAB.FRX:0000 FloodColor = &H0080FFFF& FloodDirection = 1 'Right FloodPercent = 100 FontBold = 0 'False FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 255 IntBkg = &H00C0C0C0& Left = 5400 TabIndex = 34 Top = 5730 Visible = 0 'False Width = 615 End Begin VideoSoftElastic MainElastic Align = 5 'Fill Container AutoSizeChildren= 1 'Even Horizontal BevelInner = 0 'None BevelOuter = 1 'Raised BevelOuterWidth = 1 BorderWidth = 16 ConvInfo = INDEXTAB.FRX:000B Height = 5040 IntBkg = &H00C0C0C0& Left = 0 MinChildSize = 3500 TabIndex = 0 Top = 0 Width = 8265 Begin VideoSoftIndexTab VSIndexTab BackSheets = 0 'None BackTabColor = &H0080FF80& BorderWidth = 12 Caption = "&Order|&Notes|&Setup" ConvInfo = INDEXTAB.FRX:0016 FontBold = -1 'True FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 13.5 FontStrikethru = 0 'False FontUnderline = 0 'False FrontTabColor = &H00C0C0C0& Height = 4560 Left = 240 New3D = -1 'True Position = 0 'Top ShowFocusRect = 0 'False Style = 5 'Chamfered 3D TabIndex = 1 TabsPerPage = 3 Top = 240 Width = 7785 Begin VideoSoftElastic Page BevelInner = 7 'Shadow BevelInnerWidth = 4 BevelOuter = 8 'Raised New Look BorderWidth = 4 CaptionPos = 2 'Left Bottom ChildSpacing = 0 ConvInfo = INDEXTAB.FRX:0021 FontBold = 0 'False FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 3690 Index = 2 IntBkg = &H00C0C0C0& Left = 10110 TabIndex = 9 Tag = "Setup is the one" TagPosition = 1 'Above TagWidth = 250 Top = 660 Width = 7365 Begin CommandButton btn_Shadow BackColor = &H00C0C0C0& Caption = "FrontTabColor" FontBold = 0 'False FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 555 Index = 1 Left = 3090 TabIndex = 31 Top = 1380 Width = 1665 End Begin CommandButton btn_Shadow BackColor = &H00C0C0C0& Caption = "Shadow Color" FontBold = 0 'False FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 585 Index = 0 Left = 3090 TabIndex = 30 Top = 2070 Width = 1665 End Begin VideoSoftElastic VSElastic2 AutoSizeChildren= 3 'Even Vertical BevelInner = 7 'Shadow BevelInnerWidth = 4 BevelOuter = 8 'Raised New Look BevelOuterWidth = 1 BorderWidth = 12 ChildSpacing = 12 ConvInfo = INDEXTAB.FRX:002C Height = 2505 IntBkg = &H00C0C0C0& Left = 270 ShadowColor = &H00404040& TabIndex = 24 Top = 810 Width = 2595 Begin CheckBox Check1 BackColor = &H0000FFFF& Caption = "Bold Current Tab" FontBold = 0 'False FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False ForeColor = &H00000000& Height = 285 Index = 0 Left = 180 TabIndex = 29 Top = 180 Value = 1 'Checked Width = 2235 End Begin CheckBox Check1 BackColor = &H0000FFFF& Caption = "Enable Notes Tab" FontBold = 0 'False FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 285 Index = 1 Left = 180 TabIndex = 28 Top = 645 Value = 1 'Checked Width = 2235 End Begin CheckBox Check1 BackColor = &H0000FFFF& Caption = "Shadows" FontBold = 0 'False FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 285 Index = 2 Left = 180 TabIndex = 27 Top = 1575 Value = 1 'Checked Width = 2235 End Begin CheckBox Check1 BackColor = &H0000FFFF& Caption = "Pictures" FontBold = 0 'False FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 285 Index = 3 Left = 180 TabIndex = 26 Top = 2040 Value = 1 'Checked Width = 2235 End Begin CheckBox Check1 BackColor = &H0000FFFF& Caption = "DogEars" FontBold = 0 'False FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 285 Index = 4 Left = 180 TabIndex = 25 Top = 1110 Value = 1 'Checked Width = 2235 End End Begin ComboBox TabsPerPage FontBold = 0 'False FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False ForeColor = &H00000000& Height = 300 Left = 270 Style = 2 'Dropdown List TabIndex = 23 Tag = "TabsPerPage" Top = 330 Width = 1995 End End Begin VideoSoftElastic Page AutoSizeChildren= 3 'Even Vertical BevelInner = 7 'Shadow BevelInnerWidth = 4 BevelOuter = 8 'Raised New Look BorderWidth = 12 CaptionPos = 6 'Right Top ChildSpacing = 8 ConvInfo = INDEXTAB.FRX:0037 FontBold = 0 'False FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 3690 Index = 1 IntBkg = &H00C0C0C0& Left = 10035 ShadowColor = &H00000000& TabIndex = 6 Tag = "Moving over Notes" TagWidth = 700 Top = 660 Width = 7365 Begin ListBox List1 BackColor = &H00E0FFFF& FontBold = 0 'False FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 1590 Index = 1 Left = 885 TabIndex = 8 Tag = "Notes" Top = 1905 Width = 6300 End Begin ListBox List1 BackColor = &H00E0FFFF& FontBold = 0 'False FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 1590 Index = 0 Left = 885 TabIndex = 7 Tag = "To Do" Top = 180 Width = 6300 End End Begin VideoSoftElastic Page AutoSizeChildren= 4 'Uneven Vertical BevelChildren = 2 'No Elastics BevelOuter = 0 'None CaptionPos = 6 'Right Top ConvInfo = INDEXTAB.FRX:0042 Height = 3690 Index = 0 IntBkg = &H00C0C0C0& Left = 210 TabIndex = 2 Tag = "Moving the mouse on top of the Order tab" Top = 660 Width = 7365 Begin Grid Grid1 BackColor = &H00FFFFFF& Cols = 5 FixedCols = 0 FontBold = -1 'True FontItalic = 0 'False FontName = "System" FontSize = 9.75 FontStrikethru = 0 'False FontUnderline = 0 'False ForeColor = &H00000000& Height = 1770 Left = 90 Rows = 20 ScrollBars = 0 'None TabIndex = 20 Top = 1830 Width = 7185 End Begin VideoSoftElastic VSElastic6 AutoSizeChildren= 2 'Uneven Horizontal BevelChildren = 2 'No Elastics BevelInner = 8 'Raised New Look BevelOuter = 8 'Raised New Look BevelOuterWidth = 1 BorderWidth = 12 ChildSpacing = 12 ConvInfo = INDEXTAB.FRX:004D Height = 1650 IntBkg = &H00C0C0C0& Left = 90 TabIndex = 10 Top = 90 Width = 7185 Begin VideoSoftElastic VSElastic3 AccessKey = -1 'True AutoSizeChildren= 3 'Even Vertical BevelOuter = 8 'Raised New Look ChildSpacing = -1 ConvInfo = INDEXTAB.FRX:0058 FontBold = -1 'True FontItalic = 0 'False FontName = "System" FontSize = 9.75 FontStrikethru = 0 'False FontUnderline = 0 'False ForeColor = &H000000FF& Height = 1290 IntBkg = &H00C0C0C0& Left = 1890 TabIndex = 11 TagWidth = 700 Top = 180 Width = 5115 Begin ComboBox Combo1 BackColor = &H00FFFFFF& ForeColor = &H00000000& Height = 300 Left = 795 Style = 2 'Dropdown List TabIndex = 16 Tag = "&Bill To" Top = 90 Width = 4230 End Begin TextBox Text1 BackColor = &H00FFFFFF& DragIcon = INDEXTAB.FRX:0063 FontBold = 0 'False FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False ForeColor = &H00000000& Height = 285 Index = 0 Left = 795 TabIndex = 14 Text = "2625 Alcatraz Avenue, Ste 271" Top = 375 Width = 4230 End Begin TextBox Text1 BackColor = &H00FFFFFF& DragIcon = INDEXTAB.FRX:0365 FontBold = 0 'False FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False ForeColor = &H00000000& Height = 285 Index = 2 Left = 795 TabIndex = 13 Text = "Berkeley, CA 94705" Top = 645 Width = 4230 End Begin TextBox Text1 BackColor = &H00FFFFFF& DragIcon = INDEXTAB.FRX:0667 FontBold = 0 'False FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False ForeColor = &H00000000& Height = 285 Index = 3 Left = 795 TabIndex = 12 Top = 915 Width = 4230 End End Begin PictureBox Picture1 BackColor = &H00FFFF80& BorderStyle = 0 'None Height = 1290 Left = 180 ScaleHeight = 1290 ScaleWidth = 1530 TabIndex = 15 Top = 180 Width = 1530 Begin Label Label3 Alignment = 2 'Center BackStyle = 0 'Transparent Caption = "2/2/95" DragIcon = INDEXTAB.FRX:0969 FontBold = -1 'True FontItalic = 0 'False FontName = "System" FontSize = 9.75 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 255 Left = 300 TabIndex = 19 Top = 870 Width = 885 End Begin Label Label2 Alignment = 2 'Center BackStyle = 0 'Transparent Caption = "Order Date" FontBold = -1 'True FontItalic = 0 'False FontName = "System" FontSize = 9.75 FontStrikethru = 0 'False FontUnderline = 0 'False ForeColor = &H00FF0000& Height = 225 Left = 210 TabIndex = 18 Top = 600 Width = 1155 End Begin Label Label1 Alignment = 2 'Center BackStyle = 0 'Transparent Caption = "Order ID" FontBold = -1 'True FontItalic = 0 'False FontName = "System" FontSize = 9.75 FontStrikethru = 0 'False FontUnderline = 0 'False ForeColor = &H00FF0000& Height = 285 Left = 150 TabIndex = 17 Top = 150 Width = 1215 End End End End End Begin Image Image1 Height = 330 Index = 0 Left = -30 Picture = INDEXTAB.FRX:0C6B Stretch = -1 'True Top = 1380 Visible = 0 'False Width = 330 End Begin Image Image1 Height = 330 Index = 1 Left = -30 Picture = INDEXTAB.FRX:0DED Stretch = -1 'True Top = 1770 Visible = 0 'False Width = 330 End Begin Image Image1 Height = 330 Index = 2 Left = 0 Picture = INDEXTAB.FRX:0F6F Stretch = -1 'True Top = 2130 Visible = 0 'False Width = 330 End Begin Image Image1 Height = 330 Index = 3 Left = -60 Stretch = -1 'True Top = 2580 Visible = 0 'False Width = 330 End End Begin VideoSoftElastic StatusBar Align = 2 'Bottom AutoSizeChildren= 1 'Even Horizontal BevelInner = 0 'None BevelInnerWidth = 4 BevelOuter = 1 'Raised BevelOuterWidth = 1 BorderWidth = 8 ChildSpacing = 16 ConvInfo = INDEXTAB.FRX:10F1 Height = 630 Index = 0 IntBkg = &H00C0C0C0& Left = 0 TabIndex = 3 Top = 5040 Width = 8265 Begin CheckBox chkNew3D BackColor = &H00C0C0C0& Caption = "New 3D" FontBold = 0 'False FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 390 Left = 7020 TabIndex = 35 Top = 120 Value = 1 'Checked Width = 1125 End Begin CommandButton Btn BackColor = &H00C0C0C0& Caption = "&Cool" FontBold = 0 'False FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 390 Index = 4 Left = 5640 TabIndex = 33 Tag = "Cool" Top = 120 Width = 1140 End Begin CommandButton Btn BackColor = &H00C0C0C0& Caption = "&ForeColor" FontBold = 0 'False FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 390 Index = 3 Left = 4260 TabIndex = 22 Tag = "ForeColor" Top = 120 Width = 1140 End Begin CommandButton Btn BackColor = &H00C0C0C0& Caption = "&BackTabColor" FontBold = 0 'False FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 390 Index = 2 Left = 2880 TabIndex = 21 Tag = "See tabs" Top = 120 Width = 1140 End Begin CommandButton Btn BackColor = &H00C0C0C0& Caption = "St&yle" FontBold = 0 'False FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 390 Index = 1 Left = 1500 TabIndex = 5 Tag = "Style" Top = 120 Width = 1140 End Begin CommandButton Btn BackColor = &H00C0C0C0& Caption = "&Position" FontBold = 0 'False FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 390 Index = 0 Left = 120 TabIndex = 4 Tag = "Position" Top = 120 Width = 1140 End End Begin VideoSoftElastic StatusBar Align = 2 'Bottom BevelInner = 0 'None BevelOuter = 1 'Raised BevelOuterWidth = 1 Caption = "StatusBar" CaptionPos = 4 'Center Center ConvInfo = INDEXTAB.FRX:10FC ForeColor = &H00800000& Height = 405 Index = 1 IntBkg = &H00C0C0C0& Left = 0 TabIndex = 32 Top = 5670 Width = 8265 End Option Explicit Dim OldTip '============================================================ ' To create an IndexTab at design time '============================================================ ' * Place an IndexTab on your form ' * Set the Autoswitch to False ' * Set the Caption for tabs separated by a pipe (One|Two) ' * Place one container (Elastic or PictureBox) per tab on ' the white area of the indextab. The containers should ' not touch each other. ' * Set the Autoswitch to False ' * Double click with the right mouse on the tab to ' populate the controls '============================================================ Sub Btn_Click (Index As Integer) Select Case Index Case 0 'Changes Tab positions vsIndexTab.Position = (vsIndexTab.Position + 1) Mod 5 Case 1 'Changes tab styles vsIndexTab.Style = (vsIndexTab.Style + 1) Mod 10 Case 2 'Changes back tab color ' disable pictures Dim i% Check1(3).Value = 0 For i = 0 To 2 vsIndexTab.TabPicture(i) = Image1(3) Next vsIndexTab.BackTabColor = QBColor(Rnd * 15) Case 3 'Changes Caption text color vsIndexTab.ForeColor = QBColor(Rnd * 15) Case 4 'Cool MsgBox "Click VideoSoft Address with the right button, drag it to Notes tab, and drop it in one of the List boxes. WAY COOL!!" End Select End Sub Sub Btn_MouseMove (Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single) If OldTip = Index Then Exit Sub ToolTip.Visible = True ToolTip.Caption = Btn(Index).Tag ToolTip.Width = TextWidth(Btn(Index).Tag) ToolTip.Move Btn(Index).Left + Btn(Index).Height * .75, StatusBar(0).Top + Btn(Index).Top + Btn(Index).Height * 1.1 OldTip = Index End Sub Sub btn_Shadow_Click (Index%) Select Case Index Case 0 Page(2).ShadowColor = QBColor(Rnd * 15) Case 1 vsIndexTab.FrontTabForeColor = QBColor(Rnd * 15) End Select End Sub Sub Check1_Click (Index%) Dim i% Select Case Index Case 0 'BoldCurrentTab vsIndexTab.BoldCurrent = Not vsIndexTab.BoldCurrent Case 1 'Enable/Disable Notes Tab vsIndexTab.TabEnabled(1) = Not vsIndexTab.TabEnabled(1) vsIndexTab.Refresh Case 2 'Shadows If Check1(2).Value = 0 Then Page(2).BevelInnerWidth = 1 Page(2).BevelInner = 3 'Inset Else Page(2).BevelInnerWidth = 4 Page(2).BevelInner = 7 'Shadows End If Case 3 'Pictures If Check1(3).Value = 1 Then For i = 0 To 2 vsIndexTab.TabPicture(i) = Image1(i) Next vsIndexTab.BackTabColor = &HC0C0C0 Else For i = 0 To 2 vsIndexTab.TabPicture(i) = Image1(3) Next End If Case 4 'DogEars vsIndexTab.DogEars = Not vsIndexTab.DogEars End Select End Sub Sub chkNew3D_Click () vsIndexTab.New3D = Not vsIndexTab.New3D End Sub Sub Form_Load () Me.Caption = "VideoSoft Indextab" 'Fill lists and Combox TabsPerPage.AddItem "1" TabsPerPage.AddItem "2" TabsPerPage.AddItem "3" TabsPerPage.ListIndex = 2 Combo1.AddItem "VideoSoft" Combo1.ListIndex = 0 ' show pictures Check1_Click 3 Grid1.Row = 0 Grid1.Col = 0 Grid1.ColWidth(0) = 1000 Grid1.Text = "Prod ID" Grid1.Col = 1 Grid1.ColWidth(1) = 2500 Grid1.Text = "Description" Grid1.Col = 2 Grid1.Text = "Qty" Grid1.Col = 3 Grid1.ColWidth(3) = 4500 Grid1.Text = "Price" End Sub Sub Form_MouseMove (Button As Integer, Shift As Integer, X As Single, Y As Single) ToolTip.Visible = False End Sub Sub Label3_MouseDown (Button As Integer, Shift As Integer, X As Single, Y As Single) If Button = 2 Then Label3.Drag 1 End Sub Sub List1_DragDrop (Index As Integer, Source As Control, X As Single, Y As Single) List1(Index).AddItem Source End Sub Sub MainElastic_MouseMove (Button As Integer, Shift As Integer, X As Single, Y As Single) ToolTip.Visible = False OldTip = -1 End Sub Sub StatusBar_MouseMove (Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single) ToolTip.Visible = False OldTip = -1 End Sub Sub TabsPerPage_Click () vsIndexTab.TabsPerPage = TabsPerPage.ListIndex + 1 vsIndexTab.FirstTab = 3 - vsIndexTab.TabsPerPage 'Enable DogEars option If vsIndexTab.TabsPerPage = 3 Then Check1(4).Enabled = False Else Check1(4).Enabled = True End If End Sub Sub Text1_MouseDown (Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single) If Button = 2 Then Text1(Index).Drag 1 End Sub Sub VSIndexTab_DragOver (Source As Control, X As Single, Y As Single, State As Integer) If vsIndexTab.MouseOver <> -1 Then vsIndexTab.CurrTab = vsIndexTab.MouseOver End Sub Sub VSIndexTab_MouseMove (Button As Integer, Shift As Integer, X As Single, Y As Single) ToolTip.Visible = False On Error Resume Next If vsIndexTab.MouseOver = -1 Then ' Current page If StatusBar(1) <> "Current Page" Then StatusBar(1) = "Current Page" Else ' Move Over other page If StatusBar(1) <> Page(vsIndexTab.MouseOver).Tag Then StatusBar(1) = Page(vsIndexTab.MouseOver).Tag End If End Sub