Office中国论坛/Access中国论坛

标题: 关于Access2000图标问题,多谢 [打印本页]

作者: lzj_freedom 时间: 2002-3-15 02:22
标题: 关于Access2000图标问题,多谢
我想给程序加个图标,在工具->启动中的应用程序图标只能用绝对路径,有什么办法让图标嵌入到应用程序中呢?[em16]

作者: tmtony 时间: 2002-3-15 03:58
用这条语句 Changeproperty "APPICON", dbText, "路径" （语法不知道有否记错？）

要先定义这个函数
Function Changeproperty(Strpropname As String, Varproptype As Variant, Varpropvalue As Variant) As Integer
Dim Dbs As Database, Prp As Property
Const Conpropnotfounderror = 3270 '属性没有找到的错误常量

Set Dbs = CurrentDb
On Error GoTo Change_Err
Dbs.Properties(Strpropname) = Varpropvalue
Changeproperty = True

Change_Bye:
MsgBox "属性[" & Dbs.Properties(Strpropname).Name & "] 已经被设置为[" & Dbs.Properties(Strpropname) & "]" & vbCrLf & "你可关闭程序后再打开看看效果"
Exit Function

Change_Err:
If Err = Conpropnotfounderror Then  ' 属性没有找到
      Set Prp = Dbs.CreateProperty(Strpropname, _
         Varproptype, Varpropvalue)

Dbs.Properties.Append Prp
      Resume Next    '继续执行后面的程序

Else
      '未知错误
      Changeproperty = False
      Resume Change_Bye
End If
End Function

作者: lzj_freedom 时间: 2002-3-15 21:55
由衷感谢tmtony站长

作者: haixing 时间: 2003-12-14 06:35
标题: [求教]tmtony站长，更改图标后，主窗口不能隐藏！！！
tmtony站长，更改图标后，主窗口不能隐藏！！！
有什么解决的办法吗，请赐教。

作者: blsoft 时间: 2004-4-11 17:35
试试这个办法，我现在就在用
1、首先找一个图标，与ACCESS文件放在同一个文件夹下面，取名为AppIcon
2、在模块里添加一个过程

Public Sub SetAppTitle(strTitle As String)
CurrentProject.Properties.Add "AppTitle", strTitle
CurrentProject.Properties.Add "AppIcon", CurrentProject.Path & "\AppIcon.ico"
Application.RefreshTitleBar
End Sub
说明：strTitle是标题，这个办法可以同时修改图标与标题
3、在登录\启动窗体中call这个过程

注：我用的是adp文件，没试过mdb

[此贴子已经被作者于2004-4-11 9:35:45编辑过]

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)