3个回答
展开全部
按图示操作即可。
添加后点击保存就行了。
如果没看到这个图标,点 外接程序--外接程序管理器 在打开的对话框里点“Visual Basic 6 资源编辑器”再把“加载/卸载”打上勾就有了。
如果没有找到“Visual Basic 6 资源编辑器”说明你的VB是精简版的。必须下载完整的版本才行。
==================================================
所谓资源文件其实就是在生成的EXE文件的最后部分写入你添加的图片、文本等等一系列资源,运行时,你的程序就可以读取这些东西。
如果从文件读取的话,你就必须在提供EXE文件的同时提供你要读取的文件,而用资源文件,你就可以只有一个EXE文件了。
展开全部
1、添加资源文件编辑器,
启动VB6.0的IDE集成环境,新建一个工程。点选菜单“Add -Ins”下的“Add -in Manager”,在弹出的对话框的列表框中选择“VB Resource (RES) Editor”,单击“OK“后退出对话框。这样在“Tools”菜单栏中就有一项“Resource Editor”了。打开这个工具就可以进行资源文件的编辑了。
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)建立一个窗体,在窗体上放置三个按钮,一个图片框用来显示图片、图标。其属性如图2所示。
按照前面讲述的方法添加资源文件编辑器并建立工程文件,里面包含一个字符串,位图、图标、光标和一个自定义的资源。
程序代码如下所示:
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
启动VB6.0的IDE集成环境,新建一个工程。点选菜单“Add -Ins”下的“Add -in Manager”,在弹出的对话框的列表框中选择“VB Resource (RES) Editor”,单击“OK“后退出对话框。这样在“Tools”菜单栏中就有一项“Resource Editor”了。打开这个工具就可以进行资源文件的编辑了。
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)建立一个窗体,在窗体上放置三个按钮,一个图片框用来显示图片、图标。其属性如图2所示。
按照前面讲述的方法添加资源文件编辑器并建立工程文件,里面包含一个字符串,位图、图标、光标和一个自定义的资源。
程序代码如下所示:
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
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
所谓资源文件,就是指将在程序运行时用到的资源集中在一起的一个文件。一个资源文件可以包括文字(TEXT)、位图(BITMAP)。图标(ICON)等。并且在程序中调用时不用指明路径,这就简化了程序的编写并减少了发生错误的可能。现在我就以一个小程序为例讲述资源文件的一些使用方法。
首先建立春、夏、秋、冬四幅位图,均以.BMP格式保存在C:\TEST\下。然后打开记事本编写资源文件,
内容如下:
100 bitmap spring.bmp
200 bitmap summer.bmp
300 bitmap autumn.bmp
400 bitmap winter.bmp
其中数字表示此项的ID号码,此号码很重要,它直接影响调用!BITMAP表示以位图方式保存而最后的部分为文件名。将此文件保存为1.RC。
接下来编译此资源文件。在C:\Visual Basic\Wizards目录下找到RC.EXE文件。在MS-DOS方式下键人D:\Program Files\Microsoft Visual Studio\VB98\Wizards>rc /r F:\VB代码\资源文件\1.rc(键入rc /?将会得到帮助),在编译成功后在C:\TEST\中将发现增加了一个名为1.RES的文件。
完成了上面的工作,接下来就可以编写工程了。首先建立一个image控件img。然后建立一个时钟控件,设其Interval属性为1000。最后在[通用]中声明一个名为iid的整形变量:
Dim iid As Integer
并初始化img和iid:
img.Picture=LoadResPicture(100,vbResBitmap)
iid=100
其中LoadResPicture(id,model)为从资源文件中调用图像的函数,100表示ID号为100的项,vbResBitmap为一常量,值为0,表示以位图方式打开。然后在两个Command控件中加入源程序代码。
最后在工程资源管理器中用鼠标右键单击选择【添加】-->【添加文件】,加入TEST.RES。
至此工程可谓大功告成,按F5运行一下,希望你会喜欢。还有一点要强调的是一个工程只能有一个工程文
Option Explicit
Dim iid As Integer
Private Sub Form_Load()
img.Picture = LoadResPicture(100, vbResBitmap)
iid = 100
End Sub
Private Sub img_Click()
End Sub
Private Sub Timer1_Timer()
iid = 100 + iid
If iid > 400 Then iid = 100
img.Picture = LoadResPicture(iid, vbResBitmap)
End Sub
首先建立春、夏、秋、冬四幅位图,均以.BMP格式保存在C:\TEST\下。然后打开记事本编写资源文件,
内容如下:
100 bitmap spring.bmp
200 bitmap summer.bmp
300 bitmap autumn.bmp
400 bitmap winter.bmp
其中数字表示此项的ID号码,此号码很重要,它直接影响调用!BITMAP表示以位图方式保存而最后的部分为文件名。将此文件保存为1.RC。
接下来编译此资源文件。在C:\Visual Basic\Wizards目录下找到RC.EXE文件。在MS-DOS方式下键人D:\Program Files\Microsoft Visual Studio\VB98\Wizards>rc /r F:\VB代码\资源文件\1.rc(键入rc /?将会得到帮助),在编译成功后在C:\TEST\中将发现增加了一个名为1.RES的文件。
完成了上面的工作,接下来就可以编写工程了。首先建立一个image控件img。然后建立一个时钟控件,设其Interval属性为1000。最后在[通用]中声明一个名为iid的整形变量:
Dim iid As Integer
并初始化img和iid:
img.Picture=LoadResPicture(100,vbResBitmap)
iid=100
其中LoadResPicture(id,model)为从资源文件中调用图像的函数,100表示ID号为100的项,vbResBitmap为一常量,值为0,表示以位图方式打开。然后在两个Command控件中加入源程序代码。
最后在工程资源管理器中用鼠标右键单击选择【添加】-->【添加文件】,加入TEST.RES。
至此工程可谓大功告成,按F5运行一下,希望你会喜欢。还有一点要强调的是一个工程只能有一个工程文
Option Explicit
Dim iid As Integer
Private Sub Form_Load()
img.Picture = LoadResPicture(100, vbResBitmap)
iid = 100
End Sub
Private Sub img_Click()
End Sub
Private Sub Timer1_Timer()
iid = 100 + iid
If iid > 400 Then iid = 100
img.Picture = LoadResPicture(iid, vbResBitmap)
End Sub
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询