请教主!!

zxclen

如何改变窗体上的图标!(不是应用程序的图标)

楚狐

請把問題講得清楚點不太明白你的意思,你想要什么

WTM1

请明确问题目的！！
否则无法回答！！

gnoy

将如下代码存为标准模块
Option Compare Database
Option Explicit


Public 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

Public Declare Function SendMessage Lib "User32" _
                                    Alias "SendMessageA" _
                                    (ByVal hwnd As Long, _
                                     ByVal wMsg As Long, _
                                     ByVal wParam As Long, _
                                     lParam As Any) _
                                    As Long


Public Const WM_GETICON = &H7F
Public Const WM_SETICON = &H80
Public Const ICON_SMALL = 0
Public Const ICON_BIG = 1
Public Const IMAGE_BITMAP = 0
Public Const IMAGE_ICON = 1
Public Const IMAGE_CURSOR = 2
Public Const IMAGE_ENHMETAFILE = 3
Public Const LR_DEFAULTCOLOR = &H0
Public Const LR_MONOCHROME = &H1
Public Const LR_COLOR = &H2
Public Const LR_COPYRETURNORG = &H4
Public Const LR_COPYDELETEORG = &H8
Public Const LR_LOADFROMFILE = &H10
Public Const LR_LOADTRANSPARENT = &H20
Public Const LR_DEFAULTSIZE = &H40
Public Const LR_LOADMAP3DCOLORS = &H1000
Public Const LR_CREATEDIBHeader = &H2000
Public Const LR_COPYFROMRESOURCE = &H4000
Public Const LR_SHARED = &H8000

Public Function SetFormIcon(hwnd As Long, IconPath As String) As Boolean
    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
End Function
在需要的窗体OPEN事件中写入如下代码：
Dim flag As Boolean, strpicpath As String
    strpicpath = CurrentProject.Path & "\图标.ico" '假定图标与数据库在同一目录
    SetFormIcon Me.hwnd, strpicpath