VBGood网站全文搜索 Google

搜索VBGood全站网页(全文搜索)

VB爱好者乐园(VBGood)

 找回密码
 立即注册
搜索
查看: 57207|回复: 143

[经验技巧] 资源文件精解示例

[复制链接]
 楼主| 发表于 2007-12-25 14:38:52 | 显示全部楼层 |阅读模式
  1. VB中资源文件的使用方法

  2.   在几乎所有的Windows应用程序中都拥有资源文件,这些文件定义使用应用程序将要显示很多的用户界面元素,以及提供程序所需要的各种类型数据的存储场所。资源文件在VC应用程序中应用十分广泛,在VB应用中却很少提及它。其实在开发VB应用程序时,一样可以将要用到的字符串、位图、图标和其它类型的数据等做成一个资源文件。因为这样做至少有以下几个优点:(1)提高性能减少内存空间的占用,这是因为字符串、位图、图标和数据可以不必在程序启动或调用窗体时就全部加载,而是根据需要随时从资源文件中加载。(2)将所需要的资源文件中单独存放在一个资源文件中,使用移植程序和更改一些界面显示变得十分简单,不必访问程序的源代码。
  3.   下面就和大家具体谈谈如何在VB中建立和使用资源文件。
  4.   首先,我们先了解一下windows应用程序中一般经常使用的资源:
  5.   位图:位图是用于创建应用程序用户界面的图像。例如,用户可以为工具栏按钮创建一套位图,也可以创建在其它窗口上显示的位图。一般来说,都是在图像编辑器中创建位图,然后再将该位图添加到资源文件中。
  6.   图标:图标是类似于位图的小图像,然而,虽然位图可以具有任意大小的尺寸,但是图标却小得多,通常为16*16像素或32*32像素。图标使用的很多方法与位图一样。然而,图标通常被用作代表最小化应用程序的图象、代表应用程序文档类型的图像和其它类型的应用系统。
  7.   字符串表:就是指文本串的一个表格,通常来说字符串用来显示菜单命令的提示、对话框中和消息框中显示的信息。要访问串表格中的文本串,需引用串的ID,它与定义表格的源文件中的串相联系。
  8.   光标:光标是代表鼠标在屏幕上的位置的图像。尽管windows 系统定义和许多类型的光标,但用户也可以创建自己需要的光标。
  9.   定制资源:定制资源是用户想存储在其应用程序资源文件中的任何类型的数据。这些数据可以是文本文件或二进制文件,用户可以用任何喜欢的方式定制资源。资源文件只是作为存储区域。创建了定制资源,可以避免必须从磁盘文件中加载数据,因为数据随资源文件一起加载。
  10.   对话框:对话框的资源定义包括样式标志(控制对话框外观及行为的值)以及对话框中含控件的大小和位置。
  11.   菜单栏:用户应用程序的菜单栏也可以在资源文件中定义。可以在资源文件中指定命令和命令的ID,以用命令在菜单中的位置。
  12.   加速器:加速器也称为热键。它们是用户快速选取命令时所按下的键,使用热键时,不必在应用程序的菜单中寻找命令。加速器在一个表格中定义,这个表将按键与命令资源的ID联系起来。
  13.   那么在VB开发环境中如何使用这些资源呢?
  14.   1、添加资源文件编辑器,
  15.    启动VB6.0的IDE集成环境,新建一个工种。点选菜单“外接程序”下的“外接程序管理器”,在弹出的对话框的列表框中选择“VB 6资源编辑器”,选择加载并单击“确定“后退出对话框。这样在“工具”菜单栏中就有一项“vb资源编程器”了。打开这个工具就可以进行资源文件的编辑了。
  16.   2、编辑资源文件
  17.   在资源编辑器中编辑资源文件非常简单。它可是编辑我们在上面先提到的位图、图标、光标、字符串及定制资源五种类型的资源,如图1所示:
  18.   在进行编辑时,点击相应的图标就可以添加资源了。
  19.   编辑资源的方法也很容易,以添加图片为例看一看添加位图的方法:点击添加位图按钮,在弹出的对话框中选择一个位图文件,单击“OK”后,位图的添加就完成了,在这里要注意属性按钮,点击它以后,可以选择请语言版本并输入资源的ID号,这个ID号是标识一类资源的唯一编号,必须记住资源的ID号,以使在应用程序中调用。编辑好资源后,关闭资源编辑器,资文件自动加入新建的工种内。另外,也必须将资源文件保存。其它资源的编辑方法也大体上一样。
  20.   3、使用资源文件,在应用程序中调用资源文件与直接使用资源基本上是一致的。对了,在一个工种中只能保存一个资源文件,在使用资源文件之前,请必须保证资源已经加入到资源文件中了。
  21.   调用资源文件中资源的函数有:
  22.   LoadResString 返回一个文本字符串。语法:LoadResString(index) index必需是一个整数,它用来指定资源文件中数据的标识符(即经常提到的ID号),如果ID号为1的资源保留给应用程序图标。
  23.   LoadResPicture 用以从资源 (.res) 文件装载位图、图标或光标。它的语法:
  24.   LoadResPicture(index, format)
  25.   LoadResPicture 函数的语法包含下列部分:
  26.   参数 描述
  27.   index 一个整数或字符串,它用来指定资源文件中数据的标识
  28.    符 (ID) 。ID标识符为 1 的资源保留给应用程序的图标。
  29.   format 必需的。一个数值或常数,如下列“设值"中所描述的,
  30.    指定返回数据的格式。
  31.   用于 format 的设置值有:
  32.    常数 值 描述
  33.   vbResBitmap 位数 0 位图资源
  34.   vbResIcon 图标 1 图标资源
  35.   vbResCursor 2 光标资源
  36.   说明:可以使用 LoadResPicture 函数代替对存储在 Form 或控件的 Picture 属性中的图形的引用。
  37.   LoadResData 返回一个Byte数组,用以从资源 (.res) 文件装载若干可能类型的数据。语法为:
  38.   LoadResData(index, format)
  39.   LoadResData 函数的语法包含下列部分:
  40.   部分 描述
  41.   index 必需的。一个整数或字符串,它用来指定资源文件中数据的标识
  42.    符 (ID)。ID 标识为 1 的资源保留给应用程序的图标。
  43.   Format 必需的。一个数值,它用来按照下列“设置值"中的描述,指定返
  44.    回数据的原始格式。该数值也可以是用户定义资源的字符串名。
  45.   设置值 用于 format 的设置值有:
  46.    设置值 描述
  47.   1 光标资源
  48.   2 位图资源
  49.   3 图标资源
  50.   4 菜单资源
  51.   5 对话框
  52.   6 字符串资源
  53.   7 字体目录资源
  54.   8 字体资源
  55.   9 加速键表
  56.   10 用户定义资源
  57.   12 群组光标
  58.   14 群组图标
  59.   说明:LoadResData 从资源文件装载的数据可以达到 64K。
  60.   最后我们用一个简单的例子来说明这几个函数的用法:
  61.   (1)建立一个窗体,在窗体上放置三个按钮,一个图片框用来显示图片、图标。其属性如图2所示。
  62.   按照前面讲述的方法添加资源文件编辑器并建立工程文件,里面包含一个字符串,位图、图标、光标和一个自定义的资源。
  63.   程序代码如下所示:
  64.   Private Sub cmdLoadData_Click()
  65.   Dim tt As Byte
  66.   End Sub
  67.   Private Sub cmdLoadPicture_Click()
  68.   picTest.Picture = LoadResPicture(101, 1)
  69.   '如何为0表示位图,为2表示光标
  70.   End Sub
  71.   Private Sub cmdLoadstring_Click()
  72.   Dim str As String
  73.   str = LoadResString(101)
  74.   MsgBox str
  75.   End Sub
  76. --------------------------------------------------------
