多国語対応について・・・。 (ID:103997)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 次のサンプルで言語を取得してそれにあった処理をさせれば サンプル ' -------------------------------------------------------- ' 使われている言語の取得 ' -------------------------------------------------------- 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