home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / VISUAL_B / CODIGO_1 / 3CTRLS / MENU.FRM (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1994-07-01  |  7.6 KB  |  241 lines
  1. VERSION 2.00
  2. Begin Form fMenu 
  3.    BackColor       =   &H00C0C0C0&
  4.    Caption         =   "Resize me!"
  5.    ClientHeight    =   4170
  6.    ClientLeft      =   330
  7.    ClientTop       =   1560
  8.    ClientWidth     =   8160
  9.    Height          =   4635
  10.    Left            =   240
  11.    LinkTopic       =   "Form2"
  12.    ScaleHeight     =   4170
  13.    ScaleWidth      =   8160
  14.    Top             =   1185
  15.    Width           =   8340
  16.    Begin VideoSoftElastic VSElastic1 
  17.       Align           =   5  'Fill Container
  18.       AutoSizeChildren=   4  'Uneven Vertical
  19.       BackColor       =   &H00C0C0C0&
  20.       BevelInner      =   0  'None
  21.       BevelInnerWidth =   4
  22.       BevelOuter      =   0  'None
  23.       BevelOuterWidth =   3
  24.       BorderWidth     =   12
  25.       CaptionPos      =   4  'Center Center
  26.       ChildSpacing    =   12
  27.       FontBold        =   -1  'True
  28.       FontItalic      =   -1  'True
  29.       FontName        =   "Arial"
  30.       FontSize        =   18
  31.       FontStrikethru  =   0   'False
  32.       FontUnderline   =   0   'False
  33.       ForeColor       =   &H0000FFFF&
  34.       Height          =   3645
  35.       Index           =   0
  36.       IntBkg          =   &H00C0C0C0&
  37.       Left            =   2070
  38.       TabIndex        =   4
  39.       Top             =   0
  40.       Width           =   4020
  41.       Begin VideoSoftElastic TabPage 
  42.          BackColor       =   &H00C0C0C0&
  43.          BevelInnerWidth =   0
  44.          BevelOuter      =   6  'Groove
  45.          BorderWidth     =   4
  46.          Caption         =   "Welcome to VSVBX 4.0 Demo"
  47.          CaptionPos      =   4  'Center Center
  48.          FontBold        =   -1  'True
  49.          FontItalic      =   -1  'True
  50.          FontName        =   "Arial"
  51.          FontSize        =   18
  52.          FontStrikethru  =   0   'False
  53.          FontUnderline   =   0   'False
  54.          ForeColor       =   &H00800000&
  55.          Height          =   3285
  56.          IntBkg          =   &H00C0C0C0&
  57.          Left            =   180
  58.          ShadowColor     =   &H00404040&
  59.          TabIndex        =   12
  60.          Top             =   180
  61.          Width           =   3660
  62.       End
  63.    End
  64.    Begin VideoSoftElastic VSElastic1 
  65.       Align           =   3  'Align Left
  66.       AutoSizeChildren=   3  'Even Vertical
  67.       BackColor       =   &H00C0C0C0&
  68.       BevelInner      =   7  'Shadow
  69.       BevelInnerWidth =   3
  70.       BevelOuter      =   0  'None
  71.       BevelOuterWidth =   1
  72.       BorderWidth     =   12
  73.       ChildSpacing    =   8
  74.       Height          =   3645
  75.       Index           =   1
  76.       IntBkg          =   &H00C0C0C0&
  77.       Left            =   0
  78.       ShadowColor     =   &H00404040&
  79.       TabIndex        =   6
  80.       Top             =   0
  81.       Width           =   2070
  82.       Begin CommandButton Command1 
  83.          BackColor       =   &H00808080&
  84.          Caption         =   "&Splitter bars"
  85.          Height          =   735
  86.          Index           =   0
  87.          Left            =   180
  88.          TabIndex        =   0
  89.          Top             =   180
  90.          Width           =   1710
  91.       End
  92.       Begin CommandButton Command1 
  93.          BackColor       =   &H00808080&
  94.          Caption         =   "&Resizing/Flood"
  95.          Height          =   735
  96.          Index           =   1
  97.          Left            =   180
  98.          TabIndex        =   1
  99.          Top             =   1035
  100.          Width           =   1710
  101.       End
  102.       Begin CommandButton Command1 
  103.          BackColor       =   &H00808080&
  104.          Caption         =   "&IndexTab"
  105.          Height          =   735
  106.          Index           =   2
  107.          Left            =   180
  108.          TabIndex        =   2
  109.          Top             =   1890
  110.          Width           =   1710
  111.       End
  112.       Begin CommandButton Command1 
  113.          BackColor       =   &H00808080&
  114.          Caption         =   "&AWK Formulas"
  115.          Height          =   720
  116.          Index           =   3
  117.          Left            =   180
  118.          TabIndex        =   3
  119.          Top             =   2745
  120.          Width           =   1710
  121.       End
  122.    End
  123.    Begin VideoSoftElastic VSElastic1 
  124.       Align           =   4  'Align Right
  125.       AutoSizeChildren=   3  'Even Vertical
  126.       BackColor       =   &H00C0C0C0&
  127.       BevelInner      =   7  'Shadow
  128.       BevelInnerWidth =   3
  129.       BevelOuter      =   0  'None
  130.       BevelOuterWidth =   1
  131.       BorderWidth     =   12
  132.       ChildSpacing    =   8
  133.       Height          =   3645
  134.       Index           =   2
  135.       IntBkg          =   &H00C0C0C0&
  136.       Left            =   6090
  137.       ShadowColor     =   &H00404040&
  138.       TabIndex        =   7
  139.       Top             =   0
  140.       Width           =   2070
  141.       Begin CommandButton Command1 
  142.          BackColor       =   &H00808080&
  143.          Caption         =   "&Fake Buttons"
  144.          Height          =   720
  145.          Index           =   7
  146.          Left            =   180
  147.          TabIndex        =   11
  148.          Top             =   2745
  149.          Width           =   1710
  150.       End
  151.       Begin CommandButton Command1 
  152.          BackColor       =   &H00808080&
  153.          Caption         =   "&MultiTabs"
  154.          Height          =   735
  155.          Index           =   6
  156.          Left            =   180
  157.          TabIndex        =   10
  158.          Top             =   1890
  159.          Width           =   1710
  160.       End
  161.       Begin CommandButton Command1 
  162.          BackColor       =   &H00808080&
  163.          Caption         =   "&No Labels"
  164.          Height          =   735
  165.          Index           =   5
  166.          Left            =   180
  167.          TabIndex        =   9
  168.          Top             =   1035
  169.          Width           =   1710
  170.       End
  171.       Begin CommandButton Command1 
  172.          BackColor       =   &H00808080&
  173.          Caption         =   "&Proportional"
  174.          Height          =   735
  175.          Index           =   4
  176.          Left            =   180
  177.          TabIndex        =   8
  178.          Top             =   180
  179.          Width           =   1710
  180.       End
  181.    End
  182.    Begin VideoSoftElastic StatusBar 
  183.       Align           =   2  'Align Bottom
  184.       BackColor       =   &H00C0C0C0&
  185.       BevelInner      =   0  'None
  186.       BevelOuter      =   1  'Raised
  187.       BevelOuterWidth =   1
  188.       BorderWidth     =   2
  189.       Caption         =   "VideoSoft, 2625 Alcatraz Avenue, Suite 271, Berkeley, California (510) 547-7295"
  190.       CaptionPos      =   4  'Center Center
  191.       FontBold        =   0   'False
  192.       FontItalic      =   0   'False
  193.       FontName        =   "MS Sans Serif"
  194.       FontSize        =   8.25
  195.       FontStrikethru  =   0   'False
  196.       FontUnderline   =   0   'False
  197.       Height          =   525
  198.       IntBkg          =   &H00C0C0C0&
  199.       Left            =   0
  200.       TabIndex        =   5
  201.       Top             =   3645
  202.       Width           =   8160
  203.       WordWrap        =   0   'False
  204.    End
  205. Option Explicit
  206. Sub Command1_Click (Index As Integer)
  207.   mousepointer = 11
  208.   Select Case Index
  209.     Case 0
  210.       Splitter.Show 1
  211.     Case 1
  212.       fFlood.Show 1
  213.     Case 2
  214.       IndexTab.Show 1
  215.     Case 3
  216.       calculator.Show 1
  217.     Case 4
  218.       fProp.Show 1
  219.     Case 5
  220.       fnolabels.Show 1
  221.     Case 6
  222.       fMultiTabs.Show 1
  223.     Case 7
  224.       fbuttons.Show 1
  225.   End Select
  226.   mousepointer = 0
  227. End Sub
  228. Sub Form_Load ()
  229.   'Resolution independence
  230.   'Place form on lower part of the screen
  231.   Me.Move 0, screen.Height * .25
  232.   Me.Width = screen.Width
  233.   Me.Height = screen.Height * .75
  234.   'Check Version
  235.   On Error Resume Next
  236.   If VSElastic1(0).Version > 4 Then MsgBox "An older version of VideoSoft VSVBX is loaded in your system.  This demo may not work properly."
  237. End Sub
  238. Sub Form_Resize ()
  239.   'no code
  240. End Sub
  241.