复制代码

[ 本帖最后由 icecept 于 2009-2-19 00:56 编辑 ]

评分

参与人数 17威望 +118 人气 +8 收起 理由
红色狂想 + 1 + 1 精品文章
zpy2 + 4 + 1 我很赞同
xingjing + 3 + 1 好东西
easy2003 + 5 + 1 物超所值啊。
xowi99 + 2 精品文章
hovidelphic + 4 不给分=不是人 分全给你
gkyxw + 5 + 1 精品文章
acmilan1984 + 4 精品文章
gog + 2 精品文章
yyhust + 10 + 2 好帖
gbm + 5 + 1 精品文章
DreamonII + 10 精品文章
飛行船 + 8 精品文章
weiyi75 + 20 发布源码
VBProFan + 10 整理得好!
shenlili + 10
hexinchun + 15 本想多给点分,可最多只能给这么多了, ...

查看全部评分

本帖被以下淘专辑推荐:

 楼主| 发表于 2007-12-25 14:40:57 | 显示全部楼层

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


  1. LoadResData 返回一个Byte数组,用以从资源 (.res) 文件装载若干可能类型的数据。语法为:
  2.   LoadResData(index, format)
  3.   LoadResData 函数的语法包含下列部分:
  4.   部分 描述
  5.   index 必需的。一个整数或字符串,它用来指定资源文件中数据的标识
  6.    符 (ID)。ID 标识为 1 的资源保留给应用程序的图标。
  7.   Format 必需的。一个数值,它用来按照下列“设置值"中的描述,指定返
  8.    回数据的原始格式。该数值也可以是用户定义资源的字符串名。
  9.   设置值 用于 format 的设置值有:
  10.    设置值 描述
  11.   1 光标资源
  12.   2 位图资源
  13.   3 图标资源
  14.   4 菜单资源
  15.   5 对话框
  16.   6 字符串资源
  17.   7 字体目录资源
  18.   8 字体资源
  19.   9 加速键表
  20.   10 用户定义资源
  21.   12 群组光标
  22.   14 群组图标

  23. VB 中资源文件的使用技巧
  24. 一、开发中英(简、繁)双版本
  25.   现在比较流行的软件都会有中文版、英文版、繁体版等等多个版本,并可以根据系统的语言自动显示相适应的版本,那么这个功能在 VB 是如何实现得呢的:
  26. 1、 首先通过 API 函数GetSystemDefaultLCID 判断系统的语言
  27. Option Explicit
  28. Dim lang As String
  29. Private Declare Function GetSystemDefaultLCID Lib "kernel32" () As Long
  30. Private Sub Form_Load()
  31. Dim LocaleID As Long
  32. LocaleID = GetSystemDefaultLCID
  33. Select Case LocaleID
  34. Case &H404
  35. MsgBox "当前系统为:中文繁体", , "语言"
  36. Case &H804
  37. MsgBox "当前系统为:中文简体", , "语言"
  38. lang = "1"
  39. Case &H409
  40. MsgBox "当前系统为:英文", , "语言"
  41. lang = "2"
  42. End Select
  43. End Sub

  44. 2、然后程序就可以加载保存在资源文件(这里我们就是使用的这种方法)、注册表、INI 文件、文本文件或其他文件中的各类字符串,以达到达到实现多种语言的目的。
  45.   ⑴启动 VB6.0,在“外接程序→外接程序管理器”中加载“Visual Basic 6 资源编辑器”
  46.   ⑵在 VB 资源编辑器窗口中,点击“编辑字符串表格”输入如下资料:
  47.   标识号 中文(中国)
  48.   101 例子
  49.   102 中文
  50.   103 英文
  51.   201 Ensample
  52.   202 Chinese
  53.   203 English
  54.   ⑶保存资源文件,写如下代码:(自定义装载字符的函数 LoadString)
  55. Sub LoadString()
  56. Me.Caption = LoadResString(Int(lang & "01"))
  57. Command1(0).Caption = LoadResString(Int(lang & "02"))
  58. Command1(1).Caption = LoadResString(Int(lang & "03"))
  59. End Sub

  60.   ⑷怎么样一个简单的中英双版本的程序就做出来了,如果把 lang 的值设置为 1,则显示中文,如果把 lang 的值设置为 2,则显示英文。
  61. ps:更简单实用的方法是:把不同语言文字放在同一个标识号ID对应的不同字符串表格中即可。VB 会自动实现多种语言转换!

  62. 二、 直接播放EXE文件中的声音文件
  63.   使用资源文件,可以直接在在EXE文件中播放声音文件(WAV文件),使程序显得更加专业。
  64.   ⑴启动 VB6.0,在“外接程序→外接程序管理器”中加载“Visual Basic 6 资源编辑器”
  65.   ⑵在 VB 资源编辑器窗口中,点击“添加自定义资料”,增加任意的 WAV 文件,再双击刚刚创建的自定义资源,弹出”编辑属性”窗口,定义如下:
  66.   类型: "WAVE"
  67.   标识号: 102
  68.   语言: 中文(中国)
  69.   ⑶保存资源文件,写如下代码:
  70. Option Explicit
  71. Private Declare Function GetSystemDefaultLCID Lib "kernel32" () As Long
  72. Private Declare Function sndPlaySoundFromMemory Lib "winmm.dll" Alias "sndPlaySoundA" (lpszSoundName As Any, ByVal uFlags As Long) As Long
  73. Public Const SND_ASYNC = &H1&
  74. Public Const SND_MEMORY = &H4&
  75. Private Sub Command5_Click() 注释:播放 WAV 文件
  76. Dim bArr() As Byte
  77. bArr = LoadResData(102, "WAVE")
  78. sndPlaySoundFromMemory bArr(0), SND_ASYNC Or SND_MEMORY
  79. End Sub

  80.   ⑷按 F5 运行本程序,点击 Command 按钮,就可以听到你选定的 WAV 文件的声音了。
  81. 三、 直接调用各类图标、光标图片
  82.   在一个程序中,我们可能需要调用多个图标、光标、图片文件,一般来说我们主要是使用 ImageList 控件,不过其时使用资源文件是最好的方法(可以少使用一个控件呀)。
  83.   ⑴启动 VB6.0,在“外接程序→外接程序管理器”中加载“Visual Basic 6 资源编辑器”
  84.   ⑵在 VB 资源编辑器窗口中,点击“添加光标”,“添加图标”,“添加位图”,装载所需要的文件。
  85.   ⑶程序代码如下:
  86. Me.Icon = LoadResPicture(101, vbResIcon) 注释:加载图标
  87. Picture1.Picture = LoadResPicture(101, vbResBitmap) 注释:加载位图
  88. Command1.MouseIcon = LoadResPicture(101, vbResCursor) 注释:加载光标
