- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]发布后的项目如何保持住Label1控件的字体？ (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=77110)
-- 发布时间：2015/11/11 10:42:00
-- [求助]发布后的项目如何保持住Label1控件的字体？
控件Label1设置了字体格式。可是发布之后就改变了。怎么在发布后能保持到初始设置的字体呢？谢谢！
-- 发布时间：2015/11/11 11:15:00
--
呃，应该是保持你的设置的啊。新项目的话，发布是否有问题？
-- 发布时间：2015/11/12 5:42:00
--
此主题相关图片如下：aaa.jpg
设置了这样字体之后，在本机运行源码程序和发布后的程序都能显示这样字体。可是发布程序在别的机器上运行时，这个字体就发生变化了，就全部变成宋体了！
[此贴子已经被作者于2015/11/12 5:42:42编辑过]
-- 发布时间：2015/11/12 8:19:00
--
别的电脑没有你设置的字体
-- 发布时间：2015/11/12 8:33:00
--
怎么解决呢？
-- 发布时间：2015/11/12 8:35:00
--
要想保持其他电脑中可能没有的原字体，可将文本截图，用图片显示。
-- 发布时间：2015/11/12 8:37:00
--
这样也会随每台机器分辨率的不同 拉长或缩小啊！
-- 发布时间：2015/11/12 8:38:00
--
应该在发布时是不是可以把字体也带过去呢？
-- 发布时间：2015/11/12 9:26:00
--
以下是引用新福星在2015/11/12 8:38:00的发言：
应该在发布时是不是可以把字体也带过去呢？
应该在发布时是不是可以把字体也带过去呢？
简单做法，你可以在BeforeOpenPorject把字体拷贝到此目录下c:\\windows\\fonts
dim fontdir as string = System.Environment.GetEnvironmentVariable("windir") + "/fonts/"
msgbox(fontdir)
-- 发布时间：2015/11/12 9:29:00
--
使用系统中不存在的字体的方法，发布的时候把字体文件包含进项目目录中，字体路径使用项目路径获取
Dim privateFonts As new System.Drawing.Text.PrivateFontCollection()
privateFonts.AddFontFile("F:\\VS\\字体\\DejaVuSansMono.ttf")
Dim font As System.Drawing.Font
font = new System.Drawing.Font(privateFonts.Families(0), 12)
e.Form.Controls("TextBox1").Font = font