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, 0, 10)  '在窗体表面绘制字符串
        End If

 

 

 

 

 

 

 

未按下button1时

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

ITCBLKAD.TTF(Blackaddr ITC字体)

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

 

 

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

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

评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值