控件应用实战：代码实现字体设置

自定义字体：代码详解

本节将展示如何通过代码动态设置文本框的字体样式，包括字体、字号、加粗和斜体。

全局变量声明：

' 定义公共变量
Dim intFontSize As Integer       ' 字号大小
Dim bFontItalic As System.Drawing.FontStyle   ' 斜体样式
Dim bFontBold As System.Drawing.FontStyle    ' 加粗样式
Dim strFontName As String      ' 字体名称

字体设置函数：

' 子过程定义：设置文本框字体样式
Private Sub FontSet() 
    TextBox1.Font = New Font(strFontName, intFontSize, bFontItalic Or bFontBold) 
End Sub

代码解析：

1. 全局变量： 声明了四个全局变量用于存储字体相关信息。
2. FontSet 函数： 该函数用于设置文本框的字体。
   • TextBox1.Font = New Font(...)：创建新的字体对象并应用于 TextBox1 控件。
   • strFontName：字体名称。
   • intFontSize：字号大小。
   • bFontItalic Or bFontBold：使用逻辑运算符 “Or” 来组合斜体和加粗样式。

使用说明：

在需要修改文本框字体的地方调用 FontSet() 函数，并提前设置好全局变量的值即可。