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