来源:https://blog.csdn.net/miaozk2006/article/details/82417156

在几乎所有的Windows应用程序中都拥有资源文件,这些文件定义使用应用程序将要显示很多的用户界面元素,以及提供程序所需要的各种类型数据的存储场所。资源文件在VC应用程序中应用十分广泛,在VB应用中却很少提及它。其实在开发VB应用程序时,一样可以将要用到的字符串、位图、图标和其它类型的数据等做成一个资源文件。因为这样做至少有以下几个优点:(1)提高性能减少内存空间的占用,这是因为字符串、位图、图标和数据可以不必在程序启动或调用窗体时就全部加载,而是根据需要随时从资源文件中加载。(2)将所需要的资源文件中单独存放在一个资源文件中,使用移植程序和更改一些界面显示变得十分简单,不必访问程序的源代码。

  下面就和大家具体谈谈如何在VB中建立和使用资源文件。

  首先,我们先了解一下windows应用程序中一般经常使用的资源:

  位图:位图是用于创建应用程序用户界面的图像。例如,用户可以为工具栏按钮创建一套位图,也可以创建在其它窗口上显示的位图。一般来说,都是在图像编辑器中创建位图,然后再将该位图添加到资源文件中。

  图标:图标是类似于位图的小图像,然而,虽然位图可以具有任意大小的尺寸,但是图标却小得多,通常为16*16像素或32*32像素。图标使用的很多方法与位图一样。然而,图标通常被用作代表最小化应用程序的图象、代表应用程序文档类型的图像和其它类型的应用系统。

  字符串表:就是指文本串的一个表格,通常来说字符串用来显示菜单命令的提示、对话框中和消息框中显示的信息。要访问串表格中的文本串,需引用串的ID,它与定义表格的源文件中的串相联系。

  光标:光标是代表鼠标在屏幕上的位置的图像。尽管windows 系统定义和许多类型的光标,但用户也可以创建自己需要的光标。

  定制资源:定制资源是用户想存储在其应用程序资源文件中的任何类型的数据。这些数据可以是文本文件或二进制文件,用户可以用任何喜欢的方式定制资源。资源文件只是作为存储区域。创建了定制资源,可以避免必须从磁盘文件中加载数据,因为数据随资源文件一起加载。

  对话框:对话框的资源定义包括样式标志(控制对话框外观及行为的值)以及对话框中含控件的大小和位置。

  菜单栏:用户应用程序的菜单栏也可以在资源文件中定义。可以在资源文件中指定命令和命令的ID,以用命令在菜单中的位置。

  加速器:加速器也称为热键。它们是用户快速选取命令时所按下的键,使用热 键时,不必在应用程序的菜单中寻找命令。加速器在一个表格中定义,这个表将按键与命令资源的ID联系起来。

  那么在VB开发环境中如何使用这些资源呢?

  1、添加资源文件编辑器,

   启动VB6.0的IDE集成环境,新建一个工种。点选菜单“外接程序”下的“外接程序管理器”,在弹出的对话框的列表框中选择“VB 6资源编辑器”,选择加载并单击“确定“后退出对话框。这样在“工具”菜单栏中就有一项“vb资源编程器”了。打开这个工具就可以进行资源文件的编辑了。

  2、编辑资源文件

  在资源编辑器中编辑资源文件非常简单。它可是编辑我们在上面先提到的位图、图标、光标、字符串及定制资源五种类型的资源,如图1所示:

  在进行编辑时,点击相应的图标就可以添加资源了。

  编辑资源的方法也很容易,以添加图片为例看一看添加位图的方法:点击添加位图按钮,在弹出的对话框中选择一个位图文件,单击“OK”后,位图的添加就完成了,在这里要注意属性按钮,点击它以后,可以选择请语言版本并输入资源的ID号,这个ID号是标识一类资源的唯一编号,必须记住资源的ID号,以使在应用程序中调用。编辑好资源后,关闭资源编辑器,资文件自动加入新建的工种内。另外,也必须将资源文件保存。其它资源的编辑方法也大体上一样。

  3、使用资源文件,在应用程序中调用资源文件与直接使用资源基本上是一致的。对了,在一个工种中只能保存一个资源文件,在使用资源文件之前,请必须保证资源已经加入到资源文件中了。

  调用资源文件中资源的函数有:

  LoadResString 返回一个文本字符串。语法:LoadResString(index) index必需是一个整数,它用来指定资源文件中数据的标识符(即经常提到的ID号),如果ID号为1的资源保留给应用程序图标。

  LoadResPicture 用以从资源 (.res) 文件装载位图、图标或光标。它的语法:

  LoadResPicture(index, format)

  LoadResPicture 函数的语法包含下列部分:

  参数 描述

  index 一个整数或字符串,它用来指定资源文件中数据的标识符 (ID) 。ID标识符为 1 的资源保留给应用程序的图标。

  format 必需的。一个数值或常数,如下列“设值"中所描述的,指定返回数据的格式。

用于 format 的设置值有:

vbResBitmap 位数 0 位图资源

  vbResIcon 图标 1 图标资源

  vbResCursor 2 光标资源

  说明:可以使用 LoadResPicture 函数代替对存储在 Form 或控件的 Picture 属性中的图形的引用。

  LoadResData 返回一个Byte数组,用以从资源 (.res) 文件装载若干可能类型的数据。语法 为:LoadResData(index, format)

  LoadResData 函数的语法包含下列部分:

  部分 描述

  index 必需的。一个整数或字符串,它用来指定资源文件中数据的标识符 (ID)。ID 标识为 1 的资源保留给应用程序的图标。

  Format 必需的。一个数值,它用来按照下列“设置值"中的描述,指定返回数据的原始格式。该数值也可以是用户定义资源的字符串名。

  设置值 用于 format 的设置值有:

  设置值 描述

  1 光标资源

  2 位图资源

  3 图标资源

  4 菜单资源

  5 对话框

  6 字符串资源

  7 字体目录资源

  8 字体资源

  9 加速键表

  10 用户定义资源

  12 群组光标

  14 群组图标

  说明:LoadResData 从资源文件装载的数据可以达到 64K。

  最后我们用一个简单的例子来说明这几个函数的用法:

  (1)建立一个窗体,在窗体上放置三个按钮,一个图片框用来显示图片、图标。

  按照前面讲述的方法添加资源文件编辑器并建立工程文件,里面包含一个字符串,位图、图标、光标和一个自定义的资源。

  程序代码如下所示:

Private Sub cmdLoadData_Click()

	Dim tt As Byte

End Sub

Private Sub cmdLoadPicture_Click()

	picTest.Picture = LoadResPicture(101, 1) '如何为0表示位图,为2表示光标

End Sub

Private Sub cmdLoadstring_Click()

	Dim str As String

	str = LoadResString(101)

	MsgBox str

End Sub

  下面详细说明资源文件的使用方法:

LoadResData 返回一个Byte数组,用以从资源 (.res) 文件装载若干可能类型的数据。语法为: LoadResData(index, format)

  LoadResData 函数的语法包含下列部分:

  部分 描述

  index 必需的。一个整数或字符串,它用来指定资源文件中数据的标识符 (ID)。ID 标识为 1 的资源保留给应用程序的图标。

  Format 必需的。一个数值,它用来按照下列“设置值"中的描述,指定返回数据的原始格式。该数值也可以是用户定义资源的字符串名。

  设置值 用于 format 的设置值有:

   设置值 描述

  1 光标资源

  2 位图资源

  3 图标资源

  4 菜单资源

  5 对话框

  6 字符串资源

  7 字体目录资源

  8 字体资源

  9 加速键表

  10 用户定义资源

  12 群组光标

  14 群组图标

VB 中资源文件的使用技巧

一、开发中英(简、繁)双版本

  现在比较流行的软件都会有中文版、英文版、繁体版等等多个版本,并可以根据系统的语言自动显示相适应的版本,那么这个功能在 VB 是如何实现得呢的:

1、 首先通过 API 函数GetSystemDefaul tLCID 判断系统的语言

Option Explicit
Dim lang As String
Private Declare Function GetSystemDefaultLCID Lib "kernel32" () As Long Private Sub Form_Load()
Dim LocaleID As Long
LocaleID = GetSystemDefaultLCID
Select Case LocaleID
Case &H404
MsgBox "当前系统为:中文繁体", , "语言"
Case &H804
MsgBox "当前系统为:中文简体", , "语言"
lang = "1"
Case &H409
MsgBox "当前系统为:英文", , "语言"
lang = "2"
End Select
End Sub

2、然后程序就可以加载保存在资源文件(这里我们就是使用的这种方法)、注册表、INI 文件、文本文件或其他文件中的各类字符串,以达到达到实现多种语言的目的。

  ⑴启动 VB6.0,在“外接程序→外接程序管理器”中加载“Visual Basic 6 资源编辑器”

  ⑵在 VB 资源编辑器窗口中,点击“编辑字符串表格”输入如下资料:

  标识号 中文(中国)

  101 例子

  102 中文

  103 英文

  201 Ensample

  202 Chinese

  203 English

  ⑶保存资源文件,写如下代码:(自定义装载字符的函数 LoadString)

Sub LoadString()
Me.Caption = LoadResString(Int(lang & "01"))
Command1(0).Caption = LoadResString(Int(lang & "02"))
Command1(1).Caption = LoadResString(Int(lang & "03"))
End Sub

  ⑷怎么样一个简单的中英双版本的程序就做出来了,如果把 lang 的值设置为 1,则显示中文,如果把 lang 的值设置为 2,则显示英文。

ps:更简单实用的方法是:把不同语言文字放在同一个标识号ID对应的不同字符串表格中即可。VB 会自动实现多种语言转换!

二、 直接播放EXE文件中的声音文件

  使用资源文件,可以直接在在EXE文件中播放声音文件(WAV文件),使程序显得更加专业。

  ⑴启动 VB6.0,在“外接程序→外接程序管理器”中加载“Visual Basic 6 资源编辑器”

  ⑵在 VB 资源编辑器窗口中,点击“添加自定义资料”,增加任意的 WAV 文件,再双击刚刚创建的自定义资源,弹出”编辑属性”窗口,定义如下:

  类型: "WAVE"

  标识号: 102

  语言: 中文(中国)

  ⑶保存资源文件,写如下代码:

Option Explicit
Private Declare Function GetSystemDefaultLCID Lib "kernel32" () As Long
Private Declare Function sndPlaySoundFromMemory Lib "winmm.dll" Alias "sndPlaySoundA" (lpszSoundName As Any, ByVal uFlags As Long) As Long Public Const SND_ASYNC = &H1&
Public Const SND_MEMORY = &H4& Private Sub Command5_Click() 注释:播放 WAV 文件
Dim bArr() As Byte
bArr = LoadResData(102, "WAVE")
sndPlaySoundFromMemory bArr(0), SND_ASYNC Or SND_MEMORY
End Sub

  ⑷按 F5 运行本程序,点击 Command 按钮,就可以听到你选定的 WAV 文件的声音了。

三、 直接调用各类图标、光标图片

  在一个程序中,我们可能需要调用多个 图标、光标、图片文件,一般来说我们主要是使用 ImageList 控件,不过其时使用资源文件是最好的方法(可以少使用一个控件呀)。

  ⑴启动 VB6.0,在“外接程序→外接程序管理器”中加载“Visual Basic 6 资源编辑器”

  ⑵在 VB 资源编辑器窗口中,点击“添加光标”,“添加图标”,“添加位图”,装载所需要的文件。

  ⑶程序代码如下:

Me.Icon = LoadResPicture(101, vbResIcon) 注释:加载图标
Picture1.Picture = LoadResPicture(101, vbResBitmap) 注释:加载位图
Command1.MouseIcon = LoadResPicture(101, vbResCursor) 注释:加载光标
Private Sub Command1_Click()
'功能:测试加载jpg图片
'先要引用:Microsoft ActiveX Data objects 2.8 library
'貌似在资源编辑器里没有jgp格式的,只有添加到自定义文件里
'然后设置 类型:"jpg",标识号:8
'LoadResData返回的是byte,所以用二进制流去读
Dim iStm As ADODB.stream
Set iStm = New ADODB.stream
With iStm
.Mode = adModeReadWrite
.Type = adTypeBinary '二进制模式
.Open
.Write LoadResData(8, "jpg") '这里注意了,如果当前目录下存在test1.jpg,会报一个文件写入失败的错误.(改了adSaveCreateOverWrite就能覆盖了)
.SaveToFile App.path & "\test1.jpg", adSaveCreateNotExist
End With Image1.Picture = LoadPicture(App.path & "\test1.jpg") '关闭对象
iStm.Close '如果用了adSaveCreateNotExist,就得加上下面这句删除保存的图片文件
Kill App.path & "\test1.jpg"
End Sub Private Sub Command1_Click()
'功能:测试加载jpg图片
'先要引用:Microsoft ActiveX Data objects 2.8 library
'貌似在资源编辑器里没有jgp格式的,只有添加到自定义文件里
'然后设置 类 ... Dim Filenumber As Long
Dim file() As Byte
file = LoadResData(8, "jpg")
Filenumber = FreeFile
Open App.path & "\test.jpg" For Binary As #Filenumber
Put #Filenumber, , file
Close #Filenumber
Image1.Picture = LoadPicture(App.path & "\test.jpg") '格式:(其主要思想是通过二进制数据的操作) '由于返回的是byte
Dim file() As Byte
file = LoadResData(标识符id, 你定义的格式)
Filenumber = FreeFile
Open App.path & "\原文件格式的名称" For Binary As #Filenumber
Put #Filenumber, , file
Close #Filenumber

