GetLanguage

应用示例

'!TITLE "获取当前的语言设定"
' 获取当前的语言设定值，显示在讯息输出视窗中
Sub Sample_GetLanguage

  Dim aaa As Integer

  ’ 在aaa中代入当前的语言设定值
  aaa = GetLanguage

  ' 在讯息输出视窗中显示语言设定值
  PrintDbg aaa

End Sub