手机站
网通分站
电信主站
密 码:
用户名:
当前位置 : 主页>网络编程>Asp.Net编程>列表

用VB6实现程序多语言界面

来源:互联网 作者:西部数码 时间:2008-04-09
西部数码-全国虚拟主机10强!40余项虚拟主机管理功能,全国领先!双线多线虚拟主机南北访问畅通无阻!免费赠送企业邮局,.CN域名,自助建站480元起,免费试用7天,满意再付款! P4主机租用799元/月.月付免压金!
  现在,很多软件都提供了多种语言界面可供选择,使软件可以方便地被不同国家的人使用。其实,支持多语言界面的软件只是提供了不同语言对应的语言文件。软件通过读取相应的文件,就可以显示相应的语言界面了。在VB中可以通过读取相应的文件后,修改Caption属性来实现。

  下面这个例子就介绍了中/英文界面在VB中的实现方法,大家可以举一反三使自己的软件也支持多语言界面。

  首先,建立两个语言文件chinese.leg和english.leg(用记事本就可以,名字可以随便取,只要方便区分就行)。里面输入相应的内容,这里输入的是“文件”“退出”“欢迎”、“打开”和“File”、“Exit”、“Welcome”、“Open”,每个词占一行(为了方便读取)。

  接下来打开VB6,新建一个工程,添加两个Command和一个Label,建立菜单。然后添加一个通用对话框控件,用来打开相应的语言文件。

Dim file As String
Dim a3 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 ai
  '读取文件的内容
 Next
 Close 1
 caidan1.Caption = a0
 '更新菜单的显示
 caidan2.Caption = a1
 Label1.Caption = a2
 '更新Label的显示
 Command1.Caption = a1
 '更新command的显示
 Command2.Caption = a3
End Sub
  注:此程序在VB6 Win2000下调试通过。

文章整理:西部数码--专业提供域名注册虚拟主机服务
http://www.west263.com
以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息,谢谢!