复制代码

[ 本帖最后由 icecept 于 2009-1-11 21:08 编辑 ]

评分

参与人数 7威望 +64 收起 理由
acmilan1984 + 5 精品文章
gog + 2 精品文章
飛行船 + 4 精品文章
weiyi75 + 20 我很赞同
仙剑魔 + 20 精品文章
54jb + 8
ewqs + 5

查看全部评分

回复 支持 反对

使用道具 举报

发表于 2007-12-25 14:45:22 | 显示全部楼层

回复 #2 icecept 的帖子

回复 支持 反对

使用道具 举报

 楼主| 发表于 2007-12-25 14:51:31 | 显示全部楼层

回复 #3 liujin 的帖子

谢谢,明天我制作一个资源文件加入声音、文本、图片、图标、光标和exe、dll等资源的方法。详细的示例应该能够让大家一目了然。因为问我程序的人很多,所以我要一个一个解决,请大家不要着急。我会一一解决的。

[ 本帖最后由 icecept 于 2007-12-25 14:53 编辑 ]
回复 支持 反对

使用道具 举报

发表于 2007-12-25 17:48:25 | 显示全部楼层
支持,顶,加分
回复 支持 反对

使用道具 举报

发表于 2007-12-25 19:41:04 | 显示全部楼层
哇~收藏了~加分~~~~
回复 支持 反对

