学步园

与百例79-80例相类似

Option Explicit
Private Sub chk1_Click()
        If chk1.Value = 1 Then         '若复选框chk1的值为1
          Label2.FontUnderline = True  '标签框中的文字加下划线
        Else                           '否则
          Label2.FontUnderline = False '标签框中的文字不加下划线
        End If
End Sub

Private Sub chk2_Click()
        If chk2.Value = 1 Then
          Label2.FontStrikethru = True
        Else
          Label2.FontStrikethru = False
        End If
         
End Sub
Private Sub Command1_Click()
        cdl1.ShowFont
        '打开“字体”对话框
        Label2.Font = cdl1.FontName
        '标签框中文字的字体是“字体”对话框中所选择的字体
        Label2.FontBold = cdl1.FontBold
        '标签框中文字的字体是否加粗显示“字体”对话框中所选择的字体
        Label2.FontItalic = cdl1.FontItalic
        '标签框中文字的字体是否倾斜“字体”对话框中所选择的字体
End Sub