使用系统中不存在的字体的方法,发布的时候把字体文件包含进项目目录中,字体路径使用项目路径获取
Dim privateFonts As new System.Drawing.Text.PrivateFontCollection()
privateFonts.AddFontFile("F:\VS\字体\DejaVuSansMono.ttf")
Dim font As System.Drawing.Font
font = new System.Drawing.Font(privateFonts.Families(0), 12)
e.Form.Controls("TextBox1").Font = font