智慧住建新型基础测绘多测合一房地一体

【源代码分享】VBA窗体加图标

时间：2019-12-13 08:15 作者：AcadApp 阅读：2099 评论：1

Windows10

其他

CASS9

Private Declare Function GetActiveWindow Lib "user32" () As Long

Private 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

Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal Hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long

Private Const WM_SETICON = &H80

Private Const IMAGE_ICON = 1

Private Const LR_LOADFROMFILE = &H10

Private Sub UserForm_Activate()

Dim Hwnd As Long

Hwnd = GetActiveWindow

Dim hIcon As Long

hIcon = LoadImage(0&, "c:\光缆.ico", IMAGE_ICON, 16, 16, LR_LOADFROMFILE)

If hIcon <> 0 Then

Call SendMessage(Hwnd, WM_SETICON, 0, ByVal hIcon)

End If

End Sub
窗体标题被遮住一部分,只要刷新一下窗体就可以了,可以这样
Me.Caption = Me.Caption