home *** CD-ROM | disk | FTP | other *** search
/ QBasic & Borland Pascal & C / Delphi5.iso / Basic / Samples / 3CTRLS / 3CTRLS.ZIP / FNOLABEL.FRM (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1993-10-05  |  3.4 KB  |  107 lines
  1. VERSION 2.00
  2. Begin Form fNolabels 
  3.    Caption         =   "There are no labels on this form"
  4.    Height          =   2520
  5.    Left            =   1155
  6.    LinkTopic       =   "Form2"
  7.    ScaleHeight     =   2055
  8.    ScaleWidth      =   5475
  9.    Top             =   1230
  10.    Width           =   5655
  11.    Begin VideoSoftElastic VSElastic1 
  12.       AccessKey       =   -1  'True
  13.       Align           =   5  'Fill Container
  14.       AutoSizeChildren=   3  'Even Vertical
  15.       BackColor       =   &H00C0C0C0&
  16.       BevelOuter      =   1  'Raised
  17.       BevelOuterWidth =   1
  18.       Height          =   1455
  19.       Left            =   0
  20.       TabIndex        =   0
  21.       TagWidth        =   1500
  22.       Top             =   0
  23.       Width           =   5475
  24.       Begin TextBox Text3 
  25.          Height          =   360
  26.          Left            =   1590
  27.          TabIndex        =   3
  28.          Tag             =   "&Company"
  29.          Text            =   "Text3"
  30.          Top             =   1005
  31.          Width           =   3795
  32.       End
  33.       Begin TextBox Text2 
  34.          Height          =   360
  35.          Left            =   1590
  36.          TabIndex        =   2
  37.          Tag             =   "&Last Name"
  38.          Text            =   "Text2"
  39.          Top             =   555
  40.          Width           =   3795
  41.       End
  42.       Begin TextBox Text1 
  43.          Height          =   375
  44.          Left            =   1590
  45.          TabIndex        =   1
  46.          Tag             =   "&First Name"
  47.          Text            =   "Text1"
  48.          Top             =   90
  49.          Width           =   3795
  50.       End
  51.    End
  52.    Begin VideoSoftElastic VSElastic2 
  53.       Align           =   2  'Align Bottom
  54.       AutoSizeChildren=   1  'Even Horizontal
  55.       BackColor       =   &H00C0C0C0&
  56.       BevelOuter      =   1  'Raised
  57.       BevelOuterWidth =   1
  58.       Height          =   600
  59.       Left            =   0
  60.       TabIndex        =   4
  61.       Top             =   1455
  62.       Width           =   5475
  63.       Begin CommandButton Command1 
  64.          BackColor       =   &H00C0C0C0&
  65.          Caption         =   "&Hint"
  66.          Height          =   420
  67.          Index           =   2
  68.          Left            =   3690
  69.          TabIndex        =   7
  70.          Top             =   90
  71.          Width           =   1695
  72.       End
  73.       Begin CommandButton Command1 
  74.          BackColor       =   &H00C0C0C0&
  75.          Caption         =   "F&oreColor"
  76.          Height          =   420
  77.          Index           =   1
  78.          Left            =   1890
  79.          TabIndex        =   6
  80.          Top             =   90
  81.          Width           =   1710
  82.       End
  83.       Begin CommandButton Command1 
  84.          BackColor       =   &H00C0C0C0&
  85.          Caption         =   "Caption&Pos"
  86.          Height          =   420
  87.          Index           =   0
  88.          Left            =   90
  89.          TabIndex        =   5
  90.          Top             =   90
  91.          Width           =   1710
  92.       End
  93.    End
  94. Option Explicit
  95. Sub Command1_Click (Index As Integer)
  96.   Select Case Index
  97.     Case 0  'Change Caption Positions
  98.       VSelastic1.CaptionPos = (VSelastic1.CaptionPos + 1) Mod 9
  99.       
  100.     Case 1  'Change to random colors
  101.       VSelastic1.ForeColor = QBColor(Rnd * 15)
  102.       
  103.     Case 2
  104.       MsgBox "Check the Tag property of the text boxes and the TagWidth property of the Elastic"
  105.   End Select
  106. End Sub
  107.