读取dll中的bmp，ico，wav文件（开源了）

最新推荐文章于 2022-06-16 09:24:28 发布

原创

最新推荐文章于 2022-06-16 09:24:28 发布 · 934 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#dll #function #integer #string #user #byte

这篇博客介绍如何使用VBA加载DLL资源库中的BMP、ICO等图像文件，并展示了如何在用户界面中显示这些资源。通过LoadLibrary、LoadBitmap、LoadIcon等API函数实现DLL资源的读取与显示。

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

大家一定为程序一些图片资源和声音资源加密而头疼把，有了资源型的dll，完全能解决这个问题。
新建一个Activex dll（当然标准的dll一样也可以），添加资源文件，可以把你想放的bmp（多大文件都可以例子中放了个6mb的图片），ico，wav
都可以放进去，记住一定要改名啊，不要用系统自动的名字。然后生成dll就可以了（demo.dll）。
接下来，我们新建一个标准exe，代码如下：
Option Explicit
Private Sub cmdSound_Click(Index As Integer)
Select Case Index
Case 0
load_sound ("S1")
Case 1
load_sound ("S2")
End Select
End Sub
Private Sub Command1_Click()
Dim a
Picture1.Picture = LoadPicture("")

Call load_pic(Picture1.hdc, "B2") '加载bmp

End Sub

Private Sub Command2_Click()
Picture1.Picture = LoadPicture("")

Call load_ico(Picture1.hdc, "I1") '加载ico

End Sub

Private Sub Command3_Click()
Picture1.Picture = LoadPicture("")

Call load_ico(Picture1.hdc, "I2") '加载ico
End Sub
再新建个模块代码如下：
Public Declare Function LoadLibrary Lib "kernel32" Alias "LoadLibraryA" (ByVal lpLibFileName As String) As Long
Public Declare Function LoadBitmap Lib "user32" Alias "LoadBitmapA" (ByVal hInstance As Long, ByVal lpBitmapName As String) As Long
Public Declare Function GetObject Lib "gdi32" Alias "GetObjectA" (ByVal hObject As Long, ByVal nCount As Long, lpObject As BITMAP) As Long
Public Declare Function CreateCompatibleDC Lib "gdi32" (ByVal hdc As Long) As Long
Public Declare Function SelectObject Lib "gdi32" (ByVal hdc As Long, ByVal hObject As Long) As Long
Public Declare Function BitBlt Lib "gdi32" (ByVal hDestDC As Long, ByVal x As Long, ByVal y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hSrcDC As Long, ByVal xSrc As Long, ByVal ySrc As Long, ByVal dwRop As Long) As Long
Public Declare Function DeleteDC Lib "gdi32" (ByVal hdc As Long) As Long
Public Declare Function DeleteObject Lib "gdi32" (ByVal hObject As Long) As Long
Public Declare Function FindResource Lib "kernel32" Alias "FindResourceA" (ByVal hInstance As Long, ByVal lpName As String, ByVal lpType As String) As Long
Public Declare Function LockResource Lib "kernel32" (ByVal hResData As Long) As Long
Public Declare Function LoadResource Lib "kernel32" (ByVal hIn