使用道具 举报

发表于 2007-12-26 10:31:41 | 显示全部楼层
  1. Private Sub Command1_Click()
  2.     '功能:测试加载jpg图片
  3.     '先要引用:Microsoft ActiveX Data objects 2.8 library
  4.     '貌似在资源编辑器里没有jgp格式的,只有添加到自定义文件里
  5.     '然后设置 类型:"jpg",标识号:8
  6.     'LoadResData返回的是byte,所以用二进制流去读
  7.     Dim iStm As ADODB.stream
  8.     Set iStm = New ADODB.stream
  9.     With iStm
  10.         .Mode = adModeReadWrite
  11.         .Type = adTypeBinary   '二进制模式
  12.         .Open
  13.         .Write LoadResData(8, "jpg")
  14.          '这里注意了,如果当前目录下存在test1.jpg,会报一个文件写入失败的错误.(改了adSaveCreateOverWrite就能覆盖了)
  15.         .SaveToFile App.Path & "\test1.jpg", adSaveCreateNotExist
  16.     End With
  17.     Image1.Picture = LoadPicture(App.Path & "\test1.jpg")
  18.     '关闭对象
  19.     iStm.Close
  20.     '如果用了adSaveCreateNotExist,就得加上下面这句删除保存的图片文件
  21.     Kill App.Path & "\test1.jpg"
  22. End Sub
复制代码


觉得上面那样做比较累!
不知道icecept是怎么调用的?期待好方法
回复 支持 反对

使用道具 举报

 楼主| 发表于 2007-12-26 12:59:23 | 显示全部楼层

声音、文本、图片、图标加入资源文件范例

具体内容看附件源程序

声音、文本、图片、图标加入资源文件范例.rar

86.87 KB, 下载次数: 1646

回复 支持 反对

使用道具 举报

 楼主| 发表于 2007-12-26 13:02:03 | 显示全部楼层

用资源文件做捆绑工具,(exe加入资源文件)

具体内容看附件源程序,

把exe文件加入资源文件.rar

277.75 KB, 下载次数: 1879

评分

参与人数 4威望 +33 人气 +1 收起 理由
hovidelphic + 5 + 1 不给分=不是人 分全给你
acmilan1984 + 3 发布源码
VBProFan + 10 先加这个的分再说
hexinchun + 15 好文章,令我收获颇多!谢谢 魔灵这方 ...

查看全部评分

回复 支持 反对

使用道具 举报

 楼主| 发表于 2007-12-26 13:04:00 | 显示全部楼层

用资源文件做捆绑工具,(OCX加入资源文件)

具体内容看附件源程序,

控件加入资源文件.rar

40.21 KB, 下载次数: 1825

评分

参与人数 2威望 +5 人气 +2 收起 理由
轻舞霓裳 + 5 + 1 发布源码
sleepman + 1 我来加分

查看全部评分

回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

文字版|手机版|小黑屋|VBGood  

GMT+8, 2019-7-23 19:01

VB爱好者乐园(VBGood)
快速回复 返回顶部 返回列表