home *** CD-ROM | disk | FTP | other *** search
/ QBasic & Borland Pascal & C / Delphi5.iso / Basic / Samples / 3CTRLS / 3CTRLS.ZIP / THREED.FRM (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1993-09-23  |  3.6 KB  |  113 lines
  1. VERSION 2.00
  2. Begin Form ThreeD 
  3.    Caption         =   "Full control of 3D Effect"
  4.    Height          =   2760
  5.    Left            =   1155
  6.    LinkTopic       =   "Form4"
  7.    ScaleHeight     =   2295
  8.    ScaleWidth      =   6120
  9.    Top             =   1230
  10.    Width           =   6300
  11.    Begin VideoSoftElastic VSElastic1 
  12.       Align           =   5  'Fill Container
  13.       AutoSizeChildren=   7  'Proportional
  14.       BackColor       =   &H00C0C0C0&
  15.       Height          =   1740
  16.       Left            =   0
  17.       TabIndex        =   0
  18.       Top             =   0
  19.       Width           =   6120
  20.       Begin CommandButton Command1 
  21.          BackColor       =   &H00C0C0C0&
  22.          Caption         =   "Command1"
  23.          Height          =   420
  24.          Left            =   3690
  25.          TabIndex        =   4
  26.          Top             =   945
  27.          Width           =   2040
  28.       End
  29.       Begin VideoSoftElastic VSElastic2 
  30.          BackColor       =   &H00C0C0C0&
  31.          Caption         =   "Elastic"
  32.          CaptionPos      =   4  'Center Center
  33.          Height          =   420
  34.          Left            =   270
  35.          TabIndex        =   3
  36.          Top             =   900
  37.          Width           =   2130
  38.       End
  39.       Begin Label Label2 
  40.          BackStyle       =   0  'Transparent
  41.          Caption         =   "Label2  Transparent"
  42.          Height          =   510
  43.          Left            =   3690
  44.          TabIndex        =   2
  45.          Top             =   270
  46.          Width           =   2040
  47.       End
  48.       Begin Label Label1 
  49.          BackColor       =   &H000000FF&
  50.          Caption         =   "Label1 Opaque"
  51.          Height          =   510
  52.          Left            =   270
  53.          TabIndex        =   1
  54.          Top             =   270
  55.          Width           =   2130
  56.       End
  57.    End
  58.    Begin VideoSoftElastic VSElastic3 
  59.       Align           =   2  'Align Bottom
  60.       AutoSizeChildren=   1  'Even Horizontal
  61.       BackColor       =   &H00C0C0C0&
  62.       BevelOuter      =   1  'Raised
  63.       Height          =   555
  64.       Left            =   0
  65.       TabIndex        =   5
  66.       Top             =   1740
  67.       Width           =   6120
  68.       Begin CommandButton Button 
  69.          BackColor       =   &H00C0C0C0&
  70.          Caption         =   "&No Grap/Elast."
  71.          Height          =   375
  72.          Index           =   3
  73.          Left            =   4620
  74.          TabIndex        =   9
  75.          Top             =   90
  76.          Width           =   1410
  77.       End
  78.       Begin CommandButton Button 
  79.          BackColor       =   &H00C0C0C0&
  80.          Caption         =   "No &Elastics"
  81.          Height          =   375
  82.          Index           =   2
  83.          Left            =   3120
  84.          TabIndex        =   8
  85.          Top             =   90
  86.          Width           =   1410
  87.       End
  88.       Begin CommandButton Button 
  89.          BackColor       =   &H00C0C0C0&
  90.          Caption         =   "No &Graphicals"
  91.          Height          =   375
  92.          Index           =   1
  93.          Left            =   1605
  94.          TabIndex        =   7
  95.          Top             =   90
  96.          Width           =   1425
  97.       End
  98.       Begin CommandButton Button 
  99.          BackColor       =   &H00C0C0C0&
  100.          Caption         =   "&All"
  101.          Height          =   375
  102.          Index           =   0
  103.          Left            =   90
  104.          TabIndex        =   6
  105.          Top             =   90
  106.          Width           =   1425
  107.       End
  108.    End
  109. Option Explicit
  110. Sub Button_Click (Index As Integer)
  111.   VSElastic1.BevelChildren = Index
  112. End Sub
  113.