home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / basic / library / vb / 3ctrls / menu.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1993-07-16  |  6.0 KB  |  186 lines
  1. VERSION 2.00
  2. Begin Form fMenu 
  3.    BackColor       =   &H00C0C0C0&
  4.    Caption         =   "Resize me and see buttons size and elastic caption"
  5.    ClientHeight    =   3765
  6.    ClientLeft      =   195
  7.    ClientTop       =   1665
  8.    ClientWidth     =   6450
  9.    Height          =   4230
  10.    Left            =   105
  11.    LinkTopic       =   "Form2"
  12.    ScaleHeight     =   3765
  13.    ScaleWidth      =   6450
  14.    Top             =   1290
  15.    Width           =   6630
  16.    Begin VideoSoftElastic VSElastic1 
  17.       Align           =   5  'Fill Container
  18.       AutoSizeChildren=   0  'None
  19.       BackColor       =   &H00C0C0C0&
  20.       BevelInner      =   3  'Inset
  21.       BevelInnerWidth =   1
  22.       BevelOuter      =   1  'Raised
  23.       BevelOuterWidth =   2
  24.       BorderWidth     =   6
  25.       Caption         =   "Welcome to the VideoSoft Custom Control Library Demo"
  26.       CaptionPos      =   4  'Center Center
  27.       ChildSpacing    =   6
  28.       FloodColor      =   &H000000C0&
  29.       FloodDirection  =   0  'None
  30.       FloodPercent    =   0
  31.       FontBold        =   -1  'True
  32.       FontItalic      =   -1  'True
  33.       FontName        =   "Arial"
  34.       FontSize        =   18
  35.       FontStrikethru  =   0   'False
  36.       FontUnderline   =   0   'False
  37.       ForeColor       =   &H00000080&
  38.       Height          =   3240
  39.       Index           =   0
  40.       Left            =   0
  41.       Splitter        =   0  'No
  42.       TabIndex        =   4
  43.       Top             =   0
  44.       Width           =   3375
  45.    End
  46.    Begin VideoSoftElastic VSElastic1 
  47.       Align           =   4  'Align Right
  48.       AutoSizeChildren=   3  'Even Vertically
  49.       BackColor       =   &H00C0C0C0&
  50.       BevelInner      =   3  'Inset
  51.       BevelInnerWidth =   1
  52.       BevelOuter      =   1  'Raised
  53.       BevelOuterWidth =   2
  54.       BorderWidth     =   6
  55.       Caption         =   ""
  56.       CaptionPos      =   1  'Left Center
  57.       ChildSpacing    =   6
  58.       FloodColor      =   &H000000C0&
  59.       FloodDirection  =   0  'None
  60.       FloodPercent    =   0
  61.       Height          =   3240
  62.       Index           =   1
  63.       Left            =   3375
  64.       Splitter        =   0  'No
  65.       TabIndex        =   6
  66.       Top             =   0
  67.       Width           =   3075
  68.       Begin CommandButton Command1 
  69.          BackColor       =   &H00808080&
  70.          Caption         =   "Elastic - &Splitter bars"
  71.          Height          =   540
  72.          Index           =   0
  73.          Left            =   90
  74.          TabIndex        =   0
  75.          Top             =   720
  76.          Width           =   2895
  77.       End
  78.       Begin CommandButton Command1 
  79.          BackColor       =   &H00808080&
  80.          Caption         =   "Elastic - &Resizing/Flood"
  81.          Height          =   540
  82.          Index           =   1
  83.          Left            =   90
  84.          TabIndex        =   1
  85.          Top             =   1350
  86.          Width           =   2895
  87.       End
  88.       Begin CommandButton Command1 
  89.          BackColor       =   &H00808080&
  90.          Caption         =   "&IndexTab"
  91.          Height          =   540
  92.          Index           =   2
  93.          Left            =   90
  94.          TabIndex        =   2
  95.          Top             =   1980
  96.          Width           =   2895
  97.       End
  98.       Begin CommandButton Command1 
  99.          BackColor       =   &H00808080&
  100.          Caption         =   "&AWKsome"
  101.          Height          =   540
  102.          Index           =   3
  103.          Left            =   90
  104.          TabIndex        =   3
  105.          Top             =   2610
  106.          Width           =   2895
  107.       End
  108.       Begin VideoSoftElastic VSElastic2 
  109.          Align           =   0  'None
  110.          AutoSizeChildren=   0  'None
  111.          BackColor       =   &H00000000&
  112.          BevelInner      =   3  'Inset
  113.          BevelInnerWidth =   1
  114.          BevelOuter      =   2  'Raised Outlined
  115.          BevelOuterWidth =   2
  116.          BorderWidth     =   0
  117.          Caption         =   "Examples"
  118.          CaptionPos      =   4  'Center Center
  119.          ChildSpacing    =   6
  120.          FloodColor      =   &H000000C0&
  121.          FloodDirection  =   0  'None
  122.          FloodPercent    =   0
  123.          FontBold        =   -1  'True
  124.          FontItalic      =   -1  'True
  125.          FontName        =   "Arial"
  126.          FontSize        =   18
  127.          FontStrikethru  =   0   'False
  128.          FontUnderline   =   0   'False
  129.          ForeColor       =   &H0000FFFF&
  130.          Height          =   540
  131.          Left            =   90
  132.          Splitter        =   0  'No
  133.          TabIndex        =   7
  134.          Top             =   90
  135.          Width           =   2895
  136.       End
  137.    End
  138.    Begin VideoSoftElastic StatusBar 
  139.       Align           =   2  'Align Bottom
  140.       AutoSizeChildren=   2  'Uneven Horizontally
  141.       BackColor       =   &H00C0C0C0&
  142.       BevelInner      =   0  'None
  143.       BevelInnerWidth =   1
  144.       BevelOuter      =   2  'Raised Outlined
  145.       BevelOuterWidth =   2
  146.       BorderWidth     =   2
  147.       Caption         =   "VideoSoft, 2625 Alcatraz Avenue, Suite 271, Berkeley, California (510) 547-7295"
  148.       CaptionPos      =   4  'Center Center
  149.       ChildSpacing    =   6
  150.       FloodColor      =   &H000000C0&
  151.       FloodDirection  =   0  'None
  152.       FloodPercent    =   0
  153.       FontBold        =   0   'False
  154.       FontItalic      =   0   'False
  155.       FontName        =   "MS Sans Serif"
  156.       FontSize        =   8.25
  157.       FontStrikethru  =   0   'False
  158.       FontUnderline   =   0   'False
  159.       ForeColor       =   &H00000000&
  160.       Height          =   525
  161.       Left            =   0
  162.       Splitter        =   0  'No
  163.       TabIndex        =   5
  164.       Top             =   3240
  165.       Width           =   6450
  166.    End
  167. Option Explicit
  168. Sub Command1_Click (Index As Integer)
  169.   mousepointer = 11
  170.   Select Case Index
  171.     Case 0
  172.       Splitter.Show 1
  173.     Case 1
  174.       fFlood.Show 1
  175.     Case 2
  176.       IndexTab.Show 1
  177.     Case 3
  178.       Awk.Show 1
  179.   End Select
  180.   mousepointer = 0
  181. End Sub
  182. Sub Form_Resize ()
  183.   ' to wake up the elastic
  184.   StatusBar.Top = 0
  185. End Sub
  186.