如何使用API中的ShellAbout函数?

作者：绿色风分类：时间：2022-08-17 浏览：119

楼主
wise

Q：如何使用API中的ShellAbout函数?
A:ALT+F11→插入模块→输入以下代码:

Option Explicit
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
Private Declare Function GetActiveWindow Lib "user32" () As Long
'获得活动窗口的句柄,如没有窗口处于活动状态，则返回零值
Private Sub CommandButton1_Click()
Dim hwnd As Long
Dim i As Long
hwnd = GetActiveWindow() '获取活动窗口句柄
i = ShellAbout(hwnd, "专家级社区", "Excel技巧网", Me.MouseIcon)
End Sub

ShellAbout.rar

2楼
亡者天下

过来学习一下

免责声明

有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，经与ExcelTip.Net站长Apolloh商议并征得其同意，现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，供有需要的人士查询使用，也慰缅曾经的论坛时代。所示各个帖子的原作者如对版权有异议，可与本人沟通提出，或于本站点留言，我们会尽快处理。在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一

评论列表