home *** CD-ROM | disk | FTP | other *** search
/ Tools / WinSN5.0Ver.iso / PVb5.0 / VB / SAMPLES / PGUIDE / CONTROLS / WORDWRAP.FRM (.txt) < prev   
Encoding:
Visual Basic Form  |  1997-01-23  |  5.3 KB  |  180 lines
  1. VERSION 5.00
  2. Begin VB.Form frmWordWrap 
  3.    Caption         =   "
  4.    ClientHeight    =   4320
  5.    ClientLeft      =   1110
  6.    ClientTop       =   1665
  7.    ClientWidth     =   5760
  8.    BeginProperty Font 
  9.       Name            =   "
  10.       Size            =   9
  11.       Charset         =   134
  12.       Weight          =   700
  13.       Underline       =   0   'False
  14.       Italic          =   0   'False
  15.       Strikethrough   =   0   'False
  16.    EndProperty
  17.    LinkTopic       =   "Form1"
  18.    ScaleHeight     =   4320
  19.    ScaleWidth      =   5760
  20.    Begin VB.CommandButton cmdCycle 
  21.       Caption         =   "
  22. (&Y)"
  23.       BeginProperty Font 
  24.          Name            =   "
  25.          Size            =   9
  26.          Charset         =   134
  27.          Weight          =   400
  28.          Underline       =   0   'False
  29.          Italic          =   0   'False
  30.          Strikethrough   =   0   'False
  31.       EndProperty
  32.       Height          =   495
  33.       Left            =   480
  34.       TabIndex        =   2
  35.       Top             =   2520
  36.       Width           =   1215
  37.    End
  38.    Begin VB.CheckBox chkAutoSize 
  39.       Caption         =   "
  40. (&A)"
  41.       BeginProperty Font 
  42.          Name            =   "
  43.          Size            =   9
  44.          Charset         =   134
  45.          Weight          =   400
  46.          Underline       =   0   'False
  47.          Italic          =   0   'False
  48.          Strikethrough   =   0   'False
  49.       EndProperty
  50.       Height          =   495
  51.       Left            =   3840
  52.       TabIndex        =   0
  53.       Top             =   1080
  54.       Width           =   1695
  55.    End
  56.    Begin VB.CheckBox chkWordWrap 
  57.       Caption         =   "
  58. (&W)"
  59.       BeginProperty Font 
  60.          Name            =   "
  61.          Size            =   9
  62.          Charset         =   134
  63.          Weight          =   400
  64.          Underline       =   0   'False
  65.          Italic          =   0   'False
  66.          Strikethrough   =   0   'False
  67.       EndProperty
  68.       Height          =   495
  69.       Left            =   3840
  70.       TabIndex        =   1
  71.       Top             =   1680
  72.       Width           =   1575
  73.    End
  74.    Begin VB.CommandButton cmdClose 
  75.       Cancel          =   -1  'True
  76.       Caption         =   "
  77. (&C)"
  78.       BeginProperty Font 
  79.          Name            =   "
  80.          Size            =   9
  81.          Charset         =   134
  82.          Weight          =   400
  83.          Underline       =   0   'False
  84.          Italic          =   0   'False
  85.          Strikethrough   =   0   'False
  86.       EndProperty
  87.       Height          =   495
  88.       Left            =   3840
  89.       TabIndex        =   3
  90.       Top             =   2520
  91.       Width           =   1215
  92.    End
  93.    Begin VB.Label lblHelp 
  94.       BackColor       =   &H00C0C0C0&
  95.       Caption         =   "
  96.       BeginProperty Font 
  97.          Name            =   "
  98.          Size            =   9
  99.          Charset         =   134
  100.          Weight          =   400
  101.          Underline       =   0   'False
  102.          Italic          =   0   'False
  103.          Strikethrough   =   0   'False
  104.       EndProperty
  105.       Height          =   615
  106.       Left            =   480
  107.       TabIndex        =   5
  108.       Top             =   3360
  109.       Width           =   2895
  110.    End
  111.    Begin VB.Label lblDisplay 
  112.       BorderStyle     =   1  'Fixed Single
  113.       Caption         =   "AutoSize 
  114.  WordWrap 
  115.       Height          =   230
  116.       Left            =   480
  117.       TabIndex        =   4
  118.       Top             =   480
  119.       Width           =   2175
  120.    End
  121. Attribute VB_Name = "frmWordWrap"
  122. Attribute VB_GlobalNameSpace = False
  123. Attribute VB_Creatable = False
  124. Attribute VB_PredeclaredId = True
  125. Attribute VB_Exposed = False
  126. Sub Display()
  127.     ' 
  128.  label 
  129.     ' 
  130.     lblDisplay.AutoSize = False
  131.     lblDisplay.WordWrap = False
  132.     lblDisplay.Width = 2175
  133.     lblDisplay.Height = 225
  134.     ' 
  135.     If chkWordWrap.Value = 1 Then
  136.         lblDisplay.WordWrap = True
  137.     End If
  138.     If chkAutoSize.Value = 1 Then
  139.         lblDisplay.AutoSize = True
  140.     End If
  141. End Sub
  142. Private Sub chkAutoSize_Click()
  143.     ' 
  144.  Display 
  145.     Call Display
  146. End Sub
  147. Private Sub chkWordWrap_Click()
  148.     ' 
  149.  Display 
  150.     Call Display
  151. End Sub
  152. Private Sub cmdClose_Click()
  153.    Unload Me    ' 
  154. End Sub
  155. Private Sub cmdCycle_Click()
  156.     ' 
  157.     ' 
  158.     If chkAutoSize.Value = 0 And _
  159.      chkWordWrap.Value = 0 Then
  160.         ' 
  161.         chkAutoSize.Value = 1
  162.     ' 
  163.     ElseIf chkAutoSize.Value = 1 And _
  164.      chkWordWrap.Value = 1 Then
  165.         ' 
  166.         chkAutoSize.Value = 0
  167.         chkWordWrap.Value = 1
  168.     ' 
  169.     ElseIf chkAutoSize.Value = 0 And _
  170.      chkWordWrap.Value = 1 Then
  171.         ' 
  172.         chkAutoSize.Value = 0
  173.         chkWordWrap.Value = 0
  174.     ' 
  175.     Else
  176.         ' 
  177.         chkWordWrap.Value = 1
  178.     End If
  179. End Sub
  180.