重庆分公司,新征程启航

为企业提供网站建设、域名注册、服务器等服务

vb.net内嵌文件的简单介绍

VB.net使能不能内嵌字体?

创新互联成立以来不断整合自身及行业资源、不断突破观念以使企业策略得到完善和成熟,建立了一套“以技术为基点,以客户需求中心、市场为导向”的快速反应体系。对公司的主营项目,如中高端企业网站企划 / 设计、行业 / 企业门户设计推广、行业门户平台运营、app开发定制移动网站建设、微信网站制作、软件开发、四川雅安电信机房等实行标准化操作,让客户可以直观的预知到从创新互联可以获得的服务效果。

我们写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加载嵌入式资源(DLL,自定义资源)

很简单,点击菜单“项目”--“WindowsApplication1属性”

在属性面板里点“资源”,这里可添加字符串资源、图片资源、多媒体资源等等。

使用资源很简单,举例如下:

  Label1.Text = My.Resources.String1

  PictureBox1.Image = My.Resources.小猫

VB.NET把dll嵌入到exe内部。

我的方案是将相关dll的放入vb的资源文件中,生成exe,在exe执行时先将dll释放到exe目录(或path所在目录),这样就只有1个exe就可以了

VB.net中如何嵌套EXCEL?

没见人这么用过。。VB.net里面有个控件gridview可以实现你的功能,具体你可以搜索下


当前名称:vb.net内嵌文件的简单介绍
网页路径:http://cqcxhl.cn/article/dosoeco.html

其他资讯

在线咨询
服务热线
服务热线:028-86922220
TOP