home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 10 / 10.iso / l / l407 / 1.ddi / WORDWRAP.FR_ / WORDWRAP.bin (.txt)
Encoding:
Visual Basic Form  |  1993-04-28  |  2.0 KB  |  71 lines
  1. VERSION 2.00
  2. Begin Form frmWordWrap 
  3.    Caption         =   "WordWrap and Autosize"
  4.    Height          =   4740
  5.    Left            =   1650
  6.    LinkTopic       =   "Form1"
  7.    ScaleHeight     =   4335
  8.    ScaleWidth      =   6000
  9.    Top             =   1395
  10.    Visible         =   0   'False
  11.    Width           =   6120
  12.    Begin CheckBox chkAutoSize 
  13.       Caption         =   "&AutoSize"
  14.       Height          =   495
  15.       Left            =   3840
  16.       TabIndex        =   4
  17.       Top             =   1560
  18.       Width           =   1215
  19.    End
  20.    Begin CheckBox chkWordWrap 
  21.       Caption         =   "&WordWrap"
  22.       Height          =   495
  23.       Left            =   3840
  24.       TabIndex        =   3
  25.       Top             =   2040
  26.       Width           =   1215
  27.    End
  28.    Begin CommandButton cmdClose 
  29.       Caption         =   "&Close"
  30.       Height          =   495
  31.       Left            =   3360
  32.       TabIndex        =   1
  33.       Top             =   3360
  34.       Width           =   1215
  35.    End
  36.    Begin CommandButton cmdDisplay 
  37.       Caption         =   "&Display"
  38.       Default         =   -1  'True
  39.       Height          =   495
  40.       Left            =   1440
  41.       TabIndex        =   0
  42.       Top             =   3360
  43.       Width           =   1215
  44.    End
  45.    Begin Label lblDisplay 
  46.       BorderStyle     =   1  'Fixed Single
  47.       Caption         =   "A demonstration of the AutoSize and WordWrap properties."
  48.       Height          =   255
  49.       Left            =   480
  50.       TabIndex        =   2
  51.       Top             =   720
  52.       Width           =   1695
  53.    End
  54. Sub cmdClose_Click ()
  55.    Unload Me    ' Unload this form.
  56. End Sub
  57. Sub cmdDisplay_Click ()
  58. ' Reset the example
  59.     lblDisplay.AutoSize = False
  60.     lblDisplay.WordWrap = False
  61.     lblDisplay.Width = 1695
  62.     lblDisplay.Height = 255
  63. ' Check for WordWrap and Autosize
  64.     If chkWordWrap.Value = 1 Then
  65.         lblDisplay.WordWrap = True
  66.     End If
  67.     If chkAutoSize.Value = 1 Then
  68.         lblDisplay.AutoSize = True
  69.     End If
  70. End Sub
  71.