全部
Ada助手

请教如何让程序自带字库?

LiangWu25 2004-01-16 12:08:11

我的应用程序做好后，拿到英文系统下运行，发现程序中的中文全部显示乱码。如何能够省时省力地解决这个问题?

...全文

给本帖投票

163 24 打赏收藏转发到动态举报

写回复

用AI写文章

24 条回复

切换为时间正序

请发表友善的回复…

发表回复

高高兴兴的晶晶 2004-01-30

打赏
举报

看了帖子,又从910那里学东西了. ^_^

LiangWu25 2004-01-30

打赏
举报

zyl910 2004-01-25

打赏
举报

这与中文字体无关
这是由于VB的控件都是ANSI的，所以放在其他语种的操作系统下必然乱码

详细解释见：http://expert.csdn.net/Expert/topic/2668/2668243.xml?temp=.7131464

lndlwwh830 2004-01-25

打赏
举报

关注！！！！！！

LiangWu25 2004-01-18

打赏
举报

不知道什么原因，即使我把中文字庫裝到Win98(英文版)的Fonts目錄下，依然不能正常顯示漢字。

kmzs 2004-01-18

打赏
举报

2000呢？

LiangWu25 2004-01-18

打赏
举报

馮強 2004-01-17

打赏
举报

应该可以，但肯定没那么简单。象中文之星的原理吧。

还有就是把所有的按钮用有汉字的图片来做。

lepeng 2004-01-17

打赏
举报

windows和vb都支持unicode,不过这个办法没试过。

lepeng 2004-01-17

打赏
举报

呵，把字体做成res文件，需要时安装调用。

Maconel 2004-01-16

打赏
举报

首先我认为，英文版的系统，就是装了中文字库，也显示不了中文，如果要安装字库，将你的字库放在程序的文件佳里，拷贝到系统fonts文件佳就可以了

LiangWu25 2004-01-16

打赏
举报

to zy0123:
這個方法不行的，它在英文系統中從Ini取得的文字會全部變為亂碼。

zy0123 2004-01-16

打赏
举报

用一个ini文件保存所有按钮、菜单的中英文显示，加载程序时先判断一下默认语言，再从ini文件里载入所有文字显示。好像只能这样了。或者你再做一个英文版的。

yylituo 2004-01-16

打赏
举报

好像不可以把！
帮你顶一下！

Maconel 2004-01-16

打赏
举报

我前一段时间装过英文版的win2000，无法正常显示汉字，我就装了中文字体，结果还是不能正常显示，只是有很少一部分能显示。

northwolves 2004-01-16

打赏
举报

API安装字体：

private Declare Function AddFontResource Lib "gdi32" Alias "AddFontResourceA" (ByVal lpFileName As String) As Long
Declare Function RemoveFontResource Lib "gdi32" Alias "RemoveFontResourceA" (ByVal lpFileName As String) As Long
增加字体：
Dim lResult As Long
lResult = AddFontResource("c:\myApp\myFont.ttf")
删除字体：
Dim lResult As Long
lResult = RemoveFontResource("c:\myApp\myFont.ttf")

LiangWu25 2004-01-16

打赏
举报

不過我的程序是用delphi做的，從Delphi中的資源文件中讀取文字，不知道VB會怎樣.

LiangWu25 2004-01-16

打赏
举报

放在資源文件中不行，我現在的程序就是從資源文件中讀取文字，可是在英文下顯示中文不正常。
我將我電腦中的字庫文件拷到測試機的操作系統的Fonts目錄下，可是仍然中文仍然顯示不正常.

华芸智森 2004-01-16

打赏
举报

将汉字的宋体字库一同打包,安装时设置为FONT即可.

华芸智森 2004-01-16

打赏
举报

把所有要显示的文字放到资源文件中.分中英文.
系统加载时判断当前系统语言版本,然后在 FORM_LOAD 再加载相应的资源.

例如:10001="按钮",20001="BUTTON"
如果系统是中文版,则.
COMMAND1.CAPTION=LOADRESSTRING(10001)
如果是英文版:
COMMAND1.CAPTION=LOADRESSTRING(20001)