home *** CD-ROM | disk | FTP | other *** search
/ On Hand / On_Hand_From_Softbank_1994_Release_2_Disc_2_1994.iso / 00202 / s / disk1 / check.fr_ / check.bin
Text File  |  1993-04-28  |  2KB  |  83 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. End
  58.  
  59. Sub chkBold_Click ()
  60. ' Click event occurs when check box changes state.
  61. ' Value property indicates new state of check box.
  62.     If ChkBold.Value = 1 Then       ' If checked.
  63.     txtDisplay.FontBold = True
  64.     Else                            ' If not checked.
  65.     txtDisplay.FontBold = False
  66.     End If
  67. End Sub
  68.  
  69. Sub chkItalic_Click ()
  70. ' Click event occurs when check box changes state.
  71. ' Value property indicates new state of check box.
  72.     If ChkItalic.Value = 1 Then     ' If checked.
  73.     txtDisplay.FontItalic = True
  74.     Else                            ' If not checked.
  75.     txtDisplay.FontItalic = False
  76.     End If
  77. End Sub
  78.  
  79. Sub cmdClose_Click ()
  80.    Unload Me    ' Unload this form.
  81. End Sub
  82.  
  83.