取得文件图标的办法:
Public Function GetIcon(Filename As String, icon_size As Long) As Long
Dim sh_info As SHFILEINFO SHGetFileInfo Filename, 0, sh_info, _
Len(sh_info), SHGFI_ICON + icon_size
GetIcon = sh_info.hIcon
End Function
Public Function GetIcon(Filename As String, icon_size As Long) As Long
Dim sh_info As SHFILEINFO SHGetFileInfo Filename, 0, sh_info, _
Len(sh_info), SHGFI_ICON + icon_size
GetIcon = sh_info.hIcon
End Function
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货