变更窗体图标

时　间:2007-10-21 10:10:05
作　者:竹笛   ID：8  城市：上海  QQ：3059255
摘　要:变更窗体图标
正　文:

来源：tehthspace.accxp.com

Declare Function LoadImage Lib "user32" Alias "LoadImageA" (ByVal hInst As Long, _
ByVal lpsz As String, ByVal un1 As Long, ByVal n1 As Long, ByVal n2 As Long, _
ByVal un2 As Long) As Long
Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, _
ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long


Const WM_SETICON = &H80
Const IMAGE_ICON = 1
Const LR_LOADFROMFILE = &H10


Function SetFormIcon(hwnd As Long, IconPath As String) As Boolean
On Error GoTo Exit_ERR
Dim hIcon As Long

hIcon = LoadImage(0&, IconPath, IMAGE_ICON, 16, 16, LR_LOADFROMFILE)

If hIcon <> 0 Then
Call SendMessage(hwnd, WM_SETICON, 0, ByVal hIcon)
SetFormIcon = True
Else
End
End If
Exit_ERR:
Exit Function
End Function

Access软件网官方交流QQ群 (群号:54525238) 　　　　　　Access源码网店