<<< 返回 access911.net 编程静态资料库索引页

如何更改Access主窗口左上角的图标以及应用程序标题(自定义图标)?RefreshTitleBar 为何无效?

 

作者:cg1  摘自:access911.net  录入:cg1  时间:2002-11-21  浏览人次:1834


专题地址:http://access911.net/fixhtm/73FAB11E.htm 如果需要更详细的评论或说明,请点击该地址。

 

简述:如何更改Access主窗口左上角的图标以及应用程序标题(自定义图标)?《窗体》
如何更改Access主窗口左上角的图标以及应用程序标题(自定义图标)?RefreshTitleBar 为何无效?《窗体》

 


问题:

如何更改Access主窗口左上角的图标以及应用程序标题(自定义图标)?《窗体》
我在本机上定义了标题属性后直接用 RefreshTitleBar 刷新可以立即显示我作的修改,但是COPY MDB 到其他机器就发现 RefreshTitleBar 无效,但是我直接到 菜单 -> 工具 -> 启动 里面看,标题信息的确修改了?这是为啥?

 


回答:

Sub cmdAddProp_Click() 
  Dim intX As Integer 
  Const DB_Text As Long = 10 
    '设置应用程序标题
  intX = AddAppProperty(""AppTitle"", DB_Text, ""我的自定义标题"") 
    '设置图标
  intX = AddAppProperty(""AppIcon"", DB_Text, ""C:\Windows\Cars.ico"") 
  CurrentDb.Properties(""UseAppIconForFrmRpt"") = 1 
  Application.RefreshTitleBar 
    ' 回答问题2:这里请注意,如果.....................
...........

资料库随时有更新,欲查看最新详情请单击专题地址http://access911.net/fixhtm/73FAB11E.htm

 


上一篇:如何在ACCESS2000中VBA调用导入向导?

下一篇:如何四舍五入?

2017年2月22日生成静态资料