数码吧

ShellAbout API函数“关于”对话框中显示自定义图标（VBA版）

ShellAbout函数声明如下：

Private Declare Function ShellAbout Lib "shell32.dll" Alias "ShellAboutA" (ByVal hwnd As Long, ByVal szApp As String, ByVal szOtherStuff As String, ByVal hIcon As Long) As Long

它包含4个参数：

• hwnd:窗口的句柄：设置为0则对话框显示在桌面。设置为Application.hwnd则对话框显示在Excel里。也可用FindWindow函数来获取。
• szApp:左上角的文字，通常为软件名称
• szOtherStuff:显示在对话框中央的文本，可以是公司名称
• hIcon:自定义图标的句柄，设置为0则默认是微软的图标。也可使用LoadPicture函数返回一个自定义文件的图标句柄。

首先看一下最基本的用法。

ShellAbout Application.hwnd, "象棋软件", "QQ群：61840693", 0&

运行上述代码，Excel弹出这个对话框。

可以看到左边没有显示图标。下面来显示我电脑中的一个ico文件作为图标。修改代码如下

Sub 设置对话框图标()
    Dim Icon As stdole.IPictureDisp
    Set Icon = stdole.StdFunctions.LoadPicture("E:\VB6常用的ico图标\WATCH01.ICO")
    ShellAbout hwnd:=0, szApp:="自定义图标", szOtherStuff:="手表", hIcon:=Icon
End Sub

运行效果