Access爱好者--
所属分类: 实用API 作者: 共享 更新日期:2003-10-14 8:41:33 阅读次数:120

确定语言版本的样例函数


这篇文章中的信息适用于:
Microsoft Access 2000

本文的发布号曾为 CHS210455
中等水平:要求具备基本宏、编码和跨平台操作技能。

本文适用于 Microsoft Access 数据库 (.mdb) 和 Microsoft Access 项目 (.adp)。


概要
Microsoft Access 是以多种语言发布的,并可以使用多种语言。本文说明如何创建样例函数,您可以用它确定所安装的 Access 的语言版本、用户界面所使用的语言版本以及“帮助”文件所使用的语言版本。
更多信息
Access 通过将文件与本地 ID (LCID) 关联来跟踪特定的语言信息。该函数使用 LanugageID 属性返回 Access 不同部分的 LCID。将 LCID 传递给 LangID 函数以将 LCID 解析为语言的友好名称。并非所有支持的语言在本函数中都可以处理,您可以添加其它 Case 语句来处理其它语言。

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

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

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



--------------------------------------------------------------------------------
相关文章

没有相关文章


系统优化
控件使用
数据库设计
数据库连接
系统安全
OLE自动化
常见问题
实用代码
属性详解
网络相关
实用API
经验分享
精选教程
字符处理
ADP相关
文件读写



文章搜索



制作维护:李寻欢     Mail:[email protected]

关于本站 -- 网站服务 -- 版权条款 -- 联系方法 -- 网站帮助
Access爱好者版权所有 Copyright 2003-2005 All Rights Reserved 未经许可不得盗链