如何取得電腦的語系?

請先準備一個Text1

Option Explicit
Private Declare Function GetUserDefaultLangID Lib "kernel32" () As Integer
Private Declare Function VerLanguageName Lib "kernel32" Alias "VerLanguageNameA" (ByVal wLang As Long, ByVal szLang As String, ByVal nSize As Long) As Long

Private Sub Form_Load()
Dim i As Integer
Dim wl As Long
Dim s As String * 255
i = GetUserDefaultLangID
wl = VerLanguageName(i, s, 255)
Text1 = Left(s, wl)
End Sub

上一頁