vb.net添加字体 vb中字体的代码

vb.net 字体设置

给点提示吧vb.net添加字体，已粗体为例（完全是vb.net添加字体我自己的方法，不知别人是怎么做的）：

'先获取选择的字体信息（字体、大小、样式。。。）

Dim currentFont As System.Drawing.Font = RichTextBox1.SelectionFont

'在重新定义某种样式的时候，不丢失其他信息

RichTextBox1.SelectionFont = New Font(currentFont.FontFamily, currentFont.Size, FontStyle.Bold)

相关问答

Q1: VB.NET 如何调用外界字体来使用

@"文件夹位置"

"\Fonts\dmw.ttf"

dmw.ttf的完整路径。

Q2: VB.net使能不能内嵌字体？

能

我们写exe程序时，默认字体是宋体，比较难看，指定了其他字体，但是其他用户上没有你指定的这个字体的话，也会变成默认的宋体。解决的办法有这么几个：

1，叫用户安装相应字体，这个基本不可能实现，因为没有几个人会进行这样的操作；

2，给用户安装相应字体，这个办法可行，在制作安装包时将字体打包进去，然后用户安装程序的时候连字体也一并安装上去，一劳永逸；

3，把字体导入到程序资源中，让程序直接调用字体资源，缺点是导致程序体积巨大；

4，将字体文件放到程序目录里，在程序里单独调用。

个人觉得第4种办法比较方便，所以决定采用这种方法，把代码写出来给需要的同学。

引用：

Imports System.Drawing.Text

public sub Setfont()

dim AppPath as string = Application.StartupPath

try

dim font1 as PrivateFontCollection = new PrivateFontCollection()

font1.AddFontFile(AppPath + "\font\msyh.ttf") '字体的路径及名字

dim myFont as Font = new Font(font.Families[0].Name, 9,FontStyle.Regular,GraphicsUnit.Point, 134)

'设置窗体控件字体，哪些控件要更改都写到下面

label1.Font = myFont

label2.Font = myFont

label3.Font = myFont

button1.Font = myFont

button2.Font = myFont

button3.Font = myFont

button4.Font = myFont

button5.Font = myFont

catch e as exception

MessageBox.Show("字体不存在或加载失败\n程序将以默认字体显示", "警告",

MessageBoxButtons.OK, MessageBoxIcon.Exclamation);

end try

然后在public sub Form1()

InitializeComponent()

Setfont() '启动字体设置函数

end sub

Q3: vb.net如何设置FORM的text字体

您好。修改FORMvb.net添加字体的Font属性就可以修改窗体和其中所有控件vb.net添加字体的字体。

Me.Font = New System.Drawing.Font("宋体", 10)

另外vb.net添加字体，FORM标题栏的TEXT字体和颜色是操作系统决定的vb.net添加字体，要想改变，只能调用系统的api函数，截获操作系统的消息来改变。

下面的网址有C#版本的重绘标题栏范例

软糖的回答满意吗，请及时采纳，谢谢。

vb.net添加字体的介绍就聊到这里吧，感谢你花时间阅读本站内容，更多关于vb中字体的代码、vb.net添加字体的信息别忘了在本站进行查找喔。