版权声明：本文为博主原创文章，转载请在显著位置标明本文出处以及作者网名，未经作者允许不得用于商业目的。
有时候会在程序内用到计算机上没有安装的字体，当然，我们必须要有字体文件。
以下是使用自定义字体文件的代码，使用前请先新建一个窗体，上面有一个按钮(button1)和一个标签(label1)，
同时需要在代码最顶端添加
Imports System.Drawing.Text
在Button1.Click事件中添加如下代码：
Dim g As Graphics = Me.CreateGraphics ' PictureBox1.CreateGraphics
Dim fontpath As String = Application.StartupPath & "\ITCBLKAD.TTF"
Dim pfonts As PrivateFontCollection = New PrivateFontCollection() 'PrivateFontCollection类
'该类提供一个字体系列集合，该集合是基于客户端应用程序提供的字体文件生成的。
pfonts.AddFontFile(fontpath) '<==重点，添加自己的字体文件
If pfonts.Families(0).IsStyleAvailable(FontStyle.Regular) Then '如果该字体支持普通文本字形信息，你也可以换成Bold（粗体）、Italic（斜体）等
Dim f As Font = New Font(pfonts.Families(0), 20, FontStyle.Regular) '定义一个Font实例
Label1.Text = "字体测试：" & f.Name
Label1.Font = f '标签字体为我们定义的Font
Dim fontname As String = f.Name
Dim b As SolidBrush = New SolidBrush(Color.Red) '定义一个Brush实例
g.DrawString(fontname, f, b, 0, 10) '在窗体表面绘制字符串
End If
未按下button1时
MFJinHei_Noncommercial-Regular.otf（造字工坊劲黑字体）
ITCBLKAD.TTF（Blackaddr ITC字体）
题外话：开发商用项目的时候请注意字体的版权。
由于.net平台下C#和vb.NET很相似，本文也可以为C#爱好者提供的参考。
学习更多vb.net知识，请参看 vb.net教程 目录
————————————————
版权声明：本文为CSDN博主「VB.Net」的原创文章，遵循CC 4.0 BY-SA版权协议，转载请附上原文出处链接及本声明。
