向 wj.s 老师请教隐藏图标的问题

牛先生　发表于：2010-06-22 21:48:27 　

复制

我按你提示的代码，将它们带入到了窗体登陆背景的代码里，但是代开以后提示“找不到属性”“运行时错误3270”，请你给指点修改一下，谢谢了。

我在窗体登陆背景窗体的全部代码是：
Private Sub Form_Load()
' 选择应用程序图标

CurrentDb.Properties("AppIcon") = "E:\My Documents\数据库资料\图标2.BMP"

' 用作窗体和报表的图标

CurrentDb.Properties("UseAppIconForFrmRpt") = True

End Sub

Private Sub Form_Open(Cancel As Integer)
DoCmd.Maximize
End Sub

Top

wj.s 发表于：2010-06-22 23:40:20

不好意思,这里是我没注意出错了:

' 选择应用程序图标

CurrentDb.Properties("AppIcon") = "E:\My Documents\数据库资料\图标2.BMP"

在已经设置了图标的情况下,上述语句是不会有问题的,但没有设置的情况下就会报错

在这种情况下可参考下列文章作处理

http://www.accessoft.com/blog/article-show.asp?userid=869&Id=2655

Top

牛先生发表于：2010-06-23 08:57:21

WJ.S老师，我发现，即使是不使用代码，在启动>-应用程序标题和应用程序图标中设定，同样可以达到效果，那么还填入这些代码又有什么意义呢？我的理解是，写入代码以后，在使用已经设定好的数据库作为母本，新建空数据库的时候就不必再进行设定了，已经自定义的图标会自动显示的，但是我试验以后，却不是这样的，还得进行一次设定才可以的？有没有办法，不用每次设定就可以自动显示自定义的图标呢。

Top

wj.s 发表于：2010-06-23 12:00:40

主要是在启动窗口中图标的路径是绝对的,图标的路径移动了(如程序发布时,程序在用户那里不一定会与原路径一致),就会报错或图标不显示.这时就可以指定一个图标的相对路径了(如与数据库同一个文件夹下)

看如下示例(根据上文中网址修改了下):

点击下载此附件

Top

wj.s 发表于：2010-06-23 12:10:03

一个应用程序设定一次就OK了,除非你移动了应用程序的位置(这时可以使用文件的相对路径,把VBA代码放在启动或背景窗体的加载事件中).

至于新建数据库默认加载了图标和标题的,好像没有办法(有个笨想法,直接修改ACCESS数据库的模板,以后新建数据库时就应该OK了,不过未试过是否可行)

Top

总记录：4篇页次：1/1 9 1 :

Access交流中心

向 wj.s 老师请教隐藏图标的问题