home *** CD-ROM | disk | FTP | other *** search
/ Programming Tool Box / SIMS_2.iso / vb_code1 / 3ctrls / multitab.frm < prev    next >
Text File  |  1994-05-16  |  15KB  |  410 lines
  1. VERSION 2.00
  2. Begin Form fMultiTabs 
  3.    AutoRedraw      =   -1  'True
  4.    BackColor       =   &H00C0C0C0&
  5.    Caption         =   "VideoSoft MultiRow"
  6.    ClientHeight    =   5835
  7.    ClientLeft      =   960
  8.    ClientTop       =   795
  9.    ClientWidth     =   7230
  10.    Height          =   6300
  11.    Left            =   870
  12.    LinkTopic       =   "Form1"
  13.    ScaleHeight     =   5835
  14.    ScaleWidth      =   7230
  15.    Top             =   420
  16.    Width           =   7410
  17.    Begin VideoSoftElastic VSElastic1 
  18.       Align           =   5  'Fill Container
  19.       AutoSizeChildren=   1  'Even Horizontal
  20.       BackColor       =   &H00E0FFFF&
  21.       BevelInner      =   0  'None
  22.       BevelOuter      =   1  'Raised
  23.       BevelOuterWidth =   1
  24.       BorderWidth     =   20
  25.       Height          =   5250
  26.       IntBkg          =   &H00E0FFFF&
  27.       Left            =   0
  28.       TabIndex        =   0
  29.       Top             =   0
  30.       Width           =   7230
  31.       Begin VideoSoftIndexTab VSIndexTab1 
  32.          BackColor       =   &H00E0FFFF&
  33.          BackSheets      =   0  'None
  34.          BorderWidth     =   20
  35.          Caption         =   "&Welcome|&Upgrade|&Tab in Tab|Design Tip|Spread|&Multirow/Scroll"
  36.          CurrTab         =   5
  37.          FirstTab        =   5
  38.          FontBold        =   -1  'True
  39.          FontItalic      =   0   'False
  40.          FontName        =   "Arial"
  41.          FontSize        =   9.75
  42.          FontStrikethru  =   0   'False
  43.          FontUnderline   =   0   'False
  44.          FrontTabColor   =   &H00C0C0C0&
  45.          Height          =   4650
  46.          Left            =   300
  47.          MultiRow        =   -1  'True
  48.          Position        =   0  'Top
  49.          ShowFocusRect   =   0   'False
  50.          Style           =   5  'Chamfered 3D
  51.          TabIndex        =   5
  52.          TabsPerPage     =   1
  53.          Top             =   300
  54.          Width           =   6630
  55.          Begin VideoSoftElastic Page 
  56.             AutoSizeChildren=   1  'Even Horizontal
  57.             BackColor       =   &H00C0C0C0&
  58.             BevelInner      =   1  'Raised
  59.             BevelInnerWidth =   0
  60.             BevelOuter      =   5  'Fillet
  61.             BorderWidth     =   20
  62.             Caption         =   "Welcome to VideoSoft's VSVBX 4.0"
  63.             CaptionPos      =   4  'Center Center
  64.             FontBold        =   -1  'True
  65.             FontItalic      =   0   'False
  66.             FontName        =   "MS Sans Serif"
  67.             FontSize        =   13.5
  68.             FontStrikethru  =   0   'False
  69.             FontUnderline   =   0   'False
  70.             ForeColor       =   &H00800000&
  71.             Height          =   1980
  72.             Index           =   4
  73.             IntBkg          =   &H00C0C0C0&
  74.             Left            =   -9705
  75.             TabIndex        =   15
  76.             Top             =   2325
  77.             Width           =   5040
  78.          End
  79.          Begin VideoSoftElastic Page 
  80.             AutoSizeChildren=   1  'Even Horizontal
  81.             BackColor       =   &H00C0C0C0&
  82.             BevelInner      =   7  'Shadow
  83.             BevelInnerWidth =   4
  84.             BevelOuter      =   6  'Groove
  85.             BorderWidth     =   20
  86.             Height          =   1980
  87.             Index           =   1
  88.             IntBkg          =   &H00C0C0C0&
  89.             Left            =   -9555
  90.             TabIndex        =   10
  91.             Top             =   2325
  92.             Width           =   5040
  93.             Begin VideoSoftIndexTab VSIndexTab2 
  94.                BackSheets      =   0  'None
  95.                BorderWidth     =   24
  96.                Caption         =   "Notes|Info|Other"
  97.                FontBold        =   -1  'True
  98.                FontItalic      =   0   'False
  99.                FontName        =   "Arial"
  100.                FontSize        =   12
  101.                FontStrikethru  =   0   'False
  102.                FontUnderline   =   0   'False
  103.                FrontTabColor   =   &H00C0C0C0&
  104.                Height          =   1380
  105.                Left            =   300
  106.                Position        =   2  'Left
  107.                ShowFocusRect   =   0   'False
  108.                Style           =   2  'Rounded
  109.                TabIndex        =   16
  110.                TabsPerPage     =   3
  111.                Top             =   300
  112.                Width           =   4440
  113.                Begin TextBox Text2 
  114.                   Height          =   630
  115.                   Left            =   720
  116.                   TabIndex        =   17
  117.                   Text            =   "Text2"
  118.                   Top             =   375
  119.                   Width           =   3345
  120.                End
  121.             End
  122.          End
  123.          Begin VideoSoftElastic Page 
  124.             BackColor       =   &H00C0C0C0&
  125.             BevelInnerWidth =   0
  126.             BevelOuter      =   5  'Fillet
  127.             Caption         =   "Autoswitch at design time by double clicking the tab with the right button."
  128.             CaptionPos      =   4  'Center Center
  129.             FontBold        =   -1  'True
  130.             FontItalic      =   0   'False
  131.             FontName        =   "MS Sans Serif"
  132.             FontSize        =   13.5
  133.             FontStrikethru  =   0   'False
  134.             FontUnderline   =   0   'False
  135.             Height          =   1980
  136.             Index           =   2
  137.             IntBkg          =   &H00C0C0C0&
  138.             Left            =   -9480
  139.             TabIndex        =   9
  140.             Top             =   2325
  141.             Width           =   5040
  142.          End
  143.          Begin VideoSoftElastic Page 
  144.             AutoSizeChildren=   1  'Even Horizontal
  145.             BackColor       =   &H00C0C0C0&
  146.             BevelInnerWidth =   0
  147.             BevelOuter      =   6  'Groove
  148.             BorderWidth     =   12
  149.             Caption         =   "Tab 4"
  150.             CaptionPos      =   4  'Center Center
  151.             FontBold        =   -1  'True
  152.             FontItalic      =   0   'False
  153.             FontName        =   "MS Sans Serif"
  154.             FontSize        =   24
  155.             FontStrikethru  =   0   'False
  156.             FontUnderline   =   0   'False
  157.             ForeColor       =   &H00FF0000&
  158.             Height          =   1980
  159.             Index           =   3
  160.             IntBkg          =   &H00C0C0C0&
  161.             Left            =   -9405
  162.             TabIndex        =   8
  163.             Top             =   2325
  164.             Width           =   5040
  165.             Begin VideoSoftIndexTab VSIndexTab3 
  166.                BackSheets      =   0  'None
  167.                BorderWidth     =   12
  168.                Caption         =   "Sheet &1|Sheet &2|Sheet &3|Sheet &4"
  169.                FrontTabColor   =   &H00C0C0C0&
  170.                Height          =   1620
  171.                Left            =   180
  172.                ShowFocusRect   =   0   'False
  173.                Style           =   1  'Slanted 3D
  174.                TabIndex        =   18
  175.                TabsPerPage     =   4
  176.                Top             =   180
  177.                Width           =   4680
  178.                Begin Grid Grid1 
  179.                   Cols            =   16
  180.                   Height          =   885
  181.                   Left            =   225
  182.                   Rows            =   16
  183.                   TabIndex        =   19
  184.                   Top             =   225
  185.                   Width           =   4230
  186.                End
  187.             End
  188.          End
  189.          Begin VideoSoftElastic Page 
  190.             BackColor       =   &H00C0C0C0&
  191.             BevelChildren   =   2  'No Elastics
  192.             BevelInner      =   7  'Shadow
  193.             BevelInnerWidth =   4
  194.             BevelOuter      =   6  'Groove
  195.             Height          =   1980
  196.             Index           =   5
  197.             IntBkg          =   &H00C0C0C0&
  198.             Left            =   345
  199.             ShadowColor     =   &H00000000&
  200.             TabIndex        =   7
  201.             TagPosition     =   1  'Above Control
  202.             TagWidth        =   300
  203.             Top             =   2325
  204.             Width           =   5040
  205.             Begin ComboBox TabsPerPage 
  206.                Height          =   300
  207.                Left            =   2070
  208.                Style           =   2  'Dropdown List
  209.                TabIndex        =   14
  210.                Tag             =   "TabsPerPage"
  211.                Top             =   420
  212.                Width           =   1755
  213.             End
  214.             Begin VideoSoftElastic VSElastic8 
  215.                BackColor       =   &H00C0C0C0&
  216.                BevelInner      =   0  'None
  217.                BevelOuter      =   6  'Groove
  218.                Caption         =   "Mode"
  219.                Height          =   1305
  220.                IntBkg          =   &H00C0C0C0&
  221.                Left            =   300
  222.                Style           =   1  'Frame Top
  223.                TabIndex        =   11
  224.                Top             =   300
  225.                Width           =   1485
  226.                Begin OptionButton Mode 
  227.                   BackColor       =   &H00C0C0C0&
  228.                   Caption         =   "Scroll"
  229.                   Height          =   285
  230.                   Index           =   1
  231.                   Left            =   210
  232.                   TabIndex        =   13
  233.                   Top             =   720
  234.                   Width           =   945
  235.                End
  236.                Begin OptionButton Mode 
  237.                   BackColor       =   &H00C0C0C0&
  238.                   Caption         =   "MultiRow"
  239.                   Height          =   285
  240.                   Index           =   0
  241.                   Left            =   210
  242.                   TabIndex        =   12
  243.                   Top             =   390
  244.                   Value           =   -1  'True
  245.                   Width           =   1245
  246.                End
  247.             End
  248.          End
  249.          Begin VideoSoftElastic Page 
  250.             AutoSizeChildren=   1  'Even Horizontal
  251.             BackColor       =   &H00C0C0C0&
  252.             BevelInner      =   7  'Shadow
  253.             BevelInnerWidth =   4
  254.             BevelOuter      =   6  'Groove
  255.             BorderWidth     =   24
  256.             Caption         =   "Upgrade Policy: If you bought VSVBX in '94 you qualify for a *FREE* upgrade.  If not there is a $15 upgrade fee.  You can upgrade directly from compuserve.  The product ID is 2215."
  257.             CaptionPos      =   4  'Center Center
  258.             FontBold        =   -1  'True
  259.             FontItalic      =   0   'False
  260.             FontName        =   "Arial"
  261.             FontSize        =   9.75
  262.             FontStrikethru  =   0   'False
  263.             FontUnderline   =   0   'False
  264.             ForeColor       =   &H00800000&
  265.             Height          =   1980
  266.             Index           =   0
  267.             IntBkg          =   &H00C0C0C0&
  268.             Left            =   -9630
  269.             TabIndex        =   6
  270.             TagPosition     =   1  'Above Control
  271.             TagWidth        =   350
  272.             Top             =   2325
  273.             Width           =   5040
  274.          End
  275.       End
  276.    End
  277.    Begin VideoSoftElastic VSElastic3 
  278.       Align           =   2  'Align Bottom
  279.       AutoSizeChildren=   1  'Even Horizontal
  280.       BackColor       =   &H00C0C0C0&
  281.       BevelOuter      =   1  'Raised
  282.       BevelOuterWidth =   1
  283.       Height          =   585
  284.       IntBkg          =   &H00C0C0C0&
  285.       Left            =   0
  286.       TabIndex        =   1
  287.       Top             =   5250
  288.       Width           =   7230
  289.       Begin CommandButton Button 
  290.          BackColor       =   &H00C0C0C0&
  291.          Caption         =   "&Style"
  292.          FontBold        =   0   'False
  293.          FontItalic      =   0   'False
  294.          FontName        =   "MS Sans Serif"
  295.          FontSize        =   8.25
  296.          FontStrikethru  =   0   'False
  297.          FontUnderline   =   0   'False
  298.          Height          =   405
  299.          Index           =   1
  300.          Left            =   90
  301.          TabIndex        =   4
  302.          Top             =   90
  303.          Width           =   2295
  304.       End
  305.       Begin CommandButton Button 
  306.          BackColor       =   &H00C0C0C0&
  307.          Caption         =   "&BackTabColor"
  308.          FontBold        =   0   'False
  309.          FontItalic      =   0   'False
  310.          FontName        =   "MS Sans Serif"
  311.          FontSize        =   8.25
  312.          FontStrikethru  =   0   'False
  313.          FontUnderline   =   0   'False
  314.          Height          =   405
  315.          Index           =   2
  316.          Left            =   2475
  317.          TabIndex        =   3
  318.          Top             =   90
  319.          Width           =   2295
  320.       End
  321.       Begin CommandButton Button 
  322.          BackColor       =   &H00C0C0C0&
  323.          Caption         =   "&ForeColor"
  324.          FontBold        =   0   'False
  325.          FontItalic      =   0   'False
  326.          FontName        =   "MS Sans Serif"
  327.          FontSize        =   8.25
  328.          FontStrikethru  =   0   'False
  329.          FontUnderline   =   0   'False
  330.          Height          =   405
  331.          Index           =   3
  332.          Left            =   4860
  333.          TabIndex        =   2
  334.          Top             =   90
  335.          Width           =   2280
  336.       End
  337.    End
  338. End
  339. Option Explicit
  340.  
  341. Sub Button_Click (Index As Integer)
  342. Dim i%
  343.  
  344.   Select Case Index
  345.  
  346.     Case 1    'Changes tab styles
  347.       VSIndexTab1.Style = (VSIndexTab1.Style + 1) Mod 6
  348.  
  349.  
  350.     Case 2    'Changes back tab color
  351.        VSIndexTab1.BackTabColor = QBColor(Rnd * 15)
  352.        VSIndexTab1.Refresh
  353.       
  354.  
  355.     Case 3    'Changes Caption text color
  356.       VSIndexTab1.ForeColor = QBColor(Rnd * 15)
  357.  
  358.       
  359.     Case 4    'Changes BackSheets style
  360.       VSIndexTab1.MultiRow = Not VSIndexTab1.MultiRow
  361.       
  362.  
  363.   End Select
  364.  
  365. End Sub
  366.  
  367. Sub Form_Load ()
  368.   Dim i%, x%, y%
  369.   For i = 1 To 3
  370.     TabsPerPage.AddItem Str$(i)
  371.   Next i
  372.   TabsPerPage.ListIndex = 0
  373.  
  374.   'Unique Colors for each tab
  375.   VSIndexTab2.TabColor(0) = &H80FF80
  376.   VSIndexTab2.TabColor(1) = &H80FFFF
  377.   VSIndexTab2.TabColor(2) = &HFFFF80
  378.  
  379.   'Fill up Grid
  380.   Grid1.Col = 0
  381.   For x = 1 To 15
  382.     Grid1.Row = x
  383.     Grid1.Text = x
  384.   Next x
  385.   Grid1.Row = 0
  386.   For x = 1 To 15
  387.     Grid1.Col = x
  388.     Grid1.Text = x
  389.   Next x
  390. End Sub
  391.  
  392. Sub List1_MouseDown (Index%, Button As Integer, Shift As Integer, x As Single, y As Single)
  393.   
  394. End Sub
  395.  
  396. Sub Mode_Click (Index As Integer)
  397.     VSIndexTab1.MultiRow = Not VSIndexTab1.MultiRow
  398. End Sub
  399.  
  400. Sub TabsPerPage_Click ()
  401.   VSIndexTab1.TabsPerPage = TabsPerPage.ListIndex + 1
  402.   VSIndexTab1.FirstTab = 6 - VSIndexTab1.TabsPerPage
  403.  
  404. End Sub
  405.  
  406. Sub Text3_MouseDown (Index As Integer, Button As Integer, Shift As Integer, x As Single, y As Single)
  407.  
  408. End Sub
  409.  
  410.