在ACCESS2000中如何通过程序修改ACCESS主窗体的标题

2020-03-24 18:26:46

字体：大中小

来源：转载

供稿：网友

在ACCESS2002中，可以通过数据库窗体的[启动]属性来设置html' target='_blank'>应用程序(ACCESS主窗体)的标题和图标，那么在ACCESS2000中怎么办呢？其实ACCESS提供了AppTitle和AppIco两个属性以及RefreshTitleBar方法,可以用来实现这个目的，本文将详细介绍如何编制程序和使用。首先,新建一个模块，在模块中定义两个常量(来自微软帮助中的例程)：PublicConstDB_TextAsLong=10 '属性值为文本类型
PublicConstDB_BooleanAsLong=1 '属性值为逻辑类型接下编写下列函数(此函数来自ACCESS帮助中)，以实现在数据库中添加或修改数据库属性。PublicFunctionAddAppProperty(strNameAsString,varTypeAsVariant,varvalueAsVariant)AsInteger
'=============================================================================================
'本函数用来给当前数据库(.mdb)添加属性
'
'strName：属性名
'varType：属性类型
'varvalue：属性的值
'
'返回值：成功为True(-1)
' 失败为False(0)
'
' 例如：应用程序标题栏和应用程序图标
' intX=AddAppProperty("AppTitle",DB_Text,"更改应用各标题栏和应用程序图标的例子")
' intX=AddAppProperty("AppIcon",DB_Text,CurrentProject.Path "MSN.ico")
' '应用设置
' Application.RefreshTitleBar
'
' 易和软件：朱亦文2002.05.01
'=============================================================================================
DimdbsAsObject,prpAsVariant
ConstconPropNotFoundError=3270
'返回指向当前数据库的Database对象变量。
Setdbs=CurrentDb '如果是ADP，则为CurrentProject
OnErrorGoToAddProp_Err
'更改属性值,在更改属性值出错出，
'则表示该属性不存在，转到错误处理程序。
dbs.Properties(strName)=varvalue
AddAppProperty=True
AddProp_Bye:
ExitFunction
AddProp_Err:
IfErr=conPropNotFoundErrorThen
'添加此属性
Setprp=dbs.CreateProperty(strName,varType,varvalue)
dbs.Properties.Appendprp
Resume
Else
AddAppProperty=False
ResumeAddProp_Bye
EndIf
EndFunction 然后编写更改ACCESS标题和图标的函数：PublicFunctionChangeMyAccessTitle(strTitleAsString)AsInteger
'设置ACCESS主窗体的标题
ChangeMyAccessTitle=AddAppProperty("AppTitle",DB_Text,strTitle)
Application.RefreshTitleBar '刷新标题栏，设置ACCESS的标题
EndFunction

PublicFunctionChangeMyAccessIco(strIcoPathAsString)AsInteger
'设置ACCESS主窗体的图标
ChangeMyAccessIco=AddAppProperty("AppIcon",DB_Text,strIcoPath)
Application.RefreshTitleBar '刷新标题栏，设置ACCESS的图标
EndFunction 如果想要把ACCESS的图标改在C:my.ico,则只要这样就可以了：iX=ChangeMyAccessIco("C:my.ico") 如果想要把ACCESS的标题改为“我的应用程序”，则只要这样：iX=ChangeMyAccessTitle("我的应用程序")html教程

郑重声明：本文版权归原作者所有，转载文章仅为传播更多信息之目的，如作者信息标记有误，请第一时间联系我们修改或删除，多谢。

上一篇：Application Access Violation or Hang After Applying SP4

下一篇：Access如何制作复杂报表