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

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
SAP携手Xamarin和Service2Media 提供移动应用开发框架 8个超实用的jQuery技巧攻略 美国国防部战略:大规模、分布式,构建数字化防御体系 针对小白的Python入门教程——Python使用说明书 耗资460亿美元,天价Olympic上广受诟病的监控和4G LSI AIS ASIA首次登陆中国 探讨最新大数据技术 “iOS in the Car”问世 苹果发布集成汽车服务CarPlay Pinterest联合创始人Evan Sharp:视觉网站标配“网格布局”的设计过程 微软Xbox Live或登陆iOS和Android平台 TIOBE 2014年3月编程语言排行榜:F#直逼Top10 Atlassian面向企业客户推出Git Essentials工具 Mt.Gox破产,都是错误编程惹的祸 Jamo创始人揭底AWS,棱镜阴影下的云行业态势 成本、创新、可靠:游戏公司FunPlus选择AWS的三大理由 全透明、可折叠,平板电脑概念机是这样的 插件大集合!开源包管理器Alcatraz迎来Xcode 5更新 Q语言:新型的数据定义语言 非响应式手机网站页面的优化 高薪必备:Hadoop求职者的6大攻略 微软或将于四月发布“返璞归真”的Windows 8.1 Update 1 《近匠》第14期:LiveCode——全民开发工具 美团梁堰波:用SQL-on-Hadoop构建互联网数据仓库与商务智能系统 程序员游戏Style:亚特兰大极客使用机器学习玩转Flappy Bird Gleasy CTO薛珂:成立3年,企业用户2万+,移动办公蕴藏较大发展机遇 Unity Awards展区“点亮”Unity亚洲开发者大会 DevBox:最实用的移动开发辅助工具包 【技术博客推荐】创客程序员设计实现最小物联网系统 MySQL还是NoSQL:开源盛世下的数据库该如何选择 利用Hadoop Streaming处理二进制格式文件 如果没有强大的API,那么还是与OpenStack兼容吧 企业社交工具为何走向衰退? 怎么能抓到密码? 在运行时想改变一个label的字体怎么改变,有没有做过的,label的属性在设计时是可以改的 fatal error C1010 找一个和VB的属性区一样的代码,控件或类库均可 如何调用在不同的窗体里自定义的过程 一个技术探讨问题,我想知道象在WORD等软件中插入图形或图象后,还能把它选择,并移动是怎样实现的? 请问:在另一个.asp文件中如何调用相同的变量? WEB初级应用问题 DIALOGBAR问题 请想报考明年的网络设计师的朋友进来聊聊 Oracle面向对象特征讨论,请进! 我学会VISUAL C++ 到底要多少时间 线程调试问题 大家一起进来讨论oracle和sql server的日志哦 请指教如果设置服务器端COM组件的权限,使终端可以访问到?分数好说啦,急,高手快帮忙! 如何把程序嵌入到widows Expolore 中? 今天心情特好!散分 在vc下怎样调出window下的“打开方式”对话框,他是类还是控件!请高手指点! 一个门外汉的问题~~~~ 谁知道windows共享密码如何算的 vc中asm怎么不執行? 在开始菜单点右键,拉出的菜单里的内容,怎么添加删除?? 帮忙找一个和VB的属性区一样的代码,控件或类库均可。 Word 中字体的问题 我买了一台SLE4442读写器, 为什么不能写 谁用过FAST REPORT 请求帮助 realplayer中文件菜单栏中的以看过的文件名,怎么删除??? php如何改写或者是添加一个cron的命令参数给linux服务器? SQL Server 能制作表单和报表吗?????? DirectDraw页面格式问题(两个)。答对100分绝对送上,从不食言!(附源码) VC++中的内部交互调试器在哪? 人邮版的C++面向对象高效编程如何? realplayer中文件菜单栏中的以看过的文件名,怎么删除? 如何实现真正的无标题栏的拖动? 用"select top n"取了前n纪录后,要再接着取n+1至2n条纪录,接着再取2n+1至3n……,这种取法要怎样实现呢? 如何在Excel中编制一个宏? 如何得知程序的一个实例正在运行? 送分了,送分了,虽然不多,但天天有! 为什么select count(*) from test 时,提示表或示图不存在!!! 请问如何设置mp3文件的在线播放?? 请问在内部局域网正常的情况下,打印机无法共享(共享以后没有效果)的主要原因是什么?谢谢! ===我对Linux上的Oracle8.1.7.0.1操作的时候只读,为什么啊???==== 请给我一个GetCurrentDirectory使用实例, 问一个深入MFC的简单问题 请问有关delphi项目编译的一个小问题。 各位,那里有VisualAge for Java4.0下在?我从ibm的网站上下载了,但是安装不了,说是语言不对! shcv.dll 编译不过去!!!!! have a test!have a test!have a test!have a test!have a test!have a test!have a test!have a test! mysql 结果中再次查询如何才能实现呢 pc2phone 10千瓦以下的三相异步电动机的启动电流是多少?应该如何计算并选取空气开关?10千瓦以下的三相异步电动机启动时该如何选取空气开关大小?本人是个初学者, 小明按1:100的比例尺画出教室的长是acm,小强按1:150的比例尺画出的教室长是多少? 一个长方形花坛,周长是48米,长是宽的2倍,这个长方形花坛的长和宽分别是多少米? 求三相异步电动机的降压起动控制电路图 小明按1:100的比例尺画出教师长的线段是7.5厘米,小强按照1:150的比例尺画出这个教室长的线段应是()厘米. 一个长方形花坛,长和宽的比是7:4,如果长减少2米,同时宽增加4米,它就变成正方形,这个长方形花坛的面积是多少平方米(接上面的)?要有列式,要讲解,好的提赏! 已知一长方形教室面积65平方米,如果把它的长扩大到原来的10倍,宽缩小到原来的1%,这个教室的面积应是多少? 小明安1:100的比例尺画出教室长的线段是a厘米,小强按照1:500的比例尺画出这个教室长的线段应是()厘米 一个长方形花坛的周长是120米,长与宽的比是3:1,这个长方形花坛的长和宽各是多少?面积呢? 以知一个长方形的面积是65平方米,如果扩大到原来的10倍,宽缩小到原数的百分之一,面积是多少?如果有人知道4年级下的数学做业之数学广角? 当x≠0时,(2x-1)的0次幂为什么无意义 若函数f(x),g(x)分别是R上的奇函数,偶函数,且满足f(x)-g(x)=e^x,比较g(0),f(2),f(3)的大小要有过程 谢! 一间教室的面积约为56平方米,它的百分之一和百万分之一是多少,用科学计数法表示.它的百分之一和百万分之一是多少平方千米? (x-1)的零次幂加2-x分之1有意义,则x的取值 若函数f(x),g(x)分别是R上的奇函数、偶函数,且满足f(x)-g(x)=e^x,比较f(2)f(3)g(0)的大小 3/4*3.14的x次幂的系数是多少 当x___时,(x+2)/(x-2)-(x-1)0次幂,有意义 若函数f(x)和g(x)分别是R上的奇函数和偶函数,且满足f(x)-g(x)=e的x次幂Y=e的x次幂为什么是增函数?e的x次幂为什么大于0? 在单台的三相异步电动机的控制指示灯中,故障指示灯与哪个指示灯同亮,或者是单独亮? 当x趋向于无穷时,1的x次幂=?,x的0次幂=? 若函数f(x),g(x)分别为R上的奇函数,偶函数,且满足f(x)-g(x)=e^x,设a=f(2),b=f(3),c=g(0),则a,b,c的大小要有过程的,e^x表示e的x次方 三相异步电动机控制电路中如何使用发光二极管做指示灯三个电动机,两用一备,当某个电动机出故障时自动切换备用电机,要求用发光二极管做电源指示,运行指示,故障指示,每个电动机上都有 试画出用两个启动和两个停止按钮在两个不同地方,对同一台三相异步电动机进行“启动”和“停止”控制电路 若函数f(x),g(x)分别为R上的奇函数、偶函数,且满足f(x)-g(x)=e^x,则g(0),f(2),f(3)的大小关系为_____. 把一块长和宽的比为5:3的长方形土地,用1/1000的比例尺画在图纸上,周长是16cm,实际面积是? 三相异步电动机行程控制电路的接线图怎么画如题,最好是有图,很随便的图也行.因为我对这个一窍不通,文字的话我应该看不懂. 380V配电柜上三个电流表都显示100A怎样算他功率?是P=1.732乘电流i乘电压380V在乘功率因数吗 已知an是等比数列,(a4+a8)(a6+a10)=49,则a5+a9等于 试画出既能连续工作,又能点动工作的三相异步电动机的控制电路. 四边形abcd是边长为12cm的正方形,e是正方形的中心f是bc边的中心求阴影部分面积 在等比数列{an}中,a4+a5=10,a6+a7=20,则a8+a9等于 在等比数列{an}中,已知a6-a4=24,a3a5=64,求{an}前8项和 正方形ABCD边长12cm,阴影部分面积24平方厘米,求梯形ABCDE的面积. (x+1/x)的九次方的展开式中X的三次方的系数为多少 小明住的房间地面是长方形,长4米,宽3米.(1)小明房间的长和宽分别缩小到原来的一百分之一后,场小明住的房间地面是长方形,长4米,宽3米.(1)小明房间的长和宽分别缩小到原来的一百分之 正方形ABCD的边长是12cm,且E是DC的中点,求阴影部分面积. 利用延时器星形转三角形降压启动电路图 明明住的房间地面是长方形,长4米,宽3米.(1)我们把明明房间的长和宽分别缩小到原来的一百分之一,得到的长和宽分别是多少厘米?(2)请分别算算房间地面的实际周长和缩小后的周长,再比 等比数列an,aq 鼠笼式三相异步电动机做星形连接时的线电流是做三角形连接时线电流的多少倍? 若某数列前n项和公式Sn=a^n-1,则an是等比数列吗证明 甲乙两数互为倒数,把甲数缩小10倍是4分之1,原来两数的和是 星三角形降压启动电路帮忙分析下电路原理啊!和排故步骤! 一个长方形的长增加10%,宽缩短10%,那么现在长方形面积是原长方形面积的百分之几?最好要算式, 下图甲,乙都是正方形,a=12cm,b=10cm,求阴影部分面积 技术经济题.贷款问题.求详细步骤.计算公式1. 某企业获得一笔10万元的贷款,偿还期为5年,按年利率10%计复利,分别计算以下4种还款方式每年还款额、5年还款总额及还款额的现值.(20分)(1) 三相异步电动机星-三角形降压启动控制1、画出继电器-控制器控制电路,说明工作原理.2、画可编程序控制器控制的I/O配线图.3、画可编程序控制器控制的梯形图. 数列{an}的前n项和为Sn=3an+2(1)证明:数列{an}是等比数列(2)求通项公式 已知等比数列{an}中,a4=7,a6=21,则a8等于? 已知等比数列{an}的各项都是正数,且a6*a10+a3*a5=41,a4*a8=4,则a4+a8 一个长方形各边按一百分之一缩小后的长是0.84米,宽是0.3米.求这个长方形的实际长和宽,并求出面积! 一间教室长12米,宽8米,画在比例尺为1:300的平面图上,长应画()厘米,宽应画()厘米. 已知等比数列{an}的各项都是正数,且a6*a10+a3*a5=41,a4*a8=4,求a4+a8 设数列{an}的前n项和Sn=2(an-3),证明{an}为等比数列,并求通项公式 一间教室长12米,宽8米,画在比例尺是1比400的平面图上,长应该画()厘米,宽应该画()厘米 等比数列{an}中多项均为正值且a6*a10+a3*a5=41,a4*a8=5 求a4+a 如果函数f(x)=a的x次幂乘以(a的x次幂-3乘a的2次方-1)在区间[0到正无穷大)上是增函数,那么实数a的取值范围是:(A)(0,2/3] (B)[3分之根号3,1) 计算这个式子,详细过程 小明按1:100的比例尺画出教室长的线段是a厘米,小强按照1:150的比例尺画出这个教室长的线段应是( ) 若函数f(x)=a的x-b次幂的图像如图所示,其中a,b是常数,则b(a-1)与0的大小关系是图像减函数,过(-1,1)
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn