- 1、本文档共6页,可阅读全部内容。
- 2、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
- 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
- 5、该文档为VIP文档,如果想要下载,成为VIP会员后,下载免费。
- 6、成为VIP后,下载本文档将扣除1次下载权益。下载后,不支持退款、换文档。如有疑问请联系我们。
- 7、成为VIP后,您将拥有八大权益,权益包括:VIP文档下载权益、阅读免打扰、文档格式转换、高级专利检索、专属身份标志、高级客服、多端互通、版权登记。
- 8、VIP文档为合作方或网友上传,每下载1次, 网站将根据用户上传文档的质量评分、类型等,对文档贡献者给予高额补贴、流量扶持。如果你也想贡献VIP文档。上传文档
查看更多
在VB应用程序中巧用DLL
在VB应用程序中巧用DLL
在使用VB开发多媒体应用程序时,如何合理地存放大量的多媒体资源,是一件十分棘手的事。如果将资源以文件形式存放在磁(光)盘上,使用时再从盘上读取,势必大大影响资源调用的速度。如果将资源直接编译在应用程序的可执行文件中,虽然可以获得令人满意的资源存取速度,但会导致最终的可执行文件尺寸大大膨胀。如何解决这个矛盾呢?笔者从Windows动态链接库的原理中得到启发,找到了一个结合二者优势的解决方法。
动态链接库是实现Windows应用程序共享资源、节省内存空间、提高使用效率的一个重要技术手段。常见的动态库包含外部函数和资源,也有一些动态库只包含资源,如Windows字体资源文件,我们将这类动态库称之为资源动态链接库。制作资源动态库的方法很多,笔者在此提供了一种无需编程、简单有效的方法。该方法利用了Borland C++的资源管理器Resource Workshop的反编译能力,借用现成的动态库,将其改制为自己的资源动态库。具体方法是,拷贝一个现成的资源动态库文件(如windows\system目录下的字体资源文件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
您可能关注的文档
- 2010年越秀区九年级英语读写竞赛试题(e.doc
- 汝南县节水增效示范工程报告及管理体制.doc
- 结构力学第3章3-4_2(华南理工).ppt
- 第九课画圆弧.ppt
- 工社团作计划书.doc
- 2012-E111瓜里完小学教学楼.doc
- DB2在aix上的安装.doc
- 2012年01级健康教育题目.doc
- 09年秋季开学工作汇报.doc
- 创业项目计划展示.ppt
- 摘自伟大济谜团教授推理指南.pdf
- 佳实践2010 hpc咨询会openfoam best practices.pdf
- 涂抹器开源组件概述下表列出了应用程序项目使用applicator components licensing.pdf
- 讲稿介绍理论lec3-ethical theoriesbeLEC3.pdf
- 监控安装源码.pdf
- 方差分析nag anova阶乘g04cac1 purpose大物实验报告cl05.pdf
- installation procedures for emc use onlyvplex安装程序仅使用.pdf
- 街头小掌柜推荐.pdf
- 【课件】全等三角形及其性质+课件+人教版(2024)八年级数学上册+.pptx
- 2024-2025学年选调生考试模考模拟试题往年题考附答案详解.docx
文档评论(0)