使用未安装的自定义字体

原创于 2024-04-06 18:30:46 发布 · 719 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#.net

文章介绍了如何在VisualBasic程序中，通过`Drawing.Text.PrivateFontCollection`添加自定义字体‘华文琥珀.ttf’，并将其应用到TextBox1控件的字体设置上。

默认宋体效果：

使用程序目录下未安装的自定义字体“华文琥珀”：

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim PFC As New Drawing.Text.PrivateFontCollection()
        PFC.AddFontFile(AppDomain.CurrentDomain.BaseDirectory & "华文琥珀.ttf")
        TextBox1.Font = New Font(PFC.Families(0), TextBox1.Font.Size)
    End Sub

效果：