home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 10 / 10.iso / l / l407 / 1.ddi / CHECK.FR_ / CHECK.bin (.txt)
Encoding:
Visual Basic Form  |  1993-04-28  |  2.3 KB  |  78 lines
  1. VERSION 2.00
  2. Begin Form frmCheck 
  3.    Caption         =   "Check Box Example"
  4.    Height          =   3900
  5.    Left            =   2100
  6.    LinkTopic       =   "Form4"
  7.    ScaleHeight     =   3495
  8.    ScaleWidth      =   4665
  9.    Top             =   1605
  10.    Width           =   4785
  11.    Begin CommandButton cmdClose 
  12.       Caption         =   "&Close"
  13.       Height          =   495
  14.       Left            =   3000
  15.       TabIndex        =   3
  16.       Top             =   2520
  17.       Width           =   1095
  18.    End
  19.    Begin CheckBox chkItalic 
  20.       Caption         =   "&Italic"
  21.       Height          =   495
  22.       Left            =   600
  23.       TabIndex        =   2
  24.       Top             =   2640
  25.       Width           =   1215
  26.    End
  27.    Begin CheckBox chkBold 
  28.       Caption         =   "&Bold"
  29.       Height          =   495
  30.       Left            =   600
  31.       TabIndex        =   1
  32.       Top             =   2160
  33.       Width           =   1215
  34.    End
  35.    Begin TextBox txtDisplay 
  36.       FontBold        =   0   'False
  37.       FontItalic      =   0   'False
  38.       FontName        =   "MS Sans Serif"
  39.       FontSize        =   8.25
  40.       FontStrikethru  =   0   'False
  41.       FontUnderline   =   0   'False
  42.       Height          =   975
  43.       Left            =   600
  44.       MultiLine       =   -1  'True
  45.       TabIndex        =   0
  46.       Top             =   840
  47.       Width           =   3495
  48.    End
  49.    Begin Label lblEnter 
  50.       Caption         =   "Enter your text here:"
  51.       Height          =   255
  52.       Left            =   600
  53.       TabIndex        =   4
  54.       Top             =   480
  55.       Width           =   2775
  56.    End
  57. Sub chkBold_Click ()
  58. ' Click event occurs when check box changes state.
  59. ' Value property indicates new state of check box.
  60.     If ChkBold.Value = 1 Then       ' If checked.
  61.     txtDisplay.FontBold = True
  62.     Else                            ' If not checked.
  63.     txtDisplay.FontBold = False
  64.     End If
  65. End Sub
  66. Sub chkItalic_Click ()
  67. ' Click event occurs when check box changes state.
  68. ' Value property indicates new state of check box.
  69.     If ChkItalic.Value = 1 Then     ' If checked.
  70.     txtDisplay.FontItalic = True
  71.     Else                            ' If not checked.
  72.     txtDisplay.FontItalic = False
  73.     End If
  74. End Sub
  75. Sub cmdClose_Click ()
  76.    Unload Me    ' Unload this form.
  77. End Sub
  78.