VB6使用32位图标代码收藏_vb6 32位图标-优快云博客

本文链接：https://blog.youkuaiyun.com/xiaoyao961/article/details/138480767

本文详细介绍了如何在VB6中使用`CreateIconFromResourceEx`和`DrawIconEx`函数处理32位带Alpha通道的图标，包括源码展示和实际操作示例，展示了从文件加载图标并动态在窗体上绘制的过程。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

看到带Alpha通道的32位图标那绚丽性感的外表，对于无法逃离“爱美之心人皆有之”这句俗话的人(包括我)早就垂涎三尺了。感谢微软给我们选择美丽的机会，能让我们自己的软件也在外表上成为让别人倾慕甚至以身相许的筹码。想起来容易，做起来才发现整容工作原来还真没那么简单。对于饱读“有志者事竟成,破釜沉舟百二秦关终属楚......”的我......嗯嗯嗯，夸张的天昏地暗、飞沙走石...... 终于皇天不负苦心人(又来了，其实我官方身份是诗人。)一个Very very简单的类诞生了。说了一堆废话，还是贴上源码吧，免得被人唾骂。
' ::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
' VB6中使用32位图标
' :::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::

Option   Explicit

Private  Type ICONDIRENTRY
    bWidth   As   Byte
    bHeight   As   Byte
    bColorCount   As   Byte
    bReserved   As   Byte
    wPlanes   As   Integer
    wBitCount   As   Integer
    dwBytesInRes   As   Long
    dwImageOffset   As   Long
End  Type

Private  Type ICONDIR
    idReserved  As   Integer
    idType  As   Integer
    idCount  As   Integer
    idEntries()  As  ICONDIRENTRY
End  Type

Private   Dec