余小章 @ 大內殿堂

'*************************************************************************

'**函 數 名：GetLanguage

'**輸    入：)(String() -

'**輸    出：無

'**功能描述：判斷有哪些語系

'**作    者：余小章

'**日    期：2009-01-05 01:18:27

'**修 改 人：

'**日    期：

'**版    本：V1.0.0

'*************************************************************************

Public Function GetLanguage() As String()

    On Error Resume Next

    Dim strReturn As String, lenReturn As Long, TemStr As Variant

    strReturn = vbNullString

    If Check = True Then

        strReturn = Space(&HFF)

        lenReturn = GetPrivateProfileString(vbNullString, vbNullString, vbNullString, strReturn, 256, App.Path & "\" & LanguageFile)

        TemStr = Left(strReturn, lenReturn)

        TemStr = Replace(TemStr, Chr(0) & Chr(0), Chr(0))

        TemStr = Trim(TemStr)

        GetLanguage = Split(TemStr, Chr(0))

        ReDim GLanguages(UBound(GetLanguage))

        GLanguages = GetLanguage

    Else

        GetLanguage = Split("None")

    End If

End Function

'*************************************************************************

'**函 數 名：ChangeLanguage

'**輸    入：Language(String) -

'**輸    出：無

'**功能描述：搜尋需改變的控件-改變控件語系

'**作    者：余小章

'**日    期：2009-01-05 01:19:33

'**修 改 人：

'**日    期：

'**版    本：V1.0.0

'*************************************************************************

Public Sub ChangeLanguage(Language As String)

    Dim i As Long, ctrl As Control

    For i = 0 To Forms.Count - 1

        For Each ctrl In Forms(i).Controls

            Forms(i).Caption = GetString(Language, Forms(i).Name)

            Select Case TypeName(ctrl)

            Case Is = "ComboBox"

                '不做任何事

            Case Is = "TextBox"

                ctrl.Text = GetString(Language, ctrl.Name)

            Case Else

                ctrl.Caption = GetString(Language, ctrl.Name)

            End Select

        Next

    Next i

End Sub