更多信息

Access 通過將文件與本地 ID (LCID) 關(guān)聯(lián)來跟蹤特定的語言信息。該函數(shù)使用 LanugageID 屬性返回 Access 不同部分的 LCID。將 LCID 傳遞給 LangID 函數(shù)以將 LCID 解析為語言的友好名稱。并非所有支持的語言在本函數(shù)中都可以處理，您可以添加其它 Case 語句來處理其它語言。

Microsoft 所提供的編程示例只用于說明目的，不附帶任何明示或默示的保證，包括（但不限于）用于特定目的的適用性和/或適銷性的各項(xiàng)默示保證。本文假定您對演示所用的編程語言和創(chuàng)建、調(diào)試程序所用的工具已經(jīng)非常熟悉。Microsoft 的支持人員可以幫助解釋某個特定程序的功能，但他們不會修改這些示例來增加功能，也不會重新構(gòu)造程序來滿足特殊的要求。如果您的編程經(jīng)驗(yàn)有限，請與 Microsoft 認(rèn)證合作伙伴聯(lián)系，或撥打免費(fèi)咨詢電話 (800) 936-5200。有關(guān) Microsoft 認(rèn)證合作伙伴的詳細(xì)信息，請參見以下萬維網(wǎng)網(wǎng)頁：

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

有關(guān) Microsoft 提供的支持選項(xiàng)的詳細(xì)信息，請參見以下萬維網(wǎng)網(wǎng)頁：

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