home *** CD-ROM | disk | FTP | other *** search
/ QBasic & Borland Pascal & C / Delphi5.iso / Basic / Samples / VBAWK / VBAWK.ZIP / INDEXTAB.FRM (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1993-07-21  |  7.2 KB  |  210 lines
  1. VERSION 2.00
  2. Begin Form IndexTab 
  3.    BackColor       =   &H00C0C0C0&
  4.    Caption         =   "IndexTab Demo"
  5.    Height          =   6015
  6.    Left            =   1785
  7.    LinkTopic       =   "Form2"
  8.    ScaleHeight     =   5550
  9.    ScaleWidth      =   7485
  10.    Top             =   810
  11.    Width           =   7665
  12.    Begin VideoSoftElastic VSElastic1 
  13.       Align           =   5  'Fill Container
  14.       AutoSizeChildren=   1  'Even Horizontally
  15.       BackColor       =   &H00C0C0C0&
  16.       BevelInner      =   3  'Inset
  17.       BevelInnerWidth =   1
  18.       BevelOuter      =   2  'Raised Outlined
  19.       BevelOuterWidth =   2
  20.       BorderWidth     =   6
  21.       Caption         =   ""
  22.       CaptionPos      =   1  'Left Center
  23.       ChildSpacing    =   6
  24.       FloodColor      =   &H000000C0&
  25.       FloodDirection  =   0  'None
  26.       FloodPercent    =   0
  27.       Height          =   4995
  28.       Left            =   0
  29.       Splitter        =   0  'No
  30.       TabIndex        =   0
  31.       Top             =   0
  32.       Width           =   7485
  33.       Begin VideoSoftIndexTab VSIndexTab1 
  34.          AutoScroll      =   -1  'True
  35.          AutoSwitch      =   -1  'True
  36.          BackColor       =   &H00C0C0C0&
  37.          BackTabColor    =   &H00FFFFFF&
  38.          Caption         =   " Tab 1| Tab 2 | Tab 3 "
  39.          CurrTab         =   0
  40.          FirstTab        =   0
  41.          FontBold        =   -1  'True
  42.          FontItalic      =   0   'False
  43.          FontName        =   "Arial"
  44.          FontSize        =   13.5
  45.          FontStrikethru  =   0   'False
  46.          FontUnderline   =   0   'False
  47.          ForeColor       =   &H00000000&
  48.          FrontTabColor   =   &H00C0C0C0&
  49.          Height          =   4815
  50.          Index           =   0
  51.          Left            =   90
  52.          Position        =   2  'Left (True Type fonts only)
  53.          Style           =   2  'Rounded
  54.          TabIndex        =   1
  55.          Top             =   90
  56.          Width           =   7305
  57.          Begin TextBox Text2 
  58.             BorderStyle     =   0  'None
  59.             Height          =   1500
  60.             Left            =   990
  61.             MultiLine       =   -1  'True
  62.             ScrollBars      =   2  'Vertical
  63.             TabIndex        =   4
  64.             Text            =   "Plain text box - Text2"
  65.             Top             =   2655
  66.             Width           =   5325
  67.          End
  68.          Begin VideoSoftElastic VSElastic2 
  69.             Align           =   0  'None
  70.             AutoSizeChildren=   2  'Uneven Horizontally
  71.             BackColor       =   &H00C0C0C0&
  72.             BevelInner      =   3  'Inset
  73.             BevelInnerWidth =   1
  74.             BevelOuter      =   0  'None
  75.             BevelOuterWidth =   2
  76.             BorderWidth     =   6
  77.             Caption         =   ""
  78.             CaptionPos      =   1  'Left Center
  79.             ChildSpacing    =   6
  80.             FloodColor      =   &H000000C0&
  81.             FloodDirection  =   0  'None
  82.             FloodPercent    =   0
  83.             Height          =   2040
  84.             Left            =   900
  85.             Splitter        =   0  'No
  86.             TabIndex        =   2
  87.             Top             =   315
  88.             Width           =   5685
  89.             Begin TextBox Text1 
  90.                BorderStyle     =   0  'None
  91.                Height          =   1860
  92.                Left            =   90
  93.                MultiLine       =   -1  'True
  94.                ScrollBars      =   2  'Vertical
  95.                TabIndex        =   3
  96.                Text            =   "Text Box inside an elastic box"
  97.                Top             =   90
  98.                Width           =   5505
  99.             End
  100.          End
  101.       End
  102.    End
  103.    Begin VideoSoftElastic StatusBar 
  104.       Align           =   2  'Align Bottom
  105.       AutoSizeChildren=   1  'Even Horizontally
  106.       BackColor       =   &H00C0C0C0&
  107.       BevelInner      =   3  'Inset
  108.       BevelInnerWidth =   1
  109.       BevelOuter      =   0  'None
  110.       BevelOuterWidth =   2
  111.       BorderWidth     =   6
  112.       Caption         =   ""
  113.       CaptionPos      =   1  'Left Center
  114.       ChildSpacing    =   6
  115.       FloodColor      =   &H000000C0&
  116.       FloodDirection  =   0  'None
  117.       FloodPercent    =   0
  118.       Height          =   555
  119.       Left            =   0
  120.       Splitter        =   0  'No
  121.       TabIndex        =   5
  122.       Top             =   4995
  123.       Width           =   7485
  124.       Begin CommandButton Button 
  125.          BackColor       =   &H00C0C0C0&
  126.          Caption         =   "&ForeColor"
  127.          FontBold        =   0   'False
  128.          FontItalic      =   0   'False
  129.          FontName        =   "MS Sans Serif"
  130.          FontSize        =   8.25
  131.          FontStrikethru  =   0   'False
  132.          FontUnderline   =   0   'False
  133.          Height          =   375
  134.          Index           =   3
  135.          Left            =   5625
  136.          TabIndex        =   9
  137.          Top             =   90
  138.          Width           =   1770
  139.       End
  140.       Begin CommandButton Button 
  141.          BackColor       =   &H00C0C0C0&
  142.          Caption         =   "&BackTabColor"
  143.          FontBold        =   0   'False
  144.          FontItalic      =   0   'False
  145.          FontName        =   "MS Sans Serif"
  146.          FontSize        =   8.25
  147.          FontStrikethru  =   0   'False
  148.          FontUnderline   =   0   'False
  149.          Height          =   375
  150.          Index           =   2
  151.          Left            =   3780
  152.          TabIndex        =   8
  153.          Top             =   90
  154.          Width           =   1755
  155.       End
  156.       Begin CommandButton Button 
  157.          BackColor       =   &H00C0C0C0&
  158.          Caption         =   "&Style"
  159.          FontBold        =   0   'False
  160.          FontItalic      =   0   'False
  161.          FontName        =   "MS Sans Serif"
  162.          FontSize        =   8.25
  163.          FontStrikethru  =   0   'False
  164.          FontUnderline   =   0   'False
  165.          Height          =   375
  166.          Index           =   1
  167.          Left            =   1935
  168.          TabIndex        =   7
  169.          Top             =   90
  170.          Width           =   1755
  171.       End
  172.       Begin CommandButton Button 
  173.          BackColor       =   &H00C0C0C0&
  174.          Caption         =   "&Position"
  175.          FontBold        =   0   'False
  176.          FontItalic      =   0   'False
  177.          FontName        =   "MS Sans Serif"
  178.          FontSize        =   8.25
  179.          FontStrikethru  =   0   'False
  180.          FontUnderline   =   0   'False
  181.          Height          =   375
  182.          Index           =   0
  183.          Left            =   90
  184.          TabIndex        =   6
  185.          Top             =   90
  186.          Width           =   1755
  187.       End
  188.    End
  189. Option Explicit
  190. Sub Button_Click (Index As Integer)
  191.   Select Case Index
  192.     Case 0
  193.        VSindextab1(0).Position = (VSindextab1(0).Position + 1) Mod 4
  194.     Case 1
  195.        VSindextab1(0).Style = (VSindextab1(0).Style + 2) Mod 4
  196.        VSindextab1(0).Refresh
  197.     Case 2
  198.        VSindextab1(0).BackTabColor = QBColor(Rnd * 15)
  199.     Case 3
  200.        VSindextab1(0).ForeColor = QBColor(Rnd * 15)
  201.        VSindextab1(0).Refresh
  202.   End Select
  203. End Sub
  204. Sub Form_Resize ()
  205.   vselastic1.Top = 0
  206. End Sub
  207. Sub VSIndexTab1_GotFocus (Index As Integer)
  208.   button(0).SetFocus
  209. End Sub
  210.