多国語対応について・・・。

ｓａｔｏ 2002-02-05 19:25:56 No: 103996

今ＶＢ６で多国語に対応できるソフトを作成している最中です。

＜内容＞
日本語のＯＳでは日本語の表示
日本語以外のＯＳ（アメリカ，オランダ等）では全て英語の表示

としたいのですが・・・ただ単に英語表示させるだけではオランダ等では上手く表示出来ないらしく・・・どのようにしたら良いのか，いきずまってしまいました。
何か良い方法はないでしょうか・・・。
とっかかりになるものでも良いのですが・・・何かご存知のかたおられましたら教えて下さい！

ＶＢをやり始めてまだ半年・・・知らない事だらけの私ですがよろしくお願い致します。

みっちゃん 2002-02-06 17:45:43 No: 103997

次のサンプルで言語を取得してそれにあった処理をさせれば

サンプル
' --------------------------------------------------------
' 使われている言語の取得
' --------------------------------------------------------

Option Explicit

Private Declare Function GetLocaleInfo Lib "Kernel32.dll" Alias "GetLocaleInfoA" (ByVal Locale As Long, ByVal LCType As Long, ByVal lpLCData As String, ByVal cchData As Long) As Long

Private Const LOCALE_SYSTEM_DEFAULT = 2048
Private Const LOCALE_SENGCOUNTRY = &H1002

Private Sub Form_Load()
Dim Buffer As String * 255
Dim msg As String

GetLocaleInfo LOCALE_SYSTEM_DEFAULT, LOCALE_SENGCOUNTRY, _
Buffer, 255

' 日本語の場合、戻り値は"Japan"となります
msg = "使用言語は " + Buffer
Call MsgBox(msg, vbInformation, "言語情報")

End Sub

ｓａｔｏ 2002-02-06 18:08:32 No: 103998

みッちゃん様
ありがとうございます！
早速やってみます！