服务器维护网站维护数据维护系统安全配置
专业定制网站企业建站一条龙、软件定制开发、系统集成
稳定虚机备案一条龙，稳定快捷通道
服务理念诚信守诺客户至上专业精神专心贯注

在VB应用程序中巧用DLL

作者：黑客防线网安VB教程基地来源：黑客防线网安VB教程基地浏览次数：0

黑客防线网安网讯：在使用VB开发多媒体应用程序时，如何合理地存放大量的多媒体资源，是一件十分棘手的事。如果将资源以文件形式存放在磁（光）盘上，使用时再从盘上读取，势必大大影响资源调用的速度。如果将...

在使用VB开发多媒体应用程序时，如何合理地存放大量的多媒体资源，是一件十分棘手的事。如果将资源以文件形式存放在磁（光）盘上，使用时再从盘上读�。票卮蟠笥跋熳试吹饔玫乃俣取Ｈ绻试粗苯颖嘁朐谟τ贸绦虻目芍葱形募校淙豢梢曰竦昧钊寺獾淖试创嫒∷俣龋岬贾伦钪盏目芍葱形募叽绱蟠笈蛘汀Ｈ绾谓饩稣飧雒苣兀勘收叽覹indows动态链接库的原理中得到启发，找到了一个结合二者优势的解决方法。

动态链接库是实现Windows应用程序共享资源、节省内存空间、提高使用效率的一个重要技术手段。常见的动态库包含外部函数和资源，也有一些动态库只包含资源，如Windows字体资源文件，我们将这类动态库称之为资源动态链接库。制作资源动态库的方法很多，笔者在此提供了一种无需编程、简单有效的方法。该方法利用了Borland C++的资源管理器Resource Workshop的反编译能力，借用现成的动态库，将其改制为自己的资源动态库。具体方法是，拷贝一个现成的资源动态库文件（如windowssystem目录下的字体资源文件arial.fot）到应用程序工作目录，更改文件名，如改为DEMO.DLL。然后在Resource Workshop中打开该文件，选择其中原有的资源将其删除，再加入自己的资源，即可制成自己的资源动态库。由于篇幅所限，具体操作过程请读者参阅有关资料。不过有两个关键问题需要提请读者注意，其一，对于声音这类非Windows传统资源，在加入动态库之前，需要用户自定义一个资源类型以存放这类资源，如笔者在DEMO.DLL中为Windows音频文件定义了WAVE资源类型；其二，动态库中每一个资源的资源名十分重要，它是调用资源的关键，建议用户最好在加入资源后为其定义一个有意义的资源名。

通过上面介绍的资源动态库的简单制作方法，即使不熟悉C语言的读者也可以轻松地制作自己的资源动态库了。现在，让我们来看看如何在VB多媒体应用程序中调用资源动态库中的资源。VB本身并没有调用动态库的函数和语句，因此必须借助于Windows API函数。下面笔者将结合一个实例，具体介绍调用方法。实例中使用的是笔者通过上述方法制作的资源动态库DEMO.DLL，其中包含两个BITMAP（.bmp）类型资源B1和B2，两个WAVE（.wav）类型资源S1和S2。

首先，新建一个VB工程，其中包含一个窗体Form1和一个模块Module1。在窗体Form1中加入了一个图片框控件Picture1和四个命令按钮控件，Picture1用于显示动态库中的位图资源，四个命令按钮的属性设置和功能含义如下表：

属性功能

Name Index Caption
cmdBitmap 0 BitmapA 在Picture1中显示DEMO.DLL中资源名为B1的位图资源
cmdBitmap 1 BitmapB 在Picture1中显示DEMO.DLL中资源名为B2的位图资源
cmdSound 0 SoundA 播放DEMO.DLL中资源名为S1的声音资源
cmdSound 1 SoundB 播放DEMO.DLL中资源名为S2的声音资源
接着在Module1和Form1中加入下列代码，便可完成实例程序：
※Moudle1.bas清单
'声明API函数
Declare Function LoadLibrary% Lib "Kernel" (ByVal lpLibFileName$)
Declare Sub FreeLibrary Lib "Kernel" (ByVal hLibModule%)
Declare Function LoadBitmap% Lib "User" (ByVal hInstance%, ByVal lpBitmapName As Any)
Declare Function GetObj% Lib "GDI" Alias "GetObject" (ByVal hObject%, ByVal nCount%, lpObject As Any)
Declare Function CreateCompatibleDC% Lib "GDI" (ByVal hDC%)
Declare Function SelectObject% Lib "GDI" (ByVal hDC%, ByVal hObject%)
Declare Function BitBlt% Lib "GDI" (ByVal hDestDC%, ByVal x%, ByVal y%, ByVal nWidth%, ByVal nHeight%, ByVal hSrcDC%, ByVal XSrc%, ByVal YSrc%, ByVal dwRop&)
Declare Function DeleteDC% Lib "GDI" (ByVal hDC%)
Declare Function DeleteObject% Lib "GDI" (ByVal hObject%)
Declare Function FindResource% Lib "Kernel" (ByVal hInstance%, ByVal lpName$, ByVal lpType As Any)
Declare Function LockResource& Lib "Kernel" (ByVal hResData%)
Declare Function LoadResource% Lib "Kernel" (ByVal hInstance%, ByVal hResInfo%)
Declare Function GlobalUnlock% Lib "Kernel" (ByVal hMem%)
Declare Function sndPlaySound% Lib "MMSYSTEM" (ByVal lpszSoundName As Any, ByVal uFlags%)
'位图数据结构类型
Type BITMAP
bmType As Integer
bmWidth As Integer
bmHeight As Integer
bmWidthBytes As Integer
bmPlanes As String * 1
bmBitsPixel As String * 1
bmBits As Long
End Type