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


sato  2002-02-05 10:25:56  No: 103996  IP: [192.*.*.*]

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

<内容>
日本語のOSでは日本語の表示
日本語以外のOS(アメリカ,オランダ等)では全て英語の表示

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

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

編集 削除
みっちゃん  2002-02-06 08:45:43  No: 103997  IP: [192.*.*.*]

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

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

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

編集 削除
sato  2002-02-06 09:08:32  No: 103998  IP: [192.*.*.*]

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

編集 削除