home *** CD-ROM | disk | FTP | other *** search
/ QBasic & Borland Pascal & C / Delphi5.iso / Basic / Samples / 3CTRLS / 3CTRLS.ZIP / MENU.FRM (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1993-10-05  |  7.2 KB  |  224 lines
  1. VERSION 2.00
  2. Begin Form fMenu 
  3.    BackColor       =   &H00C0C0C0&
  4.    Caption         =   "Resize me and see buttons size and elastic caption"
  5.    Height          =   4035
  6.    Left            =   90
  7.    LinkTopic       =   "Form2"
  8.    ScaleHeight     =   3570
  9.    ScaleWidth      =   7440
  10.    Top             =   1320
  11.    Width           =   7620
  12.    Begin VideoSoftElastic VSElastic1 
  13.       Align           =   5  'Fill Container
  14.       BackColor       =   &H00C0C0C0&
  15.       BevelOuter      =   1  'Raised
  16.       BevelOuterWidth =   1
  17.       Caption         =   "Welcome to the VSVBX Demo"
  18.       CaptionPos      =   4  'Center Center
  19.       FontBold        =   -1  'True
  20.       FontItalic      =   -1  'True
  21.       FontName        =   "Arial"
  22.       FontSize        =   18
  23.       FontStrikethru  =   0   'False
  24.       FontUnderline   =   0   'False
  25.       ForeColor       =   &H000000FF&
  26.       Height          =   3045
  27.       Index           =   0
  28.       Left            =   0
  29.       TabIndex        =   4
  30.       Top             =   0
  31.       Width           =   3300
  32.    End
  33.    Begin VideoSoftElastic VSElastic1 
  34.       Align           =   4  'Align Right
  35.       AutoSizeChildren=   3  'Even Vertical
  36.       BackColor       =   &H00C0C0C0&
  37.       BevelOuter      =   1  'Raised
  38.       BevelOuterWidth =   1
  39.       Height          =   3045
  40.       Index           =   1
  41.       Left            =   3300
  42.       TabIndex        =   6
  43.       Top             =   0
  44.       Width           =   2070
  45.       Begin CommandButton Command1 
  46.          BackColor       =   &H00808080&
  47.          Caption         =   "&Splitter bars"
  48.          Height          =   510
  49.          Index           =   0
  50.          Left            =   90
  51.          TabIndex        =   0
  52.          Top             =   690
  53.          Width           =   1890
  54.       End
  55.       Begin CommandButton Command1 
  56.          BackColor       =   &H00808080&
  57.          Caption         =   "&Resizing/Flood"
  58.          Height          =   495
  59.          Index           =   1
  60.          Left            =   90
  61.          TabIndex        =   1
  62.          Top             =   1290
  63.          Width           =   1890
  64.       End
  65.       Begin CommandButton Command1 
  66.          BackColor       =   &H00808080&
  67.          Caption         =   "&IndexTab"
  68.          Height          =   495
  69.          Index           =   2
  70.          Left            =   90
  71.          TabIndex        =   2
  72.          Top             =   1875
  73.          Width           =   1890
  74.       End
  75.       Begin CommandButton Command1 
  76.          BackColor       =   &H00808080&
  77.          Caption         =   "&AWKsome"
  78.          Height          =   495
  79.          Index           =   3
  80.          Left            =   90
  81.          TabIndex        =   3
  82.          Top             =   2460
  83.          Width           =   1890
  84.       End
  85.       Begin VideoSoftElastic VSElastic2 
  86.          BackColor       =   &H00000000&
  87.          BorderWidth     =   0
  88.          Caption         =   "Examples"
  89.          CaptionPos      =   4  'Center Center
  90.          FontBold        =   -1  'True
  91.          FontItalic      =   -1  'True
  92.          FontName        =   "Arial"
  93.          FontSize        =   18
  94.          FontStrikethru  =   0   'False
  95.          FontUnderline   =   0   'False
  96.          ForeColor       =   &H0000FFFF&
  97.          Height          =   510
  98.          Index           =   0
  99.          Left            =   90
  100.          TabIndex        =   7
  101.          Top             =   90
  102.          Width           =   1890
  103.       End
  104.    End
  105.    Begin VideoSoftElastic VSElastic1 
  106.       Align           =   4  'Align Right
  107.       AutoSizeChildren=   3  'Even Vertical
  108.       BackColor       =   &H00C0C0C0&
  109.       BevelOuter      =   1  'Raised
  110.       BevelOuterWidth =   1
  111.       Height          =   3045
  112.       Index           =   2
  113.       Left            =   5370
  114.       TabIndex        =   8
  115.       Top             =   0
  116.       Width           =   2070
  117.       Begin VideoSoftElastic VSElastic2 
  118.          BackColor       =   &H00000000&
  119.          BorderWidth     =   0
  120.          Caption         =   "New"
  121.          CaptionPos      =   4  'Center Center
  122.          FontBold        =   -1  'True
  123.          FontItalic      =   -1  'True
  124.          FontName        =   "Arial"
  125.          FontSize        =   18
  126.          FontStrikethru  =   0   'False
  127.          FontUnderline   =   0   'False
  128.          ForeColor       =   &H00FFFF00&
  129.          Height          =   510
  130.          Index           =   1
  131.          Left            =   90
  132.          TabIndex        =   13
  133.          Top             =   90
  134.          Width           =   1890
  135.       End
  136.       Begin CommandButton Command1 
  137.          BackColor       =   &H00808080&
  138.          Caption         =   "&Fake Buttons"
  139.          Height          =   495
  140.          Index           =   7
  141.          Left            =   90
  142.          TabIndex        =   12
  143.          Top             =   2460
  144.          Width           =   1890
  145.       End
  146.       Begin CommandButton Command1 
  147.          BackColor       =   &H00808080&
  148.          Caption         =   "&Min && Max"
  149.          Height          =   495
  150.          Index           =   6
  151.          Left            =   90
  152.          TabIndex        =   11
  153.          Top             =   1875
  154.          Width           =   1890
  155.       End
  156.       Begin CommandButton Command1 
  157.          BackColor       =   &H00808080&
  158.          Caption         =   "&No Labels"
  159.          Height          =   495
  160.          Index           =   5
  161.          Left            =   90
  162.          TabIndex        =   10
  163.          Top             =   1290
  164.          Width           =   1890
  165.       End
  166.       Begin CommandButton Command1 
  167.          BackColor       =   &H00808080&
  168.          Caption         =   "&Proportional"
  169.          Height          =   510
  170.          Index           =   4
  171.          Left            =   90
  172.          TabIndex        =   9
  173.          Top             =   690
  174.          Width           =   1890
  175.       End
  176.    End
  177.    Begin VideoSoftElastic StatusBar 
  178.       Align           =   2  'Align Bottom
  179.       AutoSizeChildren=   2  'Uneven Horizontal
  180.       BackColor       =   &H00C0C0C0&
  181.       BevelInner      =   0  'None
  182.       BevelOuter      =   1  'Raised
  183.       BevelOuterWidth =   1
  184.       BorderWidth     =   2
  185.       Caption         =   "VideoSoft, 2625 Alcatraz Avenue, Suite 271, Berkeley, California (510) 547-7295"
  186.       CaptionPos      =   4  'Center Center
  187.       FontBold        =   0   'False
  188.       FontItalic      =   0   'False
  189.       FontName        =   "MS Sans Serif"
  190.       FontSize        =   8.25
  191.       FontStrikethru  =   0   'False
  192.       FontUnderline   =   0   'False
  193.       ForeColor       =   &H00000000&
  194.       Height          =   525
  195.       Left            =   0
  196.       TabIndex        =   5
  197.       Top             =   3045
  198.       Width           =   7440
  199.       WordWrap        =   0   'False
  200.    End
  201. Option Explicit
  202. Sub Command1_Click (Index As Integer)
  203.   mousepointer = 11
  204.   Select Case Index
  205.     Case 0
  206.       Splitter.Show 1
  207.     Case 1
  208.       fFlood.Show 1
  209.     Case 2
  210.       IndexTab.Show 1
  211.     Case 3
  212.       Awk.Show 1
  213.     Case 4
  214.       fProp.Show 1
  215.     Case 5
  216.       fNoLabels.Show 1
  217.     Case 6
  218.       fminmax.Show 1
  219.     Case 7
  220.       fbuttons.Show 1
  221.   End Select
  222.   mousepointer = 0
  223. End Sub
  224.