更多信息

Access 通过将文件与本地 ID (LCID) 关联来跟踪特定的语言信息。该函数使用 LanugageID 属性返回 Access 不同部分的 LCID。将 LCID 传递给 LangID 函数以将 LCID 解析为语言的友好名称。并非所有支持的语言在本函数中都可以处理，您可以添加其它 Case 语句来处理其它语言。

Microsoft 所提供的编程示例只用于说明目的，不附带任何明示或默示的保证，包括（但不限于）用于特定目的的适用性和/或适销性的各项默示保证。本文假定您对演示所用的编程语言和创建、调试程序所用的工具已经非常熟悉。Microsoft 的支持人员可以帮助解释某个特定程序的功能，但他们不会修改这些示例来增加功能，也不会重新构造程序来满足特殊的要求。如果您的编程经验有限，请与 Microsoft 认证合作伙伴联系，或拨打免费咨询电话 (800) 936-5200。有关 Microsoft 认证合作伙伴的详细信息，请参见以下万维网网页：

http://www.microsoft.com/partner/referral/

有关 Microsoft 提供的支持选项的详细信息，请参见以下万维网网页：

http://support.microsoft.com/directory/overview.asp

1. 新建模块并在“声明”部分键入下列代码：

   Option Compare Database
   
   Public Declare Function GetLocaleInfo Lib "kernel32" Alias _
      "GetLocaleInfoA" (ByVal Locale As Long, ByVal LCType As Long, _
      ByVal lpLCData As String, ByVal cchData As Long) As Long
   
   Public Const LOCALE_SLANGUAGE = &H2

2. 在工具菜单上，单击引用。请确保有对 Microsoft Office 9.0 Object Library 的引用。
3. 键入以下程序：

   Function StLangOfLcid(lcid As Long) As String
   
       Dim st As String
       Dim cch As Long
       
       st = String(256, vbNullChar)
       cch = GetLocaleInfo(lcid, LOCALE_SLANGUAGE, st, Len(st))
       StLangOfLcid = Left(st, cch - 1)
       
   End Function

   Sub FindLanguage()
   
      Debug.Print "The language that is installed is: " & _
         StLangOfLcid(LanguageSettings.LanguageID(msoLanguageIDInstall))
      Debug.Print "The language of the user interface is: " & _
         StLangOfLcid(LanguageSettings.LanguageID(msoLanguageIDUI))
      Debug.Print "The language of the help files is: " & _
         StLangOfLcid(LanguageSettings.LanguageID(msoLanguageIDHelp))
   
   End Sub

4. 在“立即”窗口中键入以下行，然后按 ENTER 键：

   FindLanguage