网站制作学习网经验与学习→正文:更改access标题
字体:

更改access标题

经验与学习 2008/8/29 11:00:27  点击:不统计

关键词:更改access标题,如何更改access标题,怎么更改access标题,更改access数据库标题,更改access数据库标题的方法



更改access标题的方法分两种,一种是直接用access工具进行修改.另一种是通过程序.

第一种:通过access工具更改access标题

打开access表,点击上方菜单中的"工具",再选择"启动"选项,你就可以看到

应用程序标题(P),这里就是access数据库的标题了.修改即可

下方的:应用程序图标:还可以更换数据库图标

第二种:通过程序更改access标题(来源于网络)

Public Const DB_Text As Long = 10 ' 属性值为文本类型

Public Const DB_Boolean As Long = 1 ' 属性值为逻辑类型





接下编写下列函数(此函数来自ACCESS帮助中),以实现在数据库中添加或修改数据库属性。

Public Function AddAppProperty(strName As String, varType As Variant, varvalue As Variant) As Integer



Dim dbs As Object, prp As Variant

Const conPropNotFoundError = 3270



' 返回指向当前数据库的 Database 对象变量。

Set dbs = CurrentDb ' 如果是ADP,则为 CurrentProject

On Error GoTo AddProp_Err

' 更改属性值, 在更改属性值出错出,

' 则表示该属性不存在,转到错误处理程序。

dbs.Properties(strName) = varvalue

AddAppProperty = True



AddProp_Bye:

Exit Function



AddProp_Err:

If Err = conPropNotFoundError Then

' 添加此属性

Set prp = dbs.CreateProperty(strName, varType, varvalue)

dbs.Properties.Append prp

Resume

Else

AddAppProperty = False

Resume AddProp_Bye

End If

End Function







然后编写更改ACCESS标题和图标的函数:

Public Function ChangeMyAccessTitle(strTitle As String) As Integer

' 设置ACCESS主窗体的标题

ChangeMyAccessTitle = AddAppProperty("AppTitle", DB_Text, strTitle)

Application.RefreshTitleBar ' 刷新标题栏,设置ACCESS的标题

End Function





Public Function ChangeMyAccessIco(strIcoPath As String) As Integer

' 设置ACCESS主窗体的图标

ChangeMyAccessIco = AddAppProperty("AppIcon", DB_Text, strIcoPath)

Application.RefreshTitleBar ' 刷新标题栏,设置ACCESS的图标

End Function





如果想要把 ACCESS 的图标改在 C:\my.ico, 则只要这样就可以了:

iX = ChangeMyAccessIco("C:\my.ico")





如果想要把 ACCESS 的标题改为“我的应用程序”,则只要这样:

iX = ChangeMyAccessTitle("我的应用程序")



·上一篇:取用户真实的IP地址 >>    ·下一篇:FSO >>
推荐文章
最新文章