友情提示:同学您好,此页面仅供预览,在此页面学习不会被统计哦! 请进入学习空间后选择课程学习。


源代码如下:

Private Sub Check2_Click()

   IfCheck2.Value = 0 Then

        Label1.FontStrikethru = False

    Else

       Label1.FontStrikethru = True

    End If

End Sub

Private Sub Option1_Click()

   Label1.FontName= "宋体"

End Sub