说三道四技术文摘-感悟人生的经典句子
说三道四 > 文档快照

VB如何使用资源文件

HTML文档下载 WORD文档下载 PDF文档下载
VB如何使用资源文件

VB编程的好帮手--资源文件

  各位VB高手,你一定也常常因苦于无法组织自己程序中大量的picture,而头痛不已,那就让小生为各位介绍一下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的项,bResBitmap为一常量,值为0,表示以位图方式打开。然后在两个Command控件中加入源程序代码。
  最后在工程资源管理器中用鼠标右键单击选择【添加】-->【添加文件】,加入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
Andorid APK反逆向解决方案:梆梆加固原理探寻 科技拥抱设计:体验设计如何创新? Rails 4.0正式发布 命途多舛的webOS,两度易主,生生死死多少回 Citrix全面开源XenServer 为了三十亿人的网络幸福:Google投资O3b发射网络卫星 Windows 8.1中IE 11开始支持WebGL和SPDY/3 微软Build 2013开发者大会:盘点Windows 8.1的15个重大更新 瞧!这是摩托罗拉移动新Logo,你有什么感觉? 专访UEditor创始人战毅:打造最佳的用户编辑体验 Eclipse 4.3 正式版发布 代号Kepler 为兴趣而生 七大编程挑战项目,你敢来吗? iOS 7辅助功能:左右摇头控制iOS设备 挑战传统关系型数据库:Facebook图形数据库TAO揭秘 揭秘“棱镜计划”幕后的技术 你更新了吗?Visual Studio 2013 Preview和.NET 4.5.1同时发布 你主要使用什么编程语言? 跨平台游戏开发工具App Game Kit或将新增更多强悍功能 移动应用推广的那些事儿:应用发现篇 DDoS攻击也能成为一种云计算服务 Netflix开源Hadoop集群调度工具:日处理近万作业、上千TB数据 传谷歌正开发自己的视频游戏主机和智能手表 AMD APU战略转型:全民四核,发力“云+端” 富士康自主研发智能手表 惹苹果发来订单 开发者眼中的iOS 7:重设计过程没想象中那么糟 游戏引擎Unity宣布免费支持Windows Phone 8及Xbox One 蝉游记王益善专访:7人小团队实现App 30万下载量 去除IE 10广告的两种方法 直接拿来用!最火前端开源项目(二) 工作变得简单又高效 试试这八个WebApp 移动周报:生于微信,疯狂猜图的推广经 那位可以给我描述一下“代表”? 请问有WINsock编程高手么,帮我看一下下面的程序 紧急招聘PB程序员(成都) 关于产品序列号的问题……想了很久了。 这里有几个问题,能者请进! 请教VC项目开发经验 如何让下载的程序变成免费的? 请问有Pdf到Text的转化的源代码么? 能否让下载的程序变成免费的? 请问怎样才能自动复制文本框中的文本到剪贴板? 是否可用简体中文的VB开发翻体中文的应用程序? 使用JavaMail转发邮件 在servlet中是不是不可以引用其它的类中的函数.(这个类不是派生于HttpServlet) 为什么买书配送的光盘文件在BCB工程中打开后不让修改(打开前已转换为存档文件了)? 请教使用OPEN CLIENT 的一个小问题 索求算法 请问能否将下载的程序变成免费的? 现在学习C#不晚吧,:P 关于VB中控制运行实例的问题 请教关于DBGRid的问题。 请问在Java下如何实现文件压缩?有没有现成的接口或者压缩算法代码?多谢 这里下载C#电子书《C#教程》(中文 希望出版社) 我如何才能删除ORACLE中建立的用户??总是提示用户不存在或SQL第归错误等等!! CSDN灌水乐园的惊世大骗局!!CSDN灌水乐园的惊世大骗局!!CSDN灌水乐园的惊世大骗局!! 如何用简体中文VB开发翻体中文软件? 高分请教!!!! 一定加分!!!1111111 在打印或打印预览前如何获取报表页数 求助.希望有人帮忙!! 我用ACTIVE REPORT出了问题....相教 请问如何获得硬盘的序列号? 请问各位,有什么好的方法来为用户分配权限,要多少分就给多少? 我有一个www.cnjava.com,有没有人愿意要这个域名? 请问Delphi中关于fropro数据库的软删除问题!急用!谢谢! 当两个表用主键关联时,删除主表的一条记录,关联表对应的记录能不能自动删除(不用代码)? 大家来谈谈各自在制作网页时的css于inc的运用吧 小弟对Java及C#的一点看法-请大家指正! 高手请进,帮我看看这是什么意思?感谢非常 基于组件的三层应用程序怎么打包?200分相赠!!! 如何执行带OUT参数的ORACLE的存储过程 有谁做过矩阵奇异值分解的程序? 讨论:爱需要表白吗? 请教各位大侠:我用TNMStrm控件发送数据时,怎样实现定时连续发送?我现在发送一次成功,紧接着第二次发送就不行了,出现蓝屏. slide中的滚动条,有NM_RELEASEDCAPTURE事件,是响应mouseup,有没有什么事件响应mousedown的? 再送50分,求大家来讨论用存储过程建datawindow时应注意的事情。 我想做一个网页,实现文本分割,发送短消息! 那为老兄知道SCO OPENSERVER下面PHP的安装方法! 在asp中可不可以不用recordset来开发? 是否有好的ASP书籍 哪里有已经破解了的BAS4.5下载? 调用::GetCurrsorPos()和窗体成员函数GetCurrsorPos()得到的位置都不对???? 急:如何用java实现报表打印,给高分 工程队修建一条水渠,第一天修了180米.第二天修了全长的4分之1,第三天修的水渠的长度为前两.工程队修建一条水渠,第一天修了180米.第二天修了全长的4分之1,第三天修的水渠的长度为前两天 数学应用题:某一工程修一条路,第一天修了全长的二十七分之五,补充上面的:第二天修了余下的十一分之三,第三天修了第二天余下的六分之五,第四天修8千米,正好修完.求这条路的总长度 某工程队修一条路,第一天修了20%,第二天修了150米,两天一共修了全长的二分之一,这条路全长多少米? 一支工程队要修一条水渠,第一天修了全长的5分之1,第二天修了全长的4分之1,第二天比第一天多修了25千米,这条水渠全长多少米?(注意单位) 工程队修一条路,3天修了全长的9分之2,多少天可以修完? 修一条公路,第一天修了全长的三分之一,第二天修了全长的二分之一,两天共修了全长的几分之几? 修一条路 第一天修了全长的2分之1 第二天修了余下的2分之1,这条路还剩几分之几没有修? 工程队修一条公路,第一天铺了全长的五分之二第二天比第一天少铺三分之一,还剩210米没铺.这条路有多长? 有一条长24千米的公路,第一天修了它的八分之一,第二天修了五分之二千米,两天共修多少千米? 一条路100米,第一天修了这条路的2分之1,第2天修的是第一天的3分之1,还剩这条路的几分之几没有修 某工程队修筑一条马路,第一天修了全长的十分之三,第二天修了全长的五分之二,还剩630米没有修,这条马路全长多少米? 修一段路,第一天修了全长的五分之二,第二天修了全长的四分之一,两天共修了260米,这段路长多少米? 一条路100米,第一天修了全长的二分之一,第二天修了全长的三分之一,还剩这条路的几分之几没修? 市工程队修一条路第一天修了全长的五分之二第二天修了全长的百分之二十五还剩154米没修这条路全长多少米 加工一批零件,王师傅加工26个,占总数的5分之1,剩下零件按7:6分给张、李两位师傅.两位师傅各加工多少(方程和假设) 一段路第一天修了二分之一,第二天修了剩下的二分之一,还剩几分之几没修? 市工程队俢一条路,第一天修了全长的五分之二,第二天修了全长的百分之二十五,还剩154m没修,这条路全长多少m 李师傅加工一批零件,已加工的与未加工的个数比是1:3,再加工400个后,已加工的占总数的2分之1.这批加工的零件有多少个? 一条路一百米,第一天修了二分之一,第二天修了余下的三分之一,还剩这条路的几分之几?只要算式! 工程队修一条路.第一天修了全长的百分之二十五,第二天与第一天所修的比是4:3,还剩500米没有修.这条路 加工一批零件,王师傅加工26个,占总数的五分之一,剩下的零件按7:6分给张,李两位师傅,两位师傅各加工多少个 一段路,第一天修了二分之一,第二天修了二分之一,还剩全长的几分之几 修路队修一条公路,第一天修了全长的四分之一还多1.2千米,第二天修了全长的五分之二少0.8千米,这时还剩6.6千米没修,这条公路全长是多少千米? 李师傅要做350个零件,前三个小时完成了总数的七分之三.照这样的速度,他完成全他完成全部零件需要多少小时? 修一条水渠,第一天修了全长的十五分之二,第二天比第一天多修了全长的20分之3,还剩几分之几没有修? 某工程队,第一天修了600米,第二天修了全长的20%,两天共修了全长的1/2.这条公路全长多少米? 李师傅4分之3小时做6个零件,照这样的速度,他工作2分之5小时,一共可以做多少个 修一条长五分之四米长的水渠,第一天修了全长的三分之一,第二天修了全长的五分之二,还剩几分之几没有修把全长看做单位一来减,还是用五分之四减 某工程队修路,第一天修了三分之一,第二天修了50米,两天共修了全长的百分之50,这条路有多长? 两位师傅共同加工一批零件,张师傅4小时加工了全部的5分之2,李师傅4小时加工了280个.这时剩下未加工一批零件个数与这批零件总数的比是1:4,这批零件共有多少个?注:算式. 修一条水渠,第一天修了全长的十五分之二,第二天修了全长的十分之一,还剩几分之几没有修? 某工程队修路,第一天修全长的百分之25,第二天修一百五十米,两天共修了全长的十分之三,这段公路长多少米求列算式详细回答,有讲解 李师傅要生产一批零件,6天生产了这批零件的十分之三,照这样的速度计算,还要多少天才能完成任务?用比例知识解体 修一条长5分之4米长的水渠,第一天修了全长的3分之1,第2天修了 全长的5分之2还剩几分之几没有修 工程队修路,第一天修了600米,第二天修了全长的20%,两天共修了全长的1/2.公路全长? 李师傅加工一批零件,如果每天做50个,要比计划晚8天完成;如果每天做60个,可早5天完成.这批零件共有多少个? 一条路100米,第一天修了这条路的12%,第二天修了余下的13%,还剩这条路的几分之几没修? 某工程队修路,第一天修了600米,第二天修了全长的20%,两天一共修了全长的二分之一.这条公路全长多少米? 李师傅计划做一批零件,如果他每小时多做10个,可提前1小时完成任务,如果他每小时多做20个,则又提前1小时完成任务,共多少 一条路长100米,第1天修了1/2,第2天修了1/3,还剩这条路的几分之几没修? 一个工程队修一条公路,第一个月修了全长的四分之一,第二个月修了全长的五分之二,第二个月比第一个月多修了12千米,这条公路全长多少千米? 李师傅加工一批零件,如果每天做50个,要比原计划晚8天完成,如果每天做60个,就可以比原计划提前5天完成.问这批零件共有多少个? 工程队修一条水渠,第一天修了全长了四分之一,第二天修了全长的百分之三十,还剩下900米没修.这水渠全长 工程队修一段160米长的公路,第一天修了全长的1/5第二天修了全长的3/8,还剩全长的几分之几没有修? 一个工程队修一条公路,第一个月修了全长四分之一,第二个月修了全长的五分之二,还剩14千米这条公路全长多少千米? 工程队修一条水渠,第一天修了全长了四分之一,第二天修了全长的百分之三十,还剩下900米没修水蕖全长不要方程 工程队修一条长3/4千米的道路,第一天修全长的1/4,第二天修全长的1/3,还剩全长的几分之几没有修完 1.一个工程队修一条公路,第一个月修了全长的四分之一,第二个月修了全长的五分之二,第二个月比第一个月多修十二千米.这条公路长多少千米?2.仓库里有一批货物,运出五分之三后,又运进二 工程队修一条水渠,第一天修了全长了1/4,第二天修了全长的30%,还剩下900米没修.这条水渠全场多少米? 工程队修一条公路,第一天修了全长的3分之1,第二天修了80米,还剩86米没有修,这条公路长多少米? 某工程队三个月内修一条全长为12千米的公路,第一个月修了五又三分之一,第二个月修了剩下的五分之二,第三个月修了多少米速度速度 啊 工程队修一条水渠,第一天修了全长的25%,第二天修了全长的30%,还剩下900米没修,这条渠全长多少米?今天就要 工程队要修一条长200米得路,修了一段后还剩63米没修.已知的米数占 条路的几分之几 修一条路,第一天修了300米,第二天修了全长的四分之一,两天共修了全长的十八分之五,这条路长多少米? 工程队修一条水渠,第一天修了全长的15%,第二天修了全长的40%,还剩下900米没修,这道水渠全长多少米 工程队修一条路已经修了5分之4千米,剩下的是已修的8分之7,这条路长多少千米? 工程队修一条路,第一天修了全长的30%,第二天修了30米,两天共修了全长的50%,这条路全长多少米? 某工程队挖一条水渠.第一天挖了全长的5分之1,第二天又挖了全长的5分之1,第三天挖了全长的6分之1.这条水渠(要算式) 应用题:工程队修一条路,已修了800米,正好占全长的9分之4.这条路全长多 工程队修一条路,第一天修的比全长的1/3少100m,第二天修了300m,两天共修了全长的40%,这条路长多少米?
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn