ACCESS更改系统和窗体的图标

背景:

1.将一个图像文件放在MDB文件的同一个文件夹中，假设文件名为ico.ico

2.有一个窗体frmOpen，它被设置为启动窗体。

在窗体frmOpen的open事件中编写代码:

private form _ open(cancel as integer)
'更改表单图标
SetFormIconme.hwnd，currentproject . path & " \ ico . ico "
'更改系统标题和图标
dimi ntx as integer
const db _ text as long = 10
intx = add app property(" app title "，db _ text，" XXX system ")
intx = add app property(" app icon "，db _ text，current project

在模块中编写代码:

选项显式

声明函数LoadImage Lib "User32 "别名" LoadImageA" (ByVal hInst为Long，_
ByVal lpsz为String，ByVal un1为Long，ByVal n1为Long，ByVal n2为Long，_
ByVal un2为Long)声明函数SendMessage Lib "User32 "别名" SendMessageA" (ByVal hWnd为Long，_
ByVal wMsg为Long，ByVal wparam为Long，lparam为Any

Const WM _ GETICON = & H7F
Const WM _ SETICON = & H80
Const ICON _ SMALL = 0
Const ICON _ BIG = 1
Const IMAGE _ BITMAP = 1
Const IMAGE _ CURSOR = 2
Const IMAGE _ enh metafile = 3
Const LR _ default COLOR = & H0
Const LR _ LR

函数SetFormIcon(hWnd为Long，IconPath为String)为Boolean
On err GoTo Exit _ err
Dim hIcon为Long
If Dir(IconPath) = " "然后退出函数
hIcon = LoadImage(0 & IconPath，IMAGE_ICON，16，16，LR_LOADFROMFILE)
If hIcon 0然后
调用SendMessage(hWnd，WM_SETICON，0，ByVal hIcon)

函数AddAppProperty(strName为String，varType为Variant，varvalue为Variant)为Integer
Dim dbs为Object，prp为Variant
Const conPropNotFoundError = 3270
Set DBS = current db
On Error GoTo add prop _ Err
DBS。properties(strName)= varvalue
AddAppProperty = True
add prop _ Bye:
Exit Function
add prop _ Err:
If Err = conPropNotFoundError然后
Set prp = dbs。CreateProperty(strName，varType，varvalue)
dbs。properties . Append PRP
Resume
Else
AddAppProperty = False
Resume add prop _ Bye
End If
End Function