home *** CD-ROM | disk | FTP | other *** search
/ Tools / WinSN5.0Ver.iso / PVb5.0 / VB / SAMPLES / PGUIDE / CONTROLS / CHECK.FRM (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1997-01-23  |  4.1 KB  |  134 lines
  1. VERSION 5.00
  2. Begin VB.Form frmCheck 
  3.    Caption         =   "
  4.    ClientHeight    =   3075
  5.    ClientLeft      =   2145
  6.    ClientTop       =   1980
  7.    ClientWidth     =   4530
  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       =   "Form4"
  18.    ScaleHeight     =   3075
  19.    ScaleWidth      =   4530
  20.    Begin VB.CommandButton cmdClose 
  21.       Caption         =   "
  22. (&C)"
  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            =   3000
  34.       TabIndex        =   3
  35.       Top             =   2160
  36.       Width           =   1095
  37.    End
  38.    Begin VB.CheckBox chkItalic 
  39.       Caption         =   "
  40. (&I)"
  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            =   480
  52.       TabIndex        =   2
  53.       Top             =   1440
  54.       Width           =   1215
  55.    End
  56.    Begin VB.CheckBox chkBold 
  57.       Caption         =   "
  58. (&B)"
  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            =   480
  70.       TabIndex        =   1
  71.       Top             =   960
  72.       Width           =   1215
  73.    End
  74.    Begin VB.TextBox txtDisplay 
  75.       BeginProperty Font 
  76.          Name            =   "
  77.          Size            =   9
  78.          Charset         =   134
  79.          Weight          =   400
  80.          Underline       =   0   'False
  81.          Italic          =   0   'False
  82.          Strikethrough   =   0   'False
  83.       EndProperty
  84.       Height          =   375
  85.       Left            =   480
  86.       TabIndex        =   0
  87.       Text            =   "
  88.       Top             =   360
  89.       Width           =   3615
  90.    End
  91.    Begin VB.Label lblEnter 
  92.       Caption         =   "
  93.       BeginProperty Font 
  94.          Name            =   "
  95.          Size            =   9
  96.          Charset         =   134
  97.          Weight          =   400
  98.          Underline       =   0   'False
  99.          Italic          =   0   'False
  100.          Strikethrough   =   0   'False
  101.       EndProperty
  102.       Height          =   615
  103.       Left            =   1800
  104.       TabIndex        =   4
  105.       Top             =   1080
  106.       Width           =   2295
  107.    End
  108. Attribute VB_Name = "frmCheck"
  109. Attribute VB_GlobalNameSpace = False
  110. Attribute VB_Creatable = False
  111. Attribute VB_PredeclaredId = True
  112. Attribute VB_Exposed = False
  113. Private Sub chkBold_Click()
  114.  Click 
  115.  Value 
  116.     If chkBold.Value = 1 Then     ' 
  117.         txtDisplay.FontBold = True
  118.     Else                          ' 
  119.         txtDisplay.FontBold = False
  120.     End If
  121. End Sub
  122. Private Sub chkItalic_Click()
  123.  Click 
  124.  Value 
  125.     If chkItalic.Value = 1 Then     ' 
  126.         txtDisplay.FontItalic = True
  127.     Else                          ' 
  128.         txtDisplay.FontItalic = False
  129.     End If
  130. End Sub
  131. Private Sub cmdClose_Click()
  132.    Unload Me    ' 
  133. End Sub
  134.