使用VB编程的好帮手—资源文件

介绍一下VB编程的好帮手--资源文件。
　　所谓资源文件，就是指将在程序运行时用到的资源集中在一起的一个文件。一个资源文件可以包括文字（TEXT）、位图（BITMAP）。图标（ICON）等。并且在程序中调用时不用指明路径，这就简化了程序的编写并减少了发生错误的可能。现在我就以一个小程序为例讲述资源文件的一些使用方法。
　　这个工程运行后，当点击【未来】按钮时中间图像将依次变换为夏、秋、冬、春……点击【从前】按钮则以相反顺序转动图片（源程序附后）。
　　首先建立春、夏、秋、冬四幅位图，均以.BMP格式保存在C:\TEST\下。然后打开记事本编写资源文件，
内容如下：
100 bitmap spring.bmp
200 bitmap summer.bmp
300 bitmap autumn.bmp
400 bitmap winter.bmp
　　其中数字表示此项的ID号码，此号码很重要，它直接影响调用！BITMAP表示以位图方式保存而最后的部分为文件名。将此文件保存为TEST.RC。
接下来编译此资源文件。在C:\Visual Basic\Wizards目录下找到RC.EXE文件。在MS-DOS方式下键人C:\rc /r c:\test.test.rc（键入rc /?将会得到帮助），在编译成功后在C:\TEST\中将发现增加了一个名为TEST.RES的文件。
　　完成了上面的工作，接下来就可以编写工程了。首先建立一个image控件img和两个Command控件cmdc、cmdw。然后建立一个时钟控件，设其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控件中加入源程序代码。
最后在工程资源管理器中用鼠标右键单击选择【添加】--$#@62;【添加文件】，加入TEST.RES。
　　至此工程可谓大功告成，按F5运行一下，希望你会喜欢。还有一点要强调的是一个工程只能有一个工程文件！附源程序：
Option Explicit
Dim iid As Integer
Private Sub comc_Click()
iid = iid - 100
If iid $#@60; 100 Then iid = 400
img.Picture = LoadRespicture(iid.vbResBitmap)
End If
End Sub
Private Sub comw_Click()
d = 100 + iid
If iid $#@62; 400 Then iid = 100
img.Picture = LoadResPicture(iid,vbResBitmap)
End If
End Sub
Private Sub Form_Load()
img.Picture = LoadResPicture(10O,vbResBitmap)
iid = 100
End Sub
Private Sub Timer1_Timer()
iid = 100 + iid
If iid $#@62; 400 Then iid = 100
img.Picture = LoadResPicture(iid,vbResBitmap)
End If
End Sub介绍一个VB编程的好帮手-资源文件。
所谓资源文件，是指收集了程序运行所使用的资源的文件。资源文件可以包含文本和位图。图标等。并且在程序调用时不需要指明路径，简化了编程，降低了出错的可能性。现在我以一个小程序为例，来描述一下资源文件的一些使用方法。
项目运行后，当您点击[未来]按钮时，中间图像将依次转换为夏、秋、冬、春...点击[从前]按钮，以相反的顺序旋转图像(附上源程序)。
首先创建春夏秋冬四个位图，保存在。C:\TEST\下的BMP格式。然后打开记事本编写资源文件，
内容如下:
100 bitmapspring . BMP
200 bitmapsummer . BMP
300 bitmapautumn . BMP
400 bitmapwinter . BMP
其中数字表示此项。位图表示另存为位图，最后一部分是文件名。将此文件另存为测试。天主教；电阻..
接下来，编译这个资源文件。在C:\Visual Basic\Wizards目录中找到RC.EXE文件。在MS-DOS模式下，按C:\rc /r c:\test.test.rc(键入rc/？会得到帮助)，编译成功后，一个名为TEST的文件。RES将在C:\TEST\中找到。
做完以上工作，接下来就可以写项目了。首先，建立一个图像控件img和两个命令控件cmdc和cmdw。然后构建一个时钟控件，并将其Interval属性设置为1000。最后在[General]中声明一个名为iid的整型变量:
Dim iid为Integer
并初始化img和Iid:
img . picture = LoadResPicture(100，VbResBitmap)
IID = 100
其中LoadResPicture(id，model)是从资源文件中调用图像的函数，100表示ID号为100的项，VbResBitmap是一个值为0的常量，表示已打开然后在两个命令控件中添加源代码。
最后在项目浏览器中点击右键，选择【添加】-$ # @ 62；[添加文件]，并添加测试。RES
至此，项目完成。按F5运行它。我希望你会喜欢它。还有一点需要强调的是，一个项目只能有一个项目文件！附加源程序:
option explicit
dimi id as integer
private subcom _ click()
iid = iid-100
if iid $ # @ 60；100那么iid = 400
img。picture = LoadRespicture(iid . vbresbitmap)
End If
End Sub
Private Sub comw _ Click()
d = 100+iid
If iid $ # @ 62；400那么iid = 100
img。Picture = LoadResPicture(iid，vbResBitmap)
End If
End Sub
Private Sub Form _ Load()
img。Picture = LoadResPicture(10O，vbResBitmap)
iid = 100
End Sub
Private Sub Timer 1 _ Timer()
iid = 100+iid
If iid $ # @ 62；400那么iid = 100
img。Picture = LoadResPicture(iid，vbResBitmap)
End If
End Sub