VB.NET 章鱼哥 如何在项目中使用外部文字格式
2015-04-14 01:17
417 查看
当我们设置控件的字体时,有时候会发现很多字体在VS编辑器中是找不到的。举个例子:Times New Roman 这个新罗马字体是我们常用的,但是在编辑器中确实找不到,不信读者可以试试。
'作者:章鱼哥,QQ:3107073263 群:309816713
'如有疑问或好的建议请联系我,大家一起进步
![](http://img.blog.csdn.net/20150414011723578?watermark/2/text/aHR0cDovL2Jsb2cuY3Nkbi5uZXQvemhhbmd5dWJpc2hvdWxpbg==/font/5a6L5L2T/fontsize/400/fill/I0JBQkFCMA==/dissolve/70/gravity/Center)
首先要先找到Times New Roman 格式的文件,这个可以在网上下载,也可以直接在电脑硬盘中搜,一般来说电脑中都会有的,文字格式文件是以.ttf格式存储的。
打开计算机,在右上角搜索框中输入“?.ttf”搜索可能需要些时间,具体搜索示意如下图:
![](http://img.blog.csdn.net/20150414012327165?watermark/2/text/aHR0cDovL2Jsb2cuY3Nkbi5uZXQvemhhbmd5dWJpc2hvdWxpbg==/font/5a6L5L2T/fontsize/400/fill/I0JBQkFCMA==/dissolve/70/gravity/Center)
第二步:将Times New Roman 格式文件复制到当前项目的文件夹下,我是在文件的Sln文件所在层新建了一个res文件夹,然后把格式文件复制到该文件夹下的。(读者可以以自己的方式存储,只要在代码中修改下就可以了)
![](http://img.blog.csdn.net/20150414013213794)
第三步:在代码编辑器中,写一个带返回值的过程ImportFont(),代码如下:
这样只要调用该函数就可以获得一个类型是Font的变量,该变量的值就是Times NewRoman格式了
'作者:章鱼哥,QQ:3107073263 群:309816713
'如有疑问或好的建议请联系我,大家一起进步
首先要先找到Times New Roman 格式的文件,这个可以在网上下载,也可以直接在电脑硬盘中搜,一般来说电脑中都会有的,文字格式文件是以.ttf格式存储的。
打开计算机,在右上角搜索框中输入“?.ttf”搜索可能需要些时间,具体搜索示意如下图:
第二步:将Times New Roman 格式文件复制到当前项目的文件夹下,我是在文件的Sln文件所在层新建了一个res文件夹,然后把格式文件复制到该文件夹下的。(读者可以以自己的方式存储,只要在代码中修改下就可以了)
第三步:在代码编辑器中,写一个带返回值的过程ImportFont(),代码如下:
Imports System.Drawing.Text Module Module2 '导入外部字体 Public Function ImportFont() As Font ' 获取字体文件的路径 Dim Path = Replace(Application.StartupPath, "\bin\Debug", "\res\segoeui.ttf") Try Dim NewFont1 As New PrivateFontCollection '建立一个 个人格式集合对象 NewFont1.AddFontFile(Path) '通过路径访问格式文件(这里的路径一定要对) 'New Font()里面可选多个参数,第一个参数就是格式名,第二个参数是字体大小,第三个参数是字体的粗细,正斜下划线等选项, '第四个参数是字体的度量单位,后面还有,不过是可选参数我直接默认了。读者可以自行试试 Dim NewFont As Font = New Font(NewFont1.Families(0).Name, 12, FontStyle.Regular, GraphicsUnit.Pixel) Return NewFont Catch ex As Exception Return Nothing End Try End Function End Module
这样只要调用该函数就可以获得一个类型是Font的变量,该变量的值就是Times NewRoman格式了
'设置整个窗体中控件的字体 Private Sub SetControlFont() Dim Font1 As Font = ImportFont() '使用镶嵌循环语句,保证每个控件的字体都设置 If Font1 IsNot Nothing Then For Each Cotr As Control In Controls Cotr.Font = Font1 If Cotr.Controls IsNot Nothing Then For Each Cotr1 As Control In Cotr.Controls Cotr1.Font = Font1 Next End If Next End If End Sub好了,设置好了,只要在窗体的Load事件中调用SetControlFont()函数就可以设置该项目窗体上的每个控件的字体为Times New Roman
Private Sub frm_Main_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load SetControlFont() End Sub
相关文章推荐
- [VB.NET]FastReport3,VS.net上使用,如何把修改好的格式存回数库里???
- VB.NET 章鱼哥 如何修改一个项目的名称
- 如何在ASP.NET项目里面正确使用Linq to Sql
- 如何使用NET Reactor为您的.Net(C#,VB.Net) 源代码加密!
- Sharepoint online 如何使用asp.net开发项目!!!
- 项目中在Android.mk文件中根据项目名称选择不同的AndroidManifest.xml文件 && 如何使用系统设定的日期显示格式
- VB.NET 章鱼哥 自定义控件的建立和使用
- asp.net 项目中如何调用vb dll 函数
- vb.net 控件使用外部字体自动选择
- 章鱼哥—VB.NET 如何实现代码自动生成控件 添加绑定事件
- 章鱼哥出品—VB.NET 自定义快捷键使用详解之全局热键
- 如何使用 Visual Studio .NET 部署项目分发 .NET Framework
- vb.net如何使用HttpWebRequest模拟登陆带验证码的网站
- Sharepoint online 如何使用asp.net开发项目!!!
- 章鱼哥出品—VB.NET 如何绘制圆角矩形,并适应窗体大小
- VB.NET章鱼哥出品—如何解决MDI子窗体被父窗体中的控件覆盖的问题
- VB.NET 章鱼哥出品--入门基础Button控件的使用详解(一)
- VB.NET 章鱼哥出品 —入门基础Button控件的使用详解(二)
- mvn的使用和如何在使用外部tomcat启动maven项目
- 如何使用VS2005的VB.net开发WinCE应用程序