在ACCESS2000中如何通过程序修改ACCESS主窗体的标题和图标
内容导读
互联网集市收集整理的这篇技术教程文章主要介绍了在ACCESS2000中如何通过程序修改ACCESS主窗体的标题和图标,小编现在分享给大家,供广大互联网技能从业者学习和参考。文章包含2789字,纯文字阅读大概需要4分钟。
内容图文
![在ACCESS2000中如何通过程序修改ACCESS主窗体的标题和图标](/upload/InfoBanner/zyjiaocheng/534/e0c6260da25140de8dfb9162a2aad121.jpg)
在ACCESS2002中,可以 通过 数据库窗体的[启动]属性来设置应用 程序 (ACCESS主窗体)的 标题 和 图标 ,那么在ACCESS2000中怎么办呢?其实ACCESS提供了AppTitle和AppIco两个属性以及RefreshTitleBar方法,可以用来实现这个目的,本文将详细介绍 如何 编制 程序
在ACCESS2002中,可以通过数据库窗体的[启动]属性来设置应用程序(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("我的应用程序")
本文作者:未知内容总结
以上是互联网集市为您收集整理的在ACCESS2000中如何通过程序修改ACCESS主窗体的标题和图标全部内容,希望文章能够帮你解决在ACCESS2000中如何通过程序修改ACCESS主窗体的标题和图标所遇到的程序开发问题。 如果觉得互联网集市技术教程内容还不错,欢迎将互联网集市网站推荐给程序员好友。
内容备注
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 gblab@vip.qq.com 举报,一经查实,本站将立刻删除。
内容手机端
扫描二维码推送至手机访问。