'下面就是你要操作的内容,比如加载图片到图片框;调用exe等等;

资源档有什么用处呢? 最重要的有两个地方

1.国际发行:我们将Application中所有的文字从Resource用读取,那么,只要更动

Resource档的内容,就可以用不同语言的方式来显示。

2.管理资源:例如说,我们的AP中用了数百张的图片或声音,不用Resource档的话,在发行出去的AP中, 就必需有数百个图形、声音档,那似乎不太好,使用Resource档,便可以将这些图形、声音放进一个.Res档。使用RC.exe来Compiler我们所定义的Resource档, RC.EXE在vb5.0光碟中的\TOOLS\RESOURCE

Resources 可分成两大部份:

  • String resources (text strings such as "Hello World").

  • Binary resources (icons, bitmaps, cursors, sounds, video等)

String Resources语法: STRINGTABLE [load-option] [mem-option]

BEGIN

stringID string

END

参数说明 :

  • load-option 可以是以下两种 Option Description
PRELOAD Resource is loaded immediately.

LOADONCALL (Default) Resource is loaded when called.
  • mem-option 可以是以下三种
Option Description

FIXED Resource remains at a fixed memory location.

MOVEABLE Resource can be moved if necessary in order to compact memory.

DISCARDABLE Resource can be discarded if no longer needed.
  • stringID 自行定义的integer,用来定义字串 resource.

  • string 我们定义的字串,字串前后要用双引号(")将之包围起来,字串长度不可超过255 bytes,而且字串要在同一行。

BINARY RESOURCES

语法:

nameID keyword [load-option] [mem-option] filename

参数:

  • nameID 定义一个於以下keyword类别中,一个唯一的名称或数字,即,有三个BITMAP类别的Resource,其nameID可以分别为1,2,3不重覆,而另有三个ICON的资源,其nameID亦可分别为1,2,3,不会和BITMAP的1,2,3相冲突。注:ICON类别的nameID不可以为0,0保留给 Visual Basic icon。nameID亦可以为字串

  • keyword 定义资源类别 Option Description

BITMAP Defines a bitmap (.BMP)

CURSOR Defines a cursor (.CUR)

ICON Defines an icon (.ICO)

SOUND Defines a wave file (.WAV)

VIDEO Defines a video file (.AVI)

例:打开一执行文件

Dim App1() As Byte '定义数组
If Dir("11.exe") = "" Then '是否存在
App1 = LoadResData(101, "CUSTOM") '资源位置
Open "11.exe" For Binary As #2
Put #2, , App1 ' 释放
Close #2 '关闭文件号
End If

[转]VB中资源文件.res的使用方法详解的更多相关文章

  1. C++调用JAVA方法详解

    C++调用JAVA方法详解          博客分类: 本文主要参考http://tech.ccidnet.com/art/1081/20050413/237901_1.html 上的文章. C++ ...

  2. CURL使用方法详解

    php采集神器CURL使用方法详解 作者:佚名  更新时间:2016-10-21   对于做过数据采集的人来说,cURL一定不会陌生.虽然在PHP中有file_get_contents函数可以获取远程 ...

  3. PHP cURL应用实现模拟登录与采集使用方法详解

    对于做过数据采集的人来说,cURL一定不会陌生.虽然在PHP中有file_get_contents函数可以获取远程链接的数据,但是它的可控制性太差了,对于各种复杂情况的采集情景,file_get_co ...

  4. Java构造和解析Json数据的两种方法详解二

    在www.json.org上公布了很多JAVA下的json构造和解析工具,其中org.json和json-lib比较简单,两者使用上差不多但还是有些区别.下面接着介绍用org.json构造和解析Jso ...

  5. 【VB技巧】VB静态调用与动态调用dll详解

    本文“[VB技巧]VB静态调用与动态调用dll详解”,来自:Nuclear'Atk 网络安全研究中心,本文地址:http://lcx.cc/?i=489,转载请注明作者及出处! [[请注意]]:在以下 ...

  6. PHP cURL实现模拟登录与采集使用方法详解教程

    来源:http://www.zjmainstay.cn/php-curl 本文将通过案例,整合浏览器工具与PHP程序,教你如何让数据 唾手可得 . 对于做过数据采集的人来说,cURL一定不会陌生.虽然 ...

  7. Android编程之LayoutInflater的inflate方法详解

    LayoutInflater的inflate方法,在fragment的onCreateView方法中经常用到: public View onCreateView(LayoutInflater infl ...

  8. Java构造和解析Json数据的两种方法详解二——org.json

    转自:http://www.cnblogs.com/lanxuezaipiao/archive/2013/05/24/3096437.html 在www.json.org上公布了很多JAVA下的jso ...

  9. Python内置方法详解

    1. 字符串内置方法详解 为何要有字符串?相对于元组.列表等,对于唯一类型的定义,字符串具有最简单的形式. 字符串往往以变量接收,变量名. 可以查看所有的字符串的内置方法,如: 1> count ...

随机推荐

  1. 前端监控系列2 |聊聊 JS 错误监控那些事儿

    作者:彭莉,火山引擎 APM 研发工程师.2020年加入字节,负责前端监控 SDK 的开发维护.平台数据消费的探索和落地. 有必要针对 JS 错误做监控吗? 我们可以先假设不对 JS 错误做监控,试想 ...

  2. Linux 禁止root远程登录解决办法

    linux中root用户是超级管理员,可以针对root用户暴力破解密码,这样很不安全,工作中我们一般禁止root用户直接远程登陆,开设一个或多个普通用户,只允许登陆普通用户,如果有需要用root用户, ...

  3. React报错之Property 'value' does not exist on type 'HTMLElement'

    正文从这开始~ 总览 当我们试图访问一个类型为HTMLElement的元素上的value属性时,会产生"Property 'value' does not exist on type 'HT ...

  4. C#基础_理解类

    构造函数主要是用来创建对象时为对象赋初值来初始化对象.总与new运算符一起使用在创建对象的语句中 .A a=new A(); 构造函数具有和类一样的名称:但它是一个函数具有函数的所有特性,同一个类里面 ...

  5. day31-线程基础01

    线程基础01 1.程序 进程 线程 程序(program):是为完成的特定任务,用某种语言编写的一组指令的集合.简单来说,就是我们写的代码. 进程: 进程是指运行中的程序,比如我们使用QQ,就启动了一 ...

  6. Linux_etc-passwd文件总结

    文件内容 ## # User Database # # Note that this file is consulted directly only when the system is runnin ...

  7. VSCODE 配置远程调试环境

    以下内容为本人的著作,如需要转载,请声明原文链接微信公众号「englyf」https://www.cnblogs.com/englyf/p/16691460.html 我的需求是,在Windows桌面 ...

  8. 跟羽夏学 Ghidra ——导航

    写在前面   此系列是本人一个字一个字码出来的,包括示例和实验截图.本人非计算机专业,可能对本教程涉及的事物没有了解的足够深入,如有错误,欢迎批评指正. 如有好的建议,欢迎反馈.码字不易,如果本篇文章 ...

  9. 【gRPC】C++异步服务端客户端API实例及代码解析

    对于同步API而言,程序的吞吐量并不高.因为在每次发送一个gRPC请求时,会阻塞整个线程,必须等待服务端的ack回到客户端才能继续运行或者发送下一个请求,因此异步API是提升程序吞吐量的必要手段. g ...

  10. 使用KVM的命令行方式安装centos7虚拟机

    前提条件 1.宿主机上已经安装KVM软件,参考网址:https://www.cnblogs.com/sanduzxcvbnm/p/15538881.html 2.已经上传centos7镜像到宿主机里 ...