关于Access2000图标问题,多谢

lzj_freedom

我想给程序加个图标,在工具->启动中的应用程序图标只能用绝对路径,有什么办法让图标嵌入到应用程序中呢?[em16]

tmtony

用这条语句 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

由衷感谢tmtony站长

haixing

tmtony站长，更改图标后，主窗口不能隐藏！！！
有什么解决的办法吗，请赐教。

blsoft

试试这个办法，我现在就在用
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编辑过]