开发多语言包的方法，分可加（决不食言）！

[yo_jo]

现在打算把我的一个程序做成多语言的版本，请问大虾如何实现，谢谢了～

[evbsky]

我把语言资源封装成一个DLL文件，一个语种一个DLL。

[wumy_ld]

楼上的注意不错

[yo_jo]

有实例吗？您这样说我不能理解。:)

[还想懒够]

我看是否可以用资源文件,在读程序的时候自动判断使用哪个资源文件(每个资源文件中用一种不同的语言)

[dhyuser10]

可以存成多语言文件

www.vckbase.com有列子

[dhyuser10]

http://www.vckbase.com/code/downcode.asp?id=1785

[hbzjyjg906303]

利用windows的资源文件啊,程序开始就先检查系统的语言类型,加载相应的资源ID.
比如你的资源文件中有如下内容:
ID号 内容
100 这是一个显示内容11111
101 这是一个显示内容222222
102 帮助
103 退出

1100 this a View info 11111
1101 this a View info 222222
1102 help
1103 exit


程序中要这样:
select case 语言ID
case "chian" BaseId=0
case "english" BaseId=1000
....
end select
在显示信息/文字的地方用LoadResString(ResID+baseId)
这样就可以显示不同的语言文字了,要注意各种语言的信息要相对应啊,只是资源ID号相差一个特定的数字,就可以了,哈哈,希望对你有帮助,我就是这样做的,^_^

[evbsky]

这是我程序中一个读取文本的模块

Public Function LoadResDllString(StringID As Long, Default As String) As String
Dim hDLL As Long
Dim lpName As String
Dim Length As Long
' const the max length
Length = 255
lpName = String(Length, 0)
hDLL = LoadLibrary(ResourceDLLName)

' if the resourceDLL not exist,then pop error message
If hDLL = 0 Then
LoadResDllString = Default
Exit Function
Else
LoadString hDLL, StringID, lpName, Length
lpName = Left(lpName, InStr(lpName, Chr(0)) - 1)
LoadResDllString = lpName
End If
FreeLibrary hDLL
End Function

[yo_jo]

谢谢各位，利用资源文件的方法简单好用，建议使用这种方法。
现在结贴，再加30分，请没有拿到分的兄弟到 http://expert.csdn.net/Expert/topic/2176/2176413.xml?temp=.5733148 接分。
最后再次感谢大家的帮助。^_^

[greenxiar]

采用MLangX组件，可以管理界面中的语言字串项目，在Cache中HASH方式查寻字串很快。
下载 http://www.1bitsoft.com/downloads/mlxdemo1_1.zip
可以与作者[e-mail]联系 QQ 12821922
正在征集测试用户，你可以得到一份正版的许可