home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / VISUAL_B / FERRAMEN / VS_VBX / INDEXTAB.FRM (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1994-03-14  |  28.1 KB  |  726 lines
  1. VERSION 2.00
  2. Begin Form IndexTab 
  3.    BackColor       =   &H00C0C0C0&
  4.    Caption         =   "Double click a tab with the right mouse"
  5.    ClientHeight    =   6075
  6.    ClientLeft      =   495
  7.    ClientTop       =   705
  8.    ClientWidth     =   7635
  9.    Height          =   6540
  10.    Left            =   405
  11.    LinkTopic       =   "Form2"
  12.    ScaleHeight     =   6075
  13.    ScaleWidth      =   7635
  14.    Top             =   330
  15.    Width           =   7815
  16.    Begin VideoSoftElastic MainElastic 
  17.       Align           =   5  'Fill Container
  18.       AutoSizeChildren=   1  'Even Horizontal
  19.       BackColor       =   &H00C0C0C0&
  20.       BevelInner      =   0  'None
  21.       BevelOuter      =   1  'Raised
  22.       BevelOuterWidth =   1
  23.       BorderWidth     =   16
  24.       Height          =   5040
  25.       Left            =   0
  26.       MinChildSize    =   3500
  27.       TabIndex        =   0
  28.       Top             =   0
  29.       Width           =   7635
  30.       Begin VideoSoftIndexTab VSIndexTab 
  31.          BackSheets      =   0  'None
  32.          BackTabColor    =   &H0080FF80&
  33.          BorderWidth     =   12
  34.          Caption         =   "&Order|&Notes|&Setup"
  35.          FontBold        =   -1  'True
  36.          FontItalic      =   0   'False
  37.          FontName        =   "Arial"
  38.          FontSize        =   13.5
  39.          FontStrikethru  =   0   'False
  40.          FontUnderline   =   0   'False
  41.          FrontTabColor   =   &H00C0C0C0&
  42.          Height          =   4560
  43.          Left            =   240
  44.          Position        =   0  'Top
  45.          ShowFocusRect   =   0   'False
  46.          Style           =   5  'Chamfered 3D
  47.          TabIndex        =   1
  48.          TabsPerPage     =   3
  49.          Top             =   240
  50.          Width           =   7155
  51.          Begin VideoSoftElastic Page 
  52.             BackColor       =   &H00808080&
  53.             BevelInner      =   7  'Shadow
  54.             BevelInnerWidth =   4
  55.             BorderWidth     =   4
  56.             CaptionPos      =   2  'Left Bottom
  57.             ChildSpacing    =   0
  58.             FontBold        =   -1  'True
  59.             FontItalic      =   0   'False
  60.             FontName        =   "System"
  61.             FontSize        =   9.75
  62.             FontStrikethru  =   0   'False
  63.             FontUnderline   =   0   'False
  64.             ForeColor       =   &H00000000&
  65.             Height          =   3720
  66.             Index           =   2
  67.             Left            =   9885
  68.             ShadowColor     =   &H00000000&
  69.             TabIndex        =   9
  70.             Tag             =   "Setup is the one"
  71.             TagPosition     =   1  'Above Control
  72.             TagWidth        =   250
  73.             Top             =   615
  74.             Width           =   6705
  75.             Begin CommandButton btn_Shadow 
  76.                Caption         =   "FrontTabColor"
  77.                FontBold        =   -1  'True
  78.                FontItalic      =   0   'False
  79.                FontName        =   "System"
  80.                FontSize        =   9.75
  81.                FontStrikethru  =   0   'False
  82.                FontUnderline   =   0   'False
  83.                Height          =   555
  84.                Index           =   1
  85.                Left            =   3090
  86.                TabIndex        =   31
  87.                Top             =   1380
  88.                Width           =   1665
  89.             End
  90.             Begin CommandButton btn_Shadow 
  91.                Caption         =   "Shadow Color"
  92.                FontBold        =   -1  'True
  93.                FontItalic      =   0   'False
  94.                FontName        =   "System"
  95.                FontSize        =   9.75
  96.                FontStrikethru  =   0   'False
  97.                FontUnderline   =   0   'False
  98.                Height          =   585
  99.                Index           =   0
  100.                Left            =   3090
  101.                TabIndex        =   30
  102.                Top             =   2070
  103.                Width           =   1665
  104.             End
  105.             Begin VideoSoftElastic VSElastic2 
  106.                AutoSizeChildren=   3  'Even Vertical
  107.                BackColor       =   &H00C0C0C0&
  108.                BevelInner      =   7  'Shadow
  109.                BevelInnerWidth =   4
  110.                BorderWidth     =   12
  111.                ChildSpacing    =   12
  112.                Height          =   2505
  113.                Left            =   270
  114.                ShadowColor     =   &H00404040&
  115.                TabIndex        =   24
  116.                Top             =   810
  117.                Width           =   2595
  118.                Begin CheckBox Check1 
  119.                   BackColor       =   &H0000FFFF&
  120.                   Caption         =   "Bold Current Tab"
  121.                   FontBold        =   -1  'True
  122.                   FontItalic      =   0   'False
  123.                   FontName        =   "System"
  124.                   FontSize        =   9.75
  125.                   FontStrikethru  =   0   'False
  126.                   FontUnderline   =   0   'False
  127.                   ForeColor       =   &H00000000&
  128.                   Height          =   285
  129.                   Index           =   0
  130.                   Left            =   180
  131.                   TabIndex        =   29
  132.                   Top             =   180
  133.                   Value           =   1  'Checked
  134.                   Width           =   2235
  135.                End
  136.                Begin CheckBox Check1 
  137.                   BackColor       =   &H0000FFFF&
  138.                   Caption         =   "Enable Notes Tab"
  139.                   FontBold        =   -1  'True
  140.                   FontItalic      =   0   'False
  141.                   FontName        =   "System"
  142.                   FontSize        =   9.75
  143.                   FontStrikethru  =   0   'False
  144.                   FontUnderline   =   0   'False
  145.                   Height          =   285
  146.                   Index           =   1
  147.                   Left            =   180
  148.                   TabIndex        =   28
  149.                   Top             =   645
  150.                   Value           =   1  'Checked
  151.                   Width           =   2235
  152.                End
  153.                Begin CheckBox Check1 
  154.                   BackColor       =   &H0000FFFF&
  155.                   Caption         =   "Shadows"
  156.                   FontBold        =   -1  'True
  157.                   FontItalic      =   0   'False
  158.                   FontName        =   "System"
  159.                   FontSize        =   9.75
  160.                   FontStrikethru  =   0   'False
  161.                   FontUnderline   =   0   'False
  162.                   Height          =   285
  163.                   Index           =   2
  164.                   Left            =   180
  165.                   TabIndex        =   27
  166.                   Top             =   1575
  167.                   Value           =   1  'Checked
  168.                   Width           =   2235
  169.                End
  170.                Begin CheckBox Check1 
  171.                   BackColor       =   &H0000FFFF&
  172.                   Caption         =   "Pictures"
  173.                   FontBold        =   -1  'True
  174.                   FontItalic      =   0   'False
  175.                   FontName        =   "System"
  176.                   FontSize        =   9.75
  177.                   FontStrikethru  =   0   'False
  178.                   FontUnderline   =   0   'False
  179.                   Height          =   285
  180.                   Index           =   3
  181.                   Left            =   180
  182.                   TabIndex        =   26
  183.                   Top             =   2040
  184.                   Width           =   2235
  185.                End
  186.                Begin CheckBox Check1 
  187.                   BackColor       =   &H0000FFFF&
  188.                   Caption         =   "DogEars"
  189.                   FontBold        =   -1  'True
  190.                   FontItalic      =   0   'False
  191.                   FontName        =   "System"
  192.                   FontSize        =   9.75
  193.                   FontStrikethru  =   0   'False
  194.                   FontUnderline   =   0   'False
  195.                   Height          =   285
  196.                   Index           =   4
  197.                   Left            =   180
  198.                   TabIndex        =   25
  199.                   Top             =   1110
  200.                   Value           =   1  'Checked
  201.                   Width           =   2235
  202.                End
  203.             End
  204.             Begin ComboBox TabsPerPage 
  205.                FontBold        =   -1  'True
  206.                FontItalic      =   0   'False
  207.                FontName        =   "System"
  208.                FontSize        =   9.75
  209.                FontStrikethru  =   0   'False
  210.                FontUnderline   =   0   'False
  211.                ForeColor       =   &H00000000&
  212.                Height          =   360
  213.                Left            =   270
  214.                Style           =   2  'Dropdown List
  215.                TabIndex        =   23
  216.                Tag             =   "TabsPerPage"
  217.                Top             =   330
  218.                Width           =   1995
  219.             End
  220.          End
  221.          Begin VideoSoftElastic Page 
  222.             AutoSizeChildren=   3  'Even Vertical
  223.             BackColor       =   &H00C0C0C0&
  224.             BevelInner      =   7  'Shadow
  225.             BevelInnerWidth =   4
  226.             BevelOuter      =   6  'Groove
  227.             BorderWidth     =   12
  228.             CaptionPos      =   6  'Right Top
  229.             ChildSpacing    =   8
  230.             FontBold        =   -1  'True
  231.             FontItalic      =   0   'False
  232.             FontName        =   "System"
  233.             FontSize        =   9.75
  234.             FontStrikethru  =   0   'False
  235.             FontUnderline   =   0   'False
  236.             Height          =   3720
  237.             Index           =   1
  238.             Left            =   9870
  239.             ShadowColor     =   &H00000000&
  240.             TabIndex        =   6
  241.             Tag             =   "Moving over Notes"
  242.             TagWidth        =   700
  243.             Top             =   615
  244.             Width           =   6705
  245.             Begin ListBox List1 
  246.                BackColor       =   &H00E0FFFF&
  247.                FontBold        =   -1  'True
  248.                FontItalic      =   0   'False
  249.                FontName        =   "System"
  250.                FontSize        =   9.75
  251.                FontStrikethru  =   0   'False
  252.                FontUnderline   =   0   'False
  253.                Height          =   1470
  254.                Index           =   1
  255.                Left            =   885
  256.                TabIndex        =   8
  257.                Tag             =   "Notes"
  258.                Top             =   1920
  259.                Width           =   5640
  260.             End
  261.             Begin ListBox List1 
  262.                BackColor       =   &H00E0FFFF&
  263.                FontBold        =   -1  'True
  264.                FontItalic      =   0   'False
  265.                FontName        =   "System"
  266.                FontSize        =   9.75
  267.                FontStrikethru  =   0   'False
  268.                FontUnderline   =   0   'False
  269.                Height          =   1470
  270.                Index           =   0
  271.                Left            =   885
  272.                TabIndex        =   7
  273.                Tag             =   "To Do"
  274.                Top             =   180
  275.                Width           =   5640
  276.             End
  277.          End
  278.          Begin VideoSoftElastic Page 
  279.             AutoSizeChildren=   4  'Uneven Vertical
  280.             BackColor       =   &H00C0C0C0&
  281.             BevelOuter      =   6  'Groove
  282.             CaptionPos      =   6  'Right Top
  283.             Height          =   3720
  284.             Index           =   0
  285.             Left            =   225
  286.             TabIndex        =   2
  287.             Tag             =   "Moving the mouse on top of the Order tab"
  288.             Top             =   615
  289.             Width           =   6705
  290.             Begin Grid Grid1 
  291.                BackColor       =   &H00FFFFFF&
  292.                Cols            =   5
  293.                FixedCols       =   0
  294.                FontBold        =   -1  'True
  295.                FontItalic      =   0   'False
  296.                FontName        =   "System"
  297.                FontSize        =   9.75
  298.                FontStrikethru  =   0   'False
  299.                FontUnderline   =   0   'False
  300.                Height          =   1800
  301.                Left            =   90
  302.                Rows            =   20
  303.                ScrollBars      =   0  'None
  304.                TabIndex        =   20
  305.                Top             =   1830
  306.                Width           =   6525
  307.             End
  308.             Begin VideoSoftElastic VSElastic6 
  309.                AutoSizeChildren=   2  'Uneven Horizontal
  310.                BackColor       =   &H00C0C0C0&
  311.                BevelInner      =   7  'Shadow
  312.                BevelInnerWidth =   4
  313.                BevelOuter      =   0  'None
  314.                BorderWidth     =   12
  315.                ChildSpacing    =   12
  316.                Height          =   1650
  317.                Left            =   90
  318.                TabIndex        =   10
  319.                Top             =   90
  320.                Width           =   6525
  321.                Begin VideoSoftElastic VSElastic3 
  322.                   AccessKey       =   -1  'True
  323.                   AutoSizeChildren=   3  'Even Vertical
  324.                   BackColor       =   &H00C0C0C0&
  325.                   ChildSpacing    =   -1
  326.                   FontBold        =   -1  'True
  327.                   FontItalic      =   0   'False
  328.                   FontName        =   "System"
  329.                   FontSize        =   9.75
  330.                   FontStrikethru  =   0   'False
  331.                   FontUnderline   =   0   'False
  332.                   ForeColor       =   &H000000FF&
  333.                   Height          =   1290
  334.                   Left            =   1890
  335.                   TabIndex        =   11
  336.                   TagWidth        =   700
  337.                   Top             =   180
  338.                   Width           =   4455
  339.                   Begin ComboBox Combo1 
  340.                      Height          =   300
  341.                      Left            =   795
  342.                      Style           =   2  'Dropdown List
  343.                      TabIndex        =   16
  344.                      Tag             =   "&Bill To"
  345.                      Top             =   90
  346.                      Width           =   3570
  347.                   End
  348.                   Begin TextBox Text1 
  349.                      BackColor       =   &H00FFFFFF&
  350.                      DragIcon        =   INDEXTAB.FRX:0000
  351.                      FontBold        =   0   'False
  352.                      FontItalic      =   0   'False
  353.                      FontName        =   "MS Sans Serif"
  354.                      FontSize        =   8.25
  355.                      FontStrikethru  =   0   'False
  356.                      FontUnderline   =   0   'False
  357.                      Height          =   285
  358.                      Index           =   0
  359.                      Left            =   795
  360.                      TabIndex        =   14
  361.                      Text            =   "2625 Alcatraz Avenue, Ste 271"
  362.                      Top             =   375
  363.                      Width           =   3570
  364.                   End
  365.                   Begin TextBox Text1 
  366.                      BackColor       =   &H00FFFFFF&
  367.                      DragIcon        =   INDEXTAB.FRX:0302
  368.                      FontBold        =   0   'False
  369.                      FontItalic      =   0   'False
  370.                      FontName        =   "MS Sans Serif"
  371.                      FontSize        =   8.25
  372.                      FontStrikethru  =   0   'False
  373.                      FontUnderline   =   0   'False
  374.                      Height          =   285
  375.                      Index           =   2
  376.                      Left            =   795
  377.                      TabIndex        =   13
  378.                      Text            =   "Berkeley, CA 94705"
  379.                      Top             =   645
  380.                      Width           =   3570
  381.                   End
  382.                   Begin TextBox Text1 
  383.                      BackColor       =   &H00FFFFFF&
  384.                      DragIcon        =   INDEXTAB.FRX:0604
  385.                      FontBold        =   0   'False
  386.                      FontItalic      =   0   'False
  387.                      FontName        =   "MS Sans Serif"
  388.                      FontSize        =   8.25
  389.                      FontStrikethru  =   0   'False
  390.                      FontUnderline   =   0   'False
  391.                      Height          =   285
  392.                      Index           =   3
  393.                      Left            =   795
  394.                      TabIndex        =   12
  395.                      Top             =   915
  396.                      Width           =   3570
  397.                   End
  398.                End
  399.                Begin PictureBox Picture1 
  400.                   BackColor       =   &H00FFFF80&
  401.                   Height          =   1290
  402.                   Left            =   180
  403.                   ScaleHeight     =   1260
  404.                   ScaleWidth      =   1500
  405.                   TabIndex        =   15
  406.                   Top             =   180
  407.                   Width           =   1530
  408.                   Begin Label Label3 
  409.                      Alignment       =   2  'Center
  410.                      BackStyle       =   0  'Transparent
  411.                      Caption         =   "2/2/94"
  412.                      DragIcon        =   INDEXTAB.FRX:0906
  413.                      FontBold        =   -1  'True
  414.                      FontItalic      =   0   'False
  415.                      FontName        =   "System"
  416.                      FontSize        =   9.75
  417.                      FontStrikethru  =   0   'False
  418.                      FontUnderline   =   0   'False
  419.                      Height          =   255
  420.                      Left            =   300
  421.                      TabIndex        =   19
  422.                      Top             =   870
  423.                      Width           =   885
  424.                   End
  425.                   Begin Label Label2 
  426.                      Alignment       =   2  'Center
  427.                      BackStyle       =   0  'Transparent
  428.                      Caption         =   "Order Date"
  429.                      FontBold        =   -1  'True
  430.                      FontItalic      =   0   'False
  431.                      FontName        =   "System"
  432.                      FontSize        =   9.75
  433.                      FontStrikethru  =   0   'False
  434.                      FontUnderline   =   0   'False
  435.                      ForeColor       =   &H00FF0000&
  436.                      Height          =   225
  437.                      Left            =   210
  438.                      TabIndex        =   18
  439.                      Top             =   600
  440.                      Width           =   1155
  441.                   End
  442.                   Begin Label Label1 
  443.                      Alignment       =   2  'Center
  444.                      BackStyle       =   0  'Transparent
  445.                      Caption         =   "Order ID"
  446.                      FontBold        =   -1  'True
  447.                      FontItalic      =   0   'False
  448.                      FontName        =   "System"
  449.                      FontSize        =   9.75
  450.                      FontStrikethru  =   0   'False
  451.                      FontUnderline   =   0   'False
  452.                      ForeColor       =   &H00FF0000&
  453.                      Height          =   285
  454.                      Left            =   150
  455.                      TabIndex        =   17
  456.                      Top             =   150
  457.                      Width           =   1215
  458.                   End
  459.                End
  460.             End
  461.          End
  462.       End
  463.       Begin Image Image1 
  464.          Height          =   330
  465.          Index           =   0
  466.          Left            =   -30
  467.          Picture         =   INDEXTAB.FRX:0C08
  468.          Stretch         =   -1  'True
  469.          Top             =   1380
  470.          Visible         =   0   'False
  471.          Width           =   330
  472.       End
  473.       Begin Image Image1 
  474.          Height          =   330
  475.          Index           =   1
  476.          Left            =   -30
  477.          Picture         =   INDEXTAB.FRX:0D8A
  478.          Stretch         =   -1  'True
  479.          Top             =   1770
  480.          Visible         =   0   'False
  481.          Width           =   330
  482.       End
  483.       Begin Image Image1 
  484.          Height          =   330
  485.          Index           =   2
  486.          Left            =   0
  487.          Picture         =   INDEXTAB.FRX:0F0C
  488.          Stretch         =   -1  'True
  489.          Top             =   2130
  490.          Visible         =   0   'False
  491.          Width           =   330
  492.       End
  493.       Begin Image Image1 
  494.          Height          =   330
  495.          Index           =   3
  496.          Left            =   -60
  497.          Stretch         =   -1  'True
  498.          Top             =   2580
  499.          Visible         =   0   'False
  500.          Width           =   330
  501.       End
  502.    End
  503.    Begin VideoSoftElastic StatusBar 
  504.       Align           =   2  'Align Bottom
  505.       AutoSizeChildren=   1  'Even Horizontal
  506.       BackColor       =   &H00C0C0C0&
  507.       BevelInner      =   7  'Shadow
  508.       BevelInnerWidth =   4
  509.       BevelOuter      =   1  'Raised
  510.       BevelOuterWidth =   1
  511.       BorderWidth     =   8
  512.       ChildSpacing    =   16
  513.       Height          =   630
  514.       Index           =   0
  515.       Left            =   0
  516.       TabIndex        =   3
  517.       Top             =   5040
  518.       Width           =   7635
  519.       Begin CommandButton Button 
  520.          BackColor       =   &H00C0C0C0&
  521.          Caption         =   "&Cool"
  522.          FontBold        =   0   'False
  523.          FontItalic      =   0   'False
  524.          FontName        =   "MS Sans Serif"
  525.          FontSize        =   8.25
  526.          FontStrikethru  =   0   'False
  527.          FontUnderline   =   0   'False
  528.          Height          =   390
  529.          Index           =   4
  530.          Left            =   6240
  531.          TabIndex        =   33
  532.          Top             =   120
  533.          Width           =   1275
  534.       End
  535.       Begin CommandButton Button 
  536.          BackColor       =   &H00C0C0C0&
  537.          Caption         =   "&ForeColor"
  538.          FontBold        =   0   'False
  539.          FontItalic      =   0   'False
  540.          FontName        =   "MS Sans Serif"
  541.          FontSize        =   8.25
  542.          FontStrikethru  =   0   'False
  543.          FontUnderline   =   0   'False
  544.          Height          =   390
  545.          Index           =   3
  546.          Left            =   4710
  547.          TabIndex        =   22
  548.          Top             =   120
  549.          Width           =   1290
  550.       End
  551.       Begin CommandButton Button 
  552.          BackColor       =   &H00C0C0C0&
  553.          Caption         =   "&BackTabColor"
  554.          FontBold        =   0   'False
  555.          FontItalic      =   0   'False
  556.          FontName        =   "MS Sans Serif"
  557.          FontSize        =   8.25
  558.          FontStrikethru  =   0   'False
  559.          FontUnderline   =   0   'False
  560.          Height          =   390
  561.          Index           =   2
  562.          Left            =   3180
  563.          TabIndex        =   21
  564.          Top             =   120
  565.          Width           =   1290
  566.       End
  567.       Begin CommandButton Button 
  568.          BackColor       =   &H00C0C0C0&
  569.          Caption         =   "St&yle"
  570.          FontBold        =   0   'False
  571.          FontItalic      =   0   'False
  572.          FontName        =   "MS Sans Serif"
  573.          FontSize        =   8.25
  574.          FontStrikethru  =   0   'False
  575.          FontUnderline   =   0   'False
  576.          Height          =   390
  577.          Index           =   1
  578.          Left            =   1650
  579.          TabIndex        =   5
  580.          Top             =   120
  581.          Width           =   1290
  582.       End
  583.       Begin CommandButton Button 
  584.          BackColor       =   &H00C0C0C0&
  585.          Caption         =   "&Position"
  586.          FontBold        =   0   'False
  587.          FontItalic      =   0   'False
  588.          FontName        =   "MS Sans Serif"
  589.          FontSize        =   8.25
  590.          FontStrikethru  =   0   'False
  591.          FontUnderline   =   0   'False
  592.          Height          =   390
  593.          Index           =   0
  594.          Left            =   120
  595.          TabIndex        =   4
  596.          Top             =   120
  597.          Width           =   1290
  598.       End
  599.    End
  600.    Begin VideoSoftElastic StatusBar 
  601.       Align           =   2  'Align Bottom
  602.       BackColor       =   &H00C0C0C0&
  603.       BevelInner      =   0  'None
  604.       BevelOuter      =   1  'Raised
  605.       BevelOuterWidth =   1
  606.       Caption         =   "StatusBar"
  607.       CaptionPos      =   4  'Center Center
  608.       ForeColor       =   &H00800000&
  609.       Height          =   405
  610.       Index           =   1
  611.       Left            =   0
  612.       TabIndex        =   32
  613.       Top             =   5670
  614.       Width           =   7635
  615.    End
  616. Option Explicit
  617. Sub btn_Shadow_Click (Index%)
  618.   Select Case Index
  619.     Case 0
  620.       Page(2).ShadowColor = QBColor(Rnd * 15)
  621.     Case 1
  622.       VSindexTab.FrontTabForeColor = QBColor(Rnd * 15)
  623.   End Select
  624. End Sub
  625. Sub Button_Click (Index As Integer)
  626.   Select Case Index
  627.     Case 0    'Changes Tab positions
  628.        VSindexTab.Position = (VSindexTab.Position + 1) Mod 5
  629.     Case 1    'Changes tab styles
  630.        VSindexTab.Style = (VSindexTab.Style + 1) Mod 8
  631.        
  632.     Case 2    'Changes back tab color
  633.        VSindexTab.BackTabColor = QBColor(Rnd * 15)
  634.     Case 3    'Changes Caption text color
  635.        VSindexTab.ForeColor = QBColor(Rnd * 15)
  636.     Case 4    'Cool
  637.        MsgBox "Click VideoSoft Address with the right button, drag it to Notes tab, and drop it in one of the List boxes.  WAY COOL!!"
  638.        
  639.   End Select
  640. End Sub
  641. Sub Check1_Click (Index%)
  642.   Dim i%
  643.   Select Case Index
  644.     Case 0  'BoldCurrentTab
  645.       VSindexTab.BoldCurrent = Not VSindexTab.BoldCurrent
  646.     Case 1  'Enable/Disable Notes Tab
  647.       VSindexTab.TabEnabled(1) = Not VSindexTab.TabEnabled(1)
  648.       VSindexTab.Refresh
  649.     Case 2  'Shadows
  650.       If Check1(2).Value = 0 Then
  651.         Page(2).BevelInnerWidth = 1
  652.         Page(2).BevelInner = 3        'Inset
  653.       Else
  654.         Page(2).BevelInnerWidth = 4
  655.         Page(2).BevelInner = 7        'Shadows
  656.       End If
  657.     Case 3  'Pictures
  658.         If Check1(3).Value = 1 Then
  659.           For i = 0 To 2
  660.             VSindexTab.TabPicture(i) = Image1(i)
  661.           Next
  662.         Else
  663.           For i = 0 To 2
  664.             VSindexTab.TabPicture(i) = Image1(3)
  665.           Next
  666.         End If
  667.     Case 4  'DogEars
  668.       VSindexTab.DogEars = Not VSindexTab.DogEars
  669.             
  670.     End Select
  671. End Sub
  672. Sub Form_Load ()
  673.   Me.Caption = "VideoSoft Indextab"
  674.   'Fill lists and Combox
  675.   TabsPerPage.AddItem "1"
  676.   TabsPerPage.AddItem "2"
  677.   TabsPerPage.AddItem "3"
  678.   TabsPerPage.ListIndex = 2
  679.   Combo1.AddItem "VideoSoft"
  680.   Combo1.ListIndex = 0
  681.   Grid1.Row = 0
  682.   Grid1.Col = 0
  683.   Grid1.ColWidth(0) = 1000
  684.   Grid1.Text = "Prod ID"
  685.   Grid1.Col = 1
  686.   Grid1.ColWidth(1) = 2500
  687.   Grid1.Text = "Description"
  688.   Grid1.Col = 2
  689.   Grid1.Text = "Qty"
  690.   Grid1.Col = 3
  691.   Grid1.ColWidth(3) = 4500
  692.   Grid1.Text = "Price"
  693. End Sub
  694. Sub Label3_MouseDown (Button As Integer, Shift As Integer, X As Single, Y As Single)
  695.  If Button = 2 Then Label3.Drag 1
  696. End Sub
  697. Sub List1_DragDrop (Index As Integer, Source As Control, X As Single, Y As Single)
  698.   List1(Index).AddItem Source
  699. End Sub
  700. Sub TabsPerPage_Click ()
  701.   VSindexTab.TabsPerPage = TabsPerPage.ListIndex + 1
  702.   VSindexTab.FirstTab = 3 - VSindexTab.TabsPerPage
  703.   'Enable DogEars option
  704.   If VSindexTab.TabsPerPage = 3 Then
  705.     Check1(4).Enabled = False
  706.   Else
  707.     Check1(4).Enabled = True
  708.   End If
  709. End Sub
  710. Sub Text1_MouseDown (Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
  711.   If Button = 2 Then Text1(Index).Drag 1
  712. End Sub
  713. Sub VSIndexTab_DragOver (Source As Control, X As Single, Y As Single, State As Integer)
  714.   If VSindexTab.MouseOver <> -1 Then VSindexTab.CurrTab = VSindexTab.MouseOver
  715. End Sub
  716. Sub VSIndexTab_MouseMove (Button As Integer, Shift As Integer, X As Single, Y As Single)
  717.   On Error Resume Next
  718.   If VSindexTab.MouseOver = -1 Then
  719.     ' Current page
  720.     If StatusBar(1) <> "Current Page" Then StatusBar(1) = "Current Page"
  721.   Else
  722.     ' Move Over other page
  723.     If StatusBar(1) <> Page(VSindexTab.MouseOver).Tag Then StatusBar(1) = Page(VSindexTab.MouseOver).Tag
  724.   End If
  725. End Sub
  726.