各位VB高手你定也常常因苦于无法组织自己中大量picture而头痛不已那就让小生为各位介绍下VB编程好帮手--资源文件
   所谓资源文件就是指将在运行时用到资源集中在起个文件个资源文件可以包括文字(TEXT)、位图(B99vMAP)图标(ICON)等并且在中时不用指明路径这就简化了编写并减少了发生可能现在我就以个小为例讲述资源文件些使用思路方法
   这个工程运行后当点击【未来】按钮时中间图像将依次变换为夏、秋、冬、春……点击【从前】按钮则以相反顺序转动图片(源附后)
   首先建立春、夏、秋、冬 4幅位图均以.BMP格式保存在C:\\TEST\\下然后打开记事本编写资源文件
内容如下:
100 bitmap spring.bmp
200 bitmap summer.bmp
300 bitmap autumn.bmp
400 bitmap wer.bmp
其中数字表示此项ID号码此号码很重要它直接影响！B99vMAP表示以位图方式保存而最后部分为文件名将此文件保存为TEST.RC
   接下来编译此资源文件在C:\\Visual Basic\\Wizards目录下找到RC.EXE文件在MS-DOS方式下键人C:\\rc /r c:\\test.test.rc(键入rc /?将会得到帮助)在编译成功后在C:\\TEST\\中将发现增加了个名为TEST.RES文件
   完成了上面工作接下来就可以编写工程了首先建立个imageControl控件img和两个CommandControl控件cmdc、cmdw然后建立个时钟Control控件设其Interval属性为1000最后在[通用]中声明个名为iid整形变量:
Dim iid As Integer
并化img和iid:
img.Picture=LoadResPicture(100,vbResBitmap)
iid=100
其中LoadResPicture(id,model)为从资源文件中图像100表示ID号为100项vbResBitmap为常量值为0表示以位图方式打开然后在两个CommandControl控件中加入源代码
   最后在工程资源管理器中用鼠标右键单击选择【添加】-->【添加文件】加入TEST.RES
   至此工程可谓大功告成按F5运行下希望你会喜欢还有点要强调是个工程只能有个工程文件！附源:
Option Explicit
Dim iid As Integer
Private Sub comc_Click
    iid = iid - 100
    If iid < 100 Then iid = 400
       img.Picture = LoadRespicture(iid.vbResBitmap)
    End If
End Sub
Private Sub comw_Click
    iid = 100 + iid
    If iid > 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 > 400 Then iid = 100
       img.Picture = LoadResPicture(iid,vbResBitmap)
    End If
End Sub