vb.net GDI ,不是系统的字体,是工程目录下的字体文件GDI绘图用字体必须安装才能使用
在客户机部署应用程序时 , 安装该字体就行
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
【包含vb.net字体是否安装的词条】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
vb 怎么安装字体vb.net字体是否安装你设置打包工具的时候vb.net字体是否安装,可以设置字体存放的位置吧vb.net字体是否安装 , 你把字体安装位置设置为目标机器的windows/font目录下,字体就会自动安装了你必须要把你附加的字体copy出来(不要在fonts目录下),你会发现字体文件名变了,然后你把这个字体加入到安装程序里面,然后在复制到目标机器的fonts目录下(安装程序执行这个步骤)
vb.net如何检查系统版本和系统里是否装有微软雅黑字体??Private Sub Form_Load()
r=Dir(C:\WINDOWS\Fonts\微软雅黑.ttf) ‘在C盘WINDOWS文件夹fonts中查找微软雅黑
If r""then
...(...填入)确认文件存在
Else
...(...填入)确认文件不存在
End if
End Sub
关于vb.net字体是否安装和的介绍到此就结束了,不知道你从中找到你需要的信息了吗 ?如果你还想了解更多这方面的信息 , 记得收藏关注本站 。
推荐阅读
- 怎么使用css把div空白的简单介绍
- asp.net多页面,aspnet mvc 分页
- 手机直播伴侣直播时有杂音,手机直播伴侣直播时有杂音怎么办
- linux后退命令快捷键 linux常用基本命令后退
- postgresql存储过程模板,plsql的存储过程
- 淘宝挂店铺虚拟主机,淘宝挂店铺虚拟主机可以吗
- 华为手机铃声重复了怎么办,华为设置铃声重复
- c语言三角函数曲线图 c语言三角函数编程实例
- 微软大幅投资CHATGPT,微软研发投入