vb控制计算机并口示例

vb控制计算机并口示例

ID:31090452

大小:81.00 KB

页数:4页

时间:2019-01-06

vb控制计算机并口示例_第1页
vb控制计算机并口示例_第2页
vb控制计算机并口示例_第3页
vb控制计算机并口示例_第4页
资源描述:

《vb控制计算机并口示例》由会员上传分享,免费在线阅读,更多相关内容在工程资料-天天文库

1、作者:中国航空信息中心吴斌在VB应用程序中巧用DLL在使用VB开发多媒体应用程序时,如何合理地存放大量的多媒体资源,是一件十分棘手的事。如果将资源以文件形式存放在磁(光)盘上,使用时再从盘上读取,势必大大影响资源调用的速度。如果将资源直接编译在应用程序的可执行文件中,虽然可以获得令人满意的资源存取速度,但会导致最终的可执行文件尺寸大大膨胀。如何解决这个矛盾呢?笔者从Windows动态链接库的原理中得到启发,找到了一个结合二者优势的解决方法。动态链接库是实现Windows应川程序共亨资源、节省内存空间、提高使川效率的--

2、个重要技术手段。常见的动态库包含外部函数和资源,也有一些动态库只包含资源,如Windows字体资源文件,我们将这类动态库称Z为资源动态链接库。制作资源动态库的方法很多,笔者在此捉供了一种无需编程、简单有效的方法。该方法利JU/BorlandC++的资源管理器ResourceWorkshop的反编译能力,借川现成的动态库,将其改制为白己的资源动态库。具体方法是,拷贝一个现成的资源动态库文件(如windowssystem目录下的字体资源文件aiial.fot)到应用程序工作目录,更改文件名,如改为DEMO.DLLo然后在

3、ResourceWorkshop中打开该文件,选择其中原有的资源将其删除,再加入自己的资源,即可制成自己的资源动态库。由于篇幅所限,具体操作过程请读者参阅有关资料。不过有两个关键问题需要提请读者注意,其一,对于声音这类非Windows传统资源,在加入动态库之前,需要川户自定义-个资源类型以存放这类资源,如笔者在DEMO.DLL中为Windows音频文件定义TWAVE资源类熨;其二,动态库中每一个资源的资源名-

4、•分重耍,它是调用资源的关键,建议用户最好在加入资源后为其定义一个有意义的资源拿。通过上面介绍的资源动态库的简

5、单制作方法,即使不熟悉C语言的读者也可以轻松地制作自己的资源动态库了。现在,让我们来看看如何在VB多媒体应用程序中调用资源动态库屮的资源。VB本身并没有调用动态库的函数和语句,因此必须借助TWindowsAPI函数。下面笔者将结合一个实例,具体介绍调用方法。实例中使用的是笔者通过上述方法制作的资源动态库DEMO.DLL,其中包含两个BITMAP(.bmp)类型资源Bl和B2,两个WAVE(.wav)类型资源S1和S2。首先,新建一个VB工程,其屮包含一个窗体Fonnl和一个模块Module1o在窗体Form1中加入了一

6、个图片桩控件Picture1和四个命令按钮控件,Picture!用于显示动态库中的位图资源,四个命令按钮的属性设置和功能含义如下表:属性功能NameIndexCaptioncmdBitmap0BitmapA在Picture1中显示DEMO.DLL中资源名为Bl的位图资源cmdBitmap1BitmapB在Picture!中显示DEMO.DLL中资源名为B2的位图资源cnidSound0SoundA播放DEMO.DLL屮资源名为SI的声音资源cmdSound1SoundB播放DEMO.DLL中资源名为S2的声音资源接着在

7、Module!和Form1中加入下列代码,便可完成实例程序:※皿oudlel.bas淸单'声明API函数DeclareFunctionLoadLibrary%Lib"Kernel”(ByVailpLibFileName$)DeclareSubFreeLibraryLib"Kernel"(ByVaihLibModule%)DeclareFunctionLoadBitmap%Lib“Use广(ByVaihlnstance%,ByVaiIpBitmapNameAsAny)DeclareFunctionGetObj%Lib"G

8、DI"Alias"GetObject"(ByVaihObject%,ByVainCount%,IpObjectAsAny)DeclareFunctionCreateCompatibleDC%Lib"GDI"(ByVaihDC%)DeclareFunctionSelectObject%Lib"GDI"(ByVaihDC%,ByVaihObject%)DeclareFunctionBitBIt%Lib"GDI"(ByVaihDestDC%,ByVaix%,ByVaiy%,ByVainWidth%,ByVainHeight%

9、,ByVaihSrcDC%,ByVaiXSrc%,ByVaiYSrc%,ByVaidwRop&)DeclareFunctionDeleteDC%Lib"GDI"(ByVaihDC%)DeclareFunctionDeleteObject%Lib"GDI"(ByVaihObject%)DeclareFunctionFindResou

当前文档最多预览五页,下载文档查看全文

此文档下载收益归作者所有

当前文档最多预览五页,下载文档查看全文
温馨提示:
1. 部分包含数学公式或PPT动画的文件,查看预览时可能会显示错乱或异常,文件下载后无此问题,请放心下载。
2. 本文档由用户上传,版权归属用户,天天文库负责整理代发布。如果您对本文档版权有争议请及时联系客服。
3. 下载前请仔细阅读文档内容,确认文档内容符合您的需求后进行下载,若出现内容与标题不符可向本站投诉处理。
4. 下载文档时可能由于网络波动等原因无法下载或下载错误,付费完成后未能成功下载的用户请联系客服处理。