字体设计 - 第六讲：控件应用

字体样式设置

本讲讲解如何使用控件动态调整文本样式。

1. 字体选择

以下代码展示了如何使用复选框控件 (CheckBox) 在“隶书”和“宋体”之间切换字体：

Private Sub CheckBox1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles CheckBox1.Click 
    If CheckBox1.Checked = True Then 
        strFontName = "隶书" 
    Else 
        strFontName = "宋体" 
    End If 
    Call FontSet() 
End Sub 

2. 斜体设置

以下代码展示了如何使用复选框控件 (CheckBox) 应用和取消斜体样式：

Private Sub CheckBox2_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles CheckBox2.Click 
    If CheckBox2.Checked = True Then 
        bFontBold = FontStyle.Italic 
    Else 
        bFontBold = FontStyle.Regular
    End If 
    Call FontSet() 
End Sub

注意: FontSet() 函数 (未在此处展示) 用于根据所选字体和样式更新文本外观。