vb.net 教程 5-3 使用未安装的字体

前端之家收集整理的这篇文章主要介绍了vb.net 教程 5-3 使用未安装的字体前端之家小编觉得挺不错的,现在分享给大家,也给大家做个参考。

有时候会在程序内用到计算机上没有安装的字体,当然,我们必须要有字体文件

以下是使用自定义字体文件代码,使用前请先新建一个窗体,上面有一个按钮(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,10)  '在窗体表面绘制字符串
        End If


未按下button1时

MFJinHei_Noncommercial-Regular.otf(造字工坊劲黑字体)

ITCBLKAD.TTF(Blackaddr ITC字体)

题外话:开发商用项目的时候请注意字体的版权。


由于.net平台下C#和vb.NET很相似,本文也可以为C#爱好者提供的参考。

学习更多vb.net知识,请参看 vb.net 教程 目录

猜你在找的VB相关文章