vb.net字体是否安装的简单介绍
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 ,不是系统的字体,是工程目录下的字体文件
GDI绘图用字体必须安装才能使用
在客户机部署应用程序时,安装该字体就行
VB.NET的运行环境是不是一定要安装NET
我们不能在windows 95下创建.NET应用程序,而只有在windows98、windowsME、windows NT4、windows 2000或windows XP上运行.NET应用程序。
如果要安装VB.NET,你的计算机必须运行了windows 98/2000/XP操作系统,并且需要确认在安装VB.NET前已经安装了IIS软件。否则,就不能使用VB.NET中所有的WEB窗体功能了。
VB中判断系统中是否存在某种字体,如果有则跳过执行后面的语句,如果没有则将安装该字体到系统中,求代码!
Private Declare Function AddFontResource Lib "gdi32" Alias "AddFontResourceA" (ByVal lpFileName As String) As Long
dim fstr$,fstraddr
fstr=text1 %text1中输入字体名称
fstraddr=text2 %text2中输入字体的目录地址
Form1.Font=fstr
If Form1.Font fstr Then
AddFontResource(fstraddr)
End If
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字体是否安装的简单介绍
文章URL:http://myzitong.com/article/dodpiei.html