home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic 4 Unleashed / Visual_Basic_4_Unleashed_SAMS_Publishing_1995.iso / truegrid / disk1 / vsdemo / vsdemo.$ / FDIALOG.FRM (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1995-01-05  |  6.4 KB  |  181 lines
  1. VERSION 2.00
  2. Begin Form fDialog 
  3.    BackColor       =   &H00C0C0C0&
  4.    Caption         =   "Multiple Metaphors"
  5.    ClientHeight    =   4260
  6.    ClientLeft      =   1245
  7.    ClientTop       =   1620
  8.    ClientWidth     =   7485
  9.    Height          =   4725
  10.    Left            =   1155
  11.    LinkTopic       =   "Form1"
  12.    ScaleHeight     =   4260
  13.    ScaleWidth      =   7485
  14.    Top             =   1245
  15.    Width           =   7665
  16.    Begin VideoSoftElastic VSElastic1 
  17.       Align           =   5  'Fill Container
  18.       AutoSizeChildren=   7  'Proportional (Locks Controls)
  19.       BevelChildren   =   2  'No Elastics
  20.       BevelInner      =   0  'None
  21.       BevelOuter      =   1  'Raised
  22.       BevelOuterWidth =   1
  23.       ConvInfo        =   FDIALOG.FRX:0000
  24.       Height          =   4260
  25.       IntBkg          =   &H00C0C0C0&
  26.       Left            =   0
  27.       TabIndex        =   0
  28.       Top             =   0
  29.       Width           =   7485
  30.       Begin ListBox List1 
  31.          FontBold        =   0   'False
  32.          FontItalic      =   0   'False
  33.          FontName        =   "MS Sans Serif"
  34.          FontSize        =   8.25
  35.          FontStrikethru  =   0   'False
  36.          FontUnderline   =   0   'False
  37.          Height          =   2760
  38.          Left            =   315
  39.          TabIndex        =   5
  40.          Top             =   1050
  41.          Width           =   1800
  42.       End
  43.       Begin VideoSoftElastic VSElastic2 
  44.          BevelInner      =   0  'None
  45.          BevelOuter      =   9  'Inset New Look
  46.          BevelOuterWidth =   1
  47.          ConvInfo        =   FDIALOG.FRX:000B
  48.          Height          =   435
  49.          IntBkg          =   &H00C0C0C0&
  50.          Left            =   2415
  51.          TabIndex        =   2
  52.          Top             =   210
  53.          Width           =   4425
  54.          Begin OptionButton Option1 
  55.             BackColor       =   &H00C0C0C0&
  56.             Caption         =   "Dynamic Dialog"
  57.             FontBold        =   0   'False
  58.             FontItalic      =   0   'False
  59.             FontName        =   "MS Sans Serif"
  60.             FontSize        =   8.25
  61.             FontStrikethru  =   0   'False
  62.             FontUnderline   =   0   'False
  63.             Height          =   225
  64.             Index           =   1
  65.             Left            =   1575
  66.             TabIndex        =   4
  67.             Top             =   105
  68.             Width           =   2115
  69.          End
  70.          Begin OptionButton Option1 
  71.             BackColor       =   &H00C0C0C0&
  72.             Caption         =   "IndexTab"
  73.             FontBold        =   0   'False
  74.             FontItalic      =   0   'False
  75.             FontName        =   "MS Sans Serif"
  76.             FontSize        =   8.25
  77.             FontStrikethru  =   0   'False
  78.             FontUnderline   =   0   'False
  79.             Height          =   225
  80.             Index           =   0
  81.             Left            =   210
  82.             TabIndex        =   3
  83.             Top             =   105
  84.             Value           =   -1  'True
  85.             Width           =   1065
  86.          End
  87.       End
  88.       Begin VideoSoftIndexTab VSIndexTab1 
  89.          BackSheets      =   0  'None
  90.          BorderWidth     =   20
  91.          Caption         =   "Yellow|Green|Blue"
  92.          ConvInfo        =   FDIALOG.FRX:0016
  93.          FontBold        =   0   'False
  94.          FontItalic      =   0   'False
  95.          FontName        =   "MS Sans Serif"
  96.          FontSize        =   8.25
  97.          FontStrikethru  =   0   'False
  98.          FontUnderline   =   0   'False
  99.          FrontTabColor   =   &H00C0C0C0&
  100.          Height          =   2850
  101.          Left            =   2415
  102.          New3D           =   -1  'True
  103.          Position        =   0  'Top
  104.          Style           =   9  'CutCorner 3D
  105.          TabIndex        =   1
  106.          Top             =   1050
  107.          Width           =   4425
  108.          Begin VideoSoftElastic VSElastic5 
  109.             AutoSizeChildren=   1  'Even Horizontal
  110.             BackColor       =   &H0080FF80&
  111.             BevelOuter      =   8  'Raised New Look
  112.             BorderWidth     =   20
  113.             ConvInfo        =   FDIALOG.FRX:0021
  114.             Height          =   1905
  115.             IntBkg          =   &H0080FF80&
  116.             Left            =   10155
  117.             TabIndex        =   8
  118.             Top             =   615
  119.             Width           =   3765
  120.          End
  121.          Begin VideoSoftElastic VSElastic4 
  122.             BackColor       =   &H00FFFF80&
  123.             BevelOuter      =   8  'Raised New Look
  124.             ConvInfo        =   FDIALOG.FRX:002C
  125.             Height          =   1905
  126.             IntBkg          =   &H00FFFF80&
  127.             Left            =   10230
  128.             TabIndex        =   7
  129.             Top             =   615
  130.             Width           =   3765
  131.          End
  132.          Begin VideoSoftElastic VSElastic3 
  133.             AutoSizeChildren=   1  'Even Horizontal
  134.             BackColor       =   &H0080FFFF&
  135.             BevelOuter      =   8  'Raised New Look
  136.             BorderWidth     =   20
  137.             ConvInfo        =   FDIALOG.FRX:0037
  138.             Height          =   1905
  139.             IntBkg          =   &H0080FFFF&
  140.             Left            =   330
  141.             TabIndex        =   6
  142.             Top             =   615
  143.             Width           =   3765
  144.          End
  145.       End
  146.       Begin Label Label1 
  147.          BackStyle       =   0  'Transparent
  148.          Caption         =   "Drive the IndexTab from another control"
  149.          FontBold        =   -1  'True
  150.          FontItalic      =   0   'False
  151.          FontName        =   "MS Sans Serif"
  152.          FontSize        =   9.75
  153.          FontStrikethru  =   0   'False
  154.          FontUnderline   =   0   'False
  155.          Height          =   750
  156.          Left            =   315
  157.          TabIndex        =   9
  158.          Top             =   195
  159.          Visible         =   0   'False
  160.          Width           =   1740
  161.       End
  162.    End
  163. Option Explicit
  164. Sub Form_Load ()
  165.   ' Make list invisible
  166.   List1.Visible = False
  167.   Dim i%
  168.   For i = 0 To vsIndexTab1.NumTabs - 1
  169.     List1.AddItem vsIndexTab1.TabCaption(i)
  170.   Next i
  171. End Sub
  172. Sub List1_Click ()
  173.   vsIndexTab1.CurrTab = List1.ListIndex
  174. End Sub
  175. Sub Option1_Click (Index As Integer)
  176.     List1.Visible = Not List1.Visible
  177.     Label1.Visible = Not Label1.Visible
  178.     List1.ListIndex = vsIndexTab1.CurrTab
  179.     vsIndexTab1.TabHeight = Index
  180. End Sub
  181.