| | | | | | | [文章信息] | | | 作者: | dqw | | 时间: | 2004-02-26 | | 出处: | 电脑报 | | 责任编辑: | 方舟 | |
| [文章导读] | | | 现在，很多软件都提供了多种语言界面可供选择，使软件可以方便地被不同国家的人使用 | |
| |
|
| | | |
|
|
|
|
|
天极IT资讯短信服务 电脑小技巧
| 介绍：细处着手，巧处用功。高手和菜鸟之间的差别就是：高手什么都知道，菜鸟知道一些。电脑小技巧收集最新奇招高招，让你轻松踏上高手之路。 | |
现在，很多软件都提供了多种语言界面可供选择，使软件可以方便地被不同国家的人使用。其实，支持多语言界面的软件只是提供了不同语言对应的语言文件。软件通过读取相应的文件，就可以显示相应的语言界面了。在VB中可以通过读取相应的文件后，修改Caption属性来实现。
下面这个例子就介绍了中/英文界面在VB中的实现方法，大家可以举一反三使自己的软件也支持多语言界面。
首先，建立两个语言文件chinese.leg和english.leg（用记事本就可以，名字可以随便取，只要方便区分就行）。里面输入相应的内容，这里输入的是“文件”“退出”“欢迎”、“打开”和“File”、“Exit”、“Welcome”、“Open”，每个词占一行（为了方便读取）。
接下来打开VB6，新建一个工程，添加两个Command和一个Label，建立菜单。然后添加一个通用对话框控件，用来打开相应的语言文件。
Dim file As String
Dim a3 As String
Private Sub caidan2_Click
Unload Me
End Sub
Private Sub Command1_Click
Unload Me
End Sub
Private Sub Command2_Click
CommonDialog1.ShowOpen
file = CommonDialog1.FileName
'获得文件路径和名称
Call chang
'调用过程
End Sub
Private Sub chang
Open file For Input As 1
'打开文件
For i = 0 To 3
Line Input #1 ai
'读取文件的内容
Next
Close 1
caidan1.Caption = a0
'更新菜单的显示
caidan2.Caption = a1
Label1.Caption = a2
'更新Label的显示
Command1.Caption = a1
'更新command的显示
Command2.Caption = a3
End Sub |
注：此程序在VB6+Win2000下调试通过。
|
|
|
|
|
|
|
|
情人玫瑰坊
音乐风云
新片速递
神秘测试
都市约会