Visual Basic 4 Unleashed

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

/ Visual Basic 4 Unleashed / Visual_Basic_4_Unleashed_SAMS_Publishing_1995.iso / truegrid / disk1 / vsdemo / vsdemo.$ / INDEXTAB.FRM (.txt) < prev next >

Wrap

Visual Basic Form | 1995-02-15 | 26.9 KB | 742 lines

VERSION 2.00 Begin Form IndexTab BackColor = &H00C0C0C0& BorderStyle = 3 'Fixed Double 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 VideoSoftIndexTab VSIndexTab BackSheets = 0 'None BackTabColor = &H0080FF80& BorderWidth = 12 Caption = "&Order|&Notes|&Setup" ConvInfo = INDEXTAB.FRX:0000 FontBold = -1 'True FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 13.5 FontStrikethru = 0 'False FontUnderline = 0 'False FrontTabColor = &H00C0C0C0& Height = 5100 Left = 465 New3D = -1 'True Position = 0 'Top ShowFocusRect = 0 'False Style = 5 'Chamfered 3D TabIndex = 9 TabsPerPage = 3 Top = 195 Width = 7590 Begin PictureBox Picture3 BackColor = &H00C0C0C0& Height = 4230 Left = 210 ScaleHeight = 4200 ScaleWidth = 7140 TabIndex = 29 Top = 660 Width = 7170 Begin ComboBox Combo1 BackColor = &H00FFFFFF& ForeColor = &H00000000& Height = 300 Left = 2805 Style = 2 'Dropdown List TabIndex = 0 Tag = "&Bill To" Top = 180 Width = 3500 End Begin TextBox Text1 BackColor = &H00FFFFFF& DragIcon = INDEXTAB.FRX:000B 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 = 2805 TabIndex = 8 Text = "2625 Alcatraz Avenue, Ste 271" Top = 435 Width = 3500 End Begin TextBox Text1 BackColor = &H00FFFFFF& DragIcon = INDEXTAB.FRX:030D 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 = 2805 TabIndex = 20 Text = "Berkeley, CA 94705" Top = 690 Width = 3500 End Begin TextBox Text1 BackColor = &H00FFFFFF& DragIcon = INDEXTAB.FRX:060F 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 = 2805 TabIndex = 21 Top = 945 Width = 3500 End 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 = 2400 Left = 210 Rows = 20 ScrollBars = 0 'None TabIndex = 25 Top = 1485 Width = 6105 End Begin PictureBox Picture1 BackColor = &H00FFFF80& BorderStyle = 0 'None Height = 1200 Left = 165 ScaleHeight = 1200 ScaleWidth = 1605 TabIndex = 30 Top = 135 Width = 1605 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 = 26 Top = 150 Width = 1215 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 = 27 Top = 600 Width = 1155 End Begin Label Label3 Alignment = 2 'Center BackStyle = 0 'Transparent Caption = "2/2/95" DragIcon = INDEXTAB.FRX:0911 FontBold = -1 'True FontItalic = 0 'False FontName = "System" FontSize = 9.75 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 255 Left = 300 TabIndex = 31 Top = 870 Width = 885 End End Begin Label Label4 BackStyle = 0 'Transparent Caption = "Bill To" FontBold = -1 'True FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 9.75 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 240 Left = 1965 TabIndex = 28 Top = 210 Width = 765 End End Begin PictureBox Picture4 BackColor = &H00C0C0C0& Height = 4230 Left = 10035 ScaleHeight = 4200 ScaleWidth = 7140 TabIndex = 22 Top = 660 Width = 7170 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 = 1395 Index = 1 Left = 210 TabIndex = 24 Tag = "Notes" Top = 2550 Width = 6105 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 = 1395 Index = 0 Left = 210 TabIndex = 23 Tag = "To Do" Top = 510 Width = 6105 End Begin Label Label5 BackStyle = 0 'Transparent Caption = "Name" FontBold = -1 'True FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 9.75 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 255 Index = 1 Left = 240 TabIndex = 33 Top = 2220 Width = 1260 End Begin Label Label5 BackStyle = 0 'Transparent Caption = "To Do" FontBold = -1 'True FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 9.75 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 255 Index = 0 Left = 240 TabIndex = 32 Top = 135 Width = 1260 End End Begin VideoSoftElastic Page BevelInner = 7 'Shadow BevelInnerWidth = 4 BevelOuter = 8 'Raised New Look BorderWidth = 4 CaptionPos = 2 'Left Bottom ChildSpacing = 0 ConvInfo = INDEXTAB.FRX:0C13 FontBold = 0 'False FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 4230 Index = 2 IntBkg = &H00C0C0C0& Left = 10110 TabIndex = 10 Tag = "Setup is the one" TagPosition = 1 'Above TagWidth = 250 Top = 660 Width = 7170 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 = 19 Tag = "TabsPerPage" Top = 330 Width = 1995 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:0C1E Height = 2505 IntBkg = &H00C0C0C0& Left = 270 ShadowColor = &H00404040& TabIndex = 13 Top = 810 Width = 2595 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 = 18 Top = 1110 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 = 17 Top = 2040 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 = 16 Top = 1575 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 = 15 Top = 645 Value = 1 'Checked Width = 2235 End 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 = 14 Top = 180 Value = 1 'Checked Width = 2235 End 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 = 12 Top = 2070 Width = 1665 End 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 = 11 Top = 1380 Width = 1665 End End End Begin PictureBox Picture2 Align = 2 'Align Bottom BackColor = &H00C0C0C0& Height = 675 Left = 0 ScaleHeight = 645 ScaleWidth = 8235 TabIndex = 1 Top = 5400 Width = 8265 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 = 90 TabIndex = 7 Tag = "Position" Top = 90 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 = 1470 TabIndex = 6 Tag = "Style" Top = 90 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 = 2850 TabIndex = 5 Tag = "See tabs" Top = 90 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 = 4230 TabIndex = 4 Tag = "ForeColor" Top = 90 Width = 1140 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 = 5610 TabIndex = 3 Tag = "Cool" Top = 90 Width = 1140 End 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 = 6990 TabIndex = 2 Top = 90 Value = 1 'Checked Width = 1125 End End Begin Image Image1 Height = 330 Index = 3 Left = 0 Stretch = -1 'True Top = 1185 Visible = 0 'False Width = 330 End Begin Image Image1 Height = 330 Index = 2 Left = 60 Picture = INDEXTAB.FRX:0C29 Stretch = -1 'True Top = 735 Visible = 0 'False Width = 330 End Begin Image Image1 Height = 330 Index = 1 Left = 30 Picture = INDEXTAB.FRX:0DAB Stretch = -1 'True Top = 375 Visible = 0 'False Width = 330 End Begin Image Image1 Height = 330 Index = 0 Left = 45 Picture = INDEXTAB.FRX:0F2D Stretch = -1 'True Top = 0 Visible = 0 'False Width = 330 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_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 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) End Sub Sub StatusBar_MouseMove (Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single) 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