VB Tips Vol.54
 使われている言語の取得

使用中のコンピュータで使われている言語(日本語、英語など)を取得することができます。

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
GetLocaleInfo LOCALE_SYSTEM_DEFAULT, LOCALE_SENGCOUNTRY, Buffer, 255
' 日本語の場合、戻り値は"Japan"となります
Label1.Caption = Buffer
End Sub

サンプルプログラムのダウンロード(5.55KB)
※このページの内容とサンプルプログラムのコードは多少異なる場合があります。

戻る ホーム