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