默认宋体效果:
使用程序目录下未安装的自定义字体“华文琥珀”:
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
效果: