锐客网

  1. 首页 > 睿知 > it技术 > >

vb.net未安装字体 vb安装没有发现acme

IT技术去掉

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 GDI ,不是系统的字体,是工程目录下的字体文件【vb.net未安装字体 vb安装没有发现acme】GDI绘图用字体必须安装才能使用
在客户机部署应用程序时vb.net未安装字体，安装该字体就行
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
vb.net注册字体问题在给所有顶层窗口发送消息之前需要在注册表中记录字体：
HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Fonts
否则是无法显示在系统的字体列表中的 。
关于vb.net未安装字体和vb安装没有发现acme的介绍到此就结束了，不知道你从中找到你需要的信息了吗 ？如果你还想了解更多这方面的信息，记得收藏关注本站 。

    推荐阅读


    上一篇：sap蛋白，SAP蛋白 噬血细胞综合征

    下一篇：游戏动作的夸张性描写，游戏动作的夸张性描写作文