为您的程序进行语言选择

导入 System.IO

导入 System.Collections

导入 System.Resources

导入 System.Globalization

导入 System.Threading

模块 ptLanguage

#Region "从资源文件中获取字符串"

Public Function ResString(ByVal rIndex As String, ByVal LgManuel As String) As String

'

On Error GoTo ErrorHandler

'

Dim lang As CultureInfo = Thread.CurrentThread.CurrentCulture

Dim spr As String = Trim(lang.ToString())

Dim spr_file As String

Dim SuchStr As String

Dim ret As String

Dim lgPfad As String = CurDir()

'

ret = "Error"

'

If Trim(LgManuel) <> "" Then

spr = Trim(LgManuel)

End If

'

Select Case spr

Case Is = "de-DE"

spr_file = "de.resources"

Case Is = "en-US"

spr_file = "us.resources"

Case Is = "fr-FR"

spr_file = "fr.resources"

Case Is = "es-ES"

spr_file = "es.resources"

Case Else

spr_file = "us.resources"

End Select

lgPfad = lgPfad & "\" & spr_file

If File.Exists(lgPfad) Then

Dim rr As ResourceReader = New ResourceReader(lgPfad)

Dim rlg As IDictionaryEnumerator = rr.GetEnumerator

While rlg.MoveNext()

SuchStr = CType(rlg.Key, String)

If Trim(SuchStr) = Trim(rIndex) Then

ret = CType(rlg.Value, String)

Exit While

End If

End While

rr.Close()

ResString = ret

End If

Exit Function

ErrorHandler

ret = "Error"

Exit Function

'

End Function

#End Region

#Region "从系统获取语言初始化"

'

Public Sub Language_Ini()

'

Dim lang As CultureInfo = Thread.CurrentThread.CurrentCulture

Dim spr As String = Trim(lang.ToString())

'

Select Case spr

Case Is = "de-DE"

Select_Language = CDe

Case Is = "en-US"

Select_Language = CUs

Case Is = "fr-FR"

Select_Language = CFr

Case Is = "es-ES"

Select_Language = CEs

Case Else

Select_Language = CUs

End Select

'

End Sub

'

#End Region

End Module

函数 2

更多源代码请参见