用VB6实现程序多语言界面

软件世界

dqw · 2004年1月12日

　　现在，很多软件都提供了多种语言界面可供选择，使软件可以方便地被不同国家的人使用。其实，支持多语言界面的软件只是提供了不同语言对应的语言文件。软件通过读取相应的文件，就可以显示相应的语言界面了。在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下调试通过。