日語口譯價錢
Public Function TranslateStr(sSection As String, sKey As String, sDefVal As String) As String
Close #1
Public Sub SelectLanguage(LanName As String)
Private Sub Form_Load()
Private Declare Function GetPrivateProfileString& Lib "kernel32" Alias "GetPrivateProfileStringA" (ByVal lpApplicationName As String翻譯社 ByVal lpKeyName As String, ByVal lpDefault As String, ByVal lpReturnedString As String翻譯社 ByVal nSize As Long, ByVal lpFileName As String)
End If
Dim sValue As String * 128
[FormMain]
LanguageFileName = ""
If N > 0 Then
Caption=Edit PlayList...
Next I
Select Case LanName '根據用戶選擇的語言的名稱，離別讀取分歧的說話文件
Frm.Caption = TranslateStr(Frm.Name, "Caption"翻譯社 Frm.Caption)
別的，對照麻煩的是假如在同時有幾個Form顯示著的情形下要切換介面說話，那麼需要手工離別對各個窗口挪用TranslateForm()函數，假如你想改善，那麼可以再寫個進程遍歷所有窗口並挪用該函數，這個就留給你來做吧。
LanguageFileName = AddSplash(App.Path) & "ChineseS.Lan"
For I = 0 To Frm.Controls.Count - 1
'選擇說話
If Not FileExists(LanguageFileName) Then
LabelCmd6=Exit && Shut down computer
Dim N As Long
Caption=PCTV Player
End Select
以前做過一個vb的小項目，用戶需要軟體同時可以或許支援中文和英文，為此寫了一個主動語言切換的模組來用，不敢獨享，拿來給大師參考一下翻譯
Dim I As Long
ListView.Title2=Time
Cmd1=Add Program
LabelCmd5=Exit
Option Explicit
SelectLanguage (Language) '設定全局變量，指定利用的說話
Case "Chinese(Traditional)":
Case "English":
End If
[FormEdit]
TranslateStr = Left(sValue, N)
LabelCmd1=Start Play
ListView.Title3=Type
最後，用到的說話文件的花樣像如許：
Or (TypeOf Frm.Controls(I) Is OptionButton) Or (TypeOf Frm.Controls(I) Is CheckBox) Then
On Error GoTo ErrFun
Cmd4=Move Up
'主動轉換Form上的一些根基控件（也可自行擴大，今朝支援CommandButton翻譯社Label,OptionButton翻譯社CheckButton）
On Error Resume Next
Resume Next
Cmd5=Move Down
LabelCmd2=Edit Play List
N = GetPrivateProfileString(sSection, sKey, sDefVal翻譯社 sValue, 127, LanguageFileName)
On Error Resume Next
TranslateStr = sDefVal
If FileExists(AddSplash(App.Path) & "Sys.Ini") Then '從程式的設置裝備擺設文件中讀取前次設定的說話檔案名稱稱
TranslateForm Me '自動轉換介面文字
由於VB說話（這裡指VB6.0及之前版本，VB.NET屬於另外一種概念了）仍是挺弱的，所以也只能遷就這做到這個水平了，若是要增加一些其它控件或其它屬性的主動文字轉換支援，那麼翻譯公司必須自行擴大TranslateForm()函數。（不像Delphi，可使用RTTI來搞定一切）
其它Form中都用雷同的寫法，在FormLoad中挪用TranslateForm(Me)的方式將Form上的Button，Label等切換說話文字。
Case "Chinese(Simplify)":
Input #1, Language
Attribute VB_Name = "ModuleLanMgr"
On Error Resume Next
End Sub |
Language = "English"
Cmd2=Edit Program
End Function
Cmd6=Quit Edit
Case Else:
ErrFun:
Public Sub TranslateForm(Frm As Form)
End Sub
LabelCmd3=Options...
挪用很簡單，在作為程式主窗口的Form中這麼寫：
End If
If (TypeOf Frm.Controls(I) Is CommandButton) Or (TypeOf Frm.Controls(I) Is Label) _
LanguageFileName = AddSplash(App.Path) & "ChineseT.Lan"
ListView.Title4=Title |
模組 MdlLanMgr.bas ：
LabelCmd4=Help
Exit Function
End If
ListView.Title1=ID
Open AddSplash(App.Path) & "Sys.Ini" For Input As #1
Cmd3=Del Program
'翻譯文字
Frm.Controls(I).Caption = TranslateStr(Frm.Name, Frm.Controls(I).Name, Frm.Controls(I).Caption)
End Sub |
Private LanguageFileName As String
LanguageFileName = AddSplash(App.Path) & "English.Lan"
本文出自: http://mypaper.pchome.com.tw/meteor0721/post/1325789038有關各國語文翻譯公證的問題歡迎諮詢天成翻譯公司02-77260931
留言列表
