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
Wrap
Text File
|
1993-04-28
|
2KB
|
83 lines
VERSION 2.00
Begin Form frmCheck
Caption = "Check Box Example"
Height = 3900
Left = 2100
LinkTopic = "Form4"
ScaleHeight = 3495
ScaleWidth = 4665
Top = 1605
Width = 4785
Begin CommandButton cmdClose
Caption = "&Close"
Height = 495
Left = 3000
TabIndex = 3
Top = 2520
Width = 1095
End
Begin CheckBox chkItalic
Caption = "&Italic"
Height = 495
Left = 600
TabIndex = 2
Top = 2640
Width = 1215
End
Begin CheckBox chkBold
Caption = "&Bold"
Height = 495
Left = 600
TabIndex = 1
Top = 2160
Width = 1215
End
Begin TextBox txtDisplay
FontBold = 0 'False
FontItalic = 0 'False
FontName = "MS Sans Serif"
FontSize = 8.25
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 975
Left = 600
MultiLine = -1 'True
TabIndex = 0
Top = 840
Width = 3495
End
Begin Label lblEnter
Caption = "Enter your text here:"
Height = 255
Left = 600
TabIndex = 4
Top = 480
Width = 2775
End
End
Sub chkBold_Click ()
' Click event occurs when check box changes state.
' Value property indicates new state of check box.
If ChkBold.Value = 1 Then ' If checked.
txtDisplay.FontBold = True
Else ' If not checked.
txtDisplay.FontBold = False
End If
End Sub
Sub chkItalic_Click ()
' Click event occurs when check box changes state.
' Value property indicates new state of check box.
If ChkItalic.Value = 1 Then ' If checked.
txtDisplay.FontItalic = True
Else ' If not checked.
txtDisplay.FontItalic = False
End If
End Sub
Sub cmdClose_Click ()
Unload Me ' Unload this form.
End Sub