用VB6實現程序多語言界面
|
現在，很多軟件都提供了多種語言界面可供選擇，使軟件可以方便地被不同國家的人使用。其實，支持多語言界面的軟件只是提供了不同語言對應的語言文件。軟件通過讀取相應的文件，就可以顯示相應的語言界面了。在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下調試通過。