| Object |
Property |
Setting |
| Label |
Caption |
Suvaline
tekst
näiteks
: " Minu tööaken" |
| Text1 |
MultiLine |
True |
|
Text |
(Tühi) |
| CheckBox |
Caption |
Bold |
| CheckBox |
Caption |
Italic |
| Frame |
Caption |
Font |
|
|
|
|
Järgmises
tabelis on toodud konstandid mida kasutatakse "CheckBox'is"
Lisa
järgmised käsuread objectidele "CheckBox":
Private
Sub Check1_Click()
If
Check1.Value = vbChecked Then
Text1.Font.Bold
= True
ElseIf
Check1.Value = vbUnchecked Then
Text1.Font.Bold
= False
End
If
End
Sub
Private
Sub Check2_Click()
If
Check2.Value = vbChecked Then
Text1.Font.Italic
= True
ElseIf
Check2.Value = vbUnchecked Then
Text1.Font.Italic
= False
End
If
End
Sub
|