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

VB编程的好帮手资源文件

HTML文档下载 WORD文档下载 PDF文档下载
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的项,vbResBitmap为一常量,值为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
怎样把可以使用的表名输出到一个选择框?-Delphi资料 怎样发布基于Microsoft SQL Server的程序-Delphi资料 怎样解决打开一个DBF表时的Index not found..错误-Delphi资料 怎样向SQL Server插入带有Image字段的记录-Delphi资料 怎样在Paradox表中加密码?-Delphi资料 自动Login数据库-Delphi资料 自动检测、建立数据库别名和表格-Delphi资料 自动注册Paradox-Delphi资料 Delphi 4增訂的Object Pascal Delphi 5 Enterprise版10大特点 Delphi 插件创建、调试与使用应用程序扩展 Delphi 程序制作要点 Delphi 中面向对象编程之我见 Delphi”程序级触发器”功能的实现 Delphi4.0系统提示信息的汉化 Delphi5优化 Delphi编程技巧十则 Delphi程序制作要点 Delphi的类型转换 Delphi第三方控件大测评 Delphi多层应用程序的实现 Delphi技巧点滴 Delphi使用经验五则 Delphi使用心得 Delphi拖放编程(1) Delphi拖放编程(2) Delphi系列的Y2K问题 Delphi下编程实现中文输入 Delphi用于读写的三种文件类型 Delphi之三十六计之输入处理篇 DELPHI中DFM文件与文本文件转换 已知,f(x)=arctanx,其二导f''(x)=(-2x)/(1+x*x)^2,f''(0)=0,试: 一个有趣的问题,请大家看一个小程序,来者有分。 这个写者优先是不是有问题????麻烦看一下,小弟实在看不出错在哪里 请问有没有办法得到[系统托盘]上其它程序的所显示的Icon?? 已知,十六进制(34.6)16=(28.75)10(十进制) 高手推荐几个Palm开发的网站?最好有源代码! 请教一个问题 触发器(加密)内容可以查看吗 怪,文件路径绝对正确,EXE文件不能下载,其它格式正常。 在编写的用户控件中公开所引用控件的事件怎么实现啊 这是我的usb口的问题吗? 考程序员前想先考全国三级,请问三级种哪个科目考C编程?何时报名? 调用DLL时候出现Bad Dll calling convention错误,为什么?代码如下 如何建立一个小数据库? 我想问下,网络技术到底是指什么??? 为什么会出现这个问题呢??急救??? 在不同操作系统出现不能正常运行的问题,和默认字体语系乱码问题 C# 静态类成员 新手请求各位前辈帮助 如何查询我连接到哪个数据库? 哭着请求帮助。。。。。页面显示问题!!在线等着 网络技术到底是指什么???? 我想在<<三国九>>里输入正确的中文,有法子么? 能帮我改改么? 紧急求助,请高手支招 请问在JTABLE中如何将某几行设置成可以被选择的,其他几行设置成不能被选中的? 请问怎样修改SDI框架的标题及去掉最大化按钮??? 在自定义的用户控件上公开引用windows控件的事件怎么做啊!!谢谢 2003中为什么IDE设备只能用PIO模式? 在FAQ里见到这样一句,不明白什么意思 怎么我用vc 的 odbc 做数据库时,工程名为try ,在工程工作区的“class view”面板里没有tryview类的? 不能使用xmldocfile() 文档对象的问题 关于键盘纪录,高手 如何使用IPAddress控件? 初学者问:怎么用UpdateAllViews()? 无法创建asp.net应用程序 大家帮帮我吧,我都快崩溃了 中文乱码的问题 !!谁在VMWare 3.2里装过RedHat 9.0和RedFlag 3.0,请看看这些问题(100分)!! 如何使在输入框选中的文字在提交后仍然显示在输入框中? 无法创建asp.net应用程序 高手在上,请问怎么样在win2k中实现关闭程序和绘图[内详] 初学者问:如何在listview中查找其中一行? 怎样在调试窗口中看到变量值? 郁闷中,狂散分。。。。。。 DCOM怎么使用? 想做一个地区门户一般要包含那些栏目?? 线程 怎么能让DELPHI编出来的程序最小化以后进入到系统托盘? C++问题,请进来帮忙! 一个长方形的长是10cm,宽是8cm,高是3cm,把它切成两个完全一样的小长方体.它的表面积最多增加多少?最少增加多少? 食堂有一堆煤烧去一部分后还剩三分之1,还剩9分之2吨.这堆煤原有多少吨? 孩子身高1.65,做个书桌多高合适?一直用的写字台,所以喜欢大桌子,最好报个长宽高. 建一个高2米宽10米长24米的彩钢房需多少钱?直筒子的 食堂有一堆煤,烧了几天后,余下的5/8,和其余5 /2吨的.这堆煤多少吨? 为什么现在萤火虫越来越少?小时候夏天夜晚,萤火虫满天飞,现在都看不见了,连农村也很少见 声速是由传递声音的物质决定的这句话对吗? 一根质量为0.4kg长为0.20m的直导线,水平放在一个倾角为30度的光滑斜面上,一均匀磁场方向垂直于斜面向...一根质量为0.4kg长为0.20m的直导线,水平放在一个倾角为30度的光滑斜面上,一均匀磁场方 现在为什么看不到萤火虫了? 设P为等边△ABC内一点,PA=3,PB=4,PC=5,则∠APB的度数为( ) 什么是生冷的东西 如图所示,物快A重10n,B重20n,AB间的动摩擦因数为0·1如图所示,设A重10N,B重20N,A、B间的动摩擦因数为0.1,B与地面的动摩擦因数为0.2 问:1.至少对B向左施多大的力,才能使A、B发生相对滑动?2.若A、B 在三角形ABC中,AB=AC=6,P是BC上任意一点,求PC*PB+PA*PA的值(提示:利用勾股定理)不要用三角函数,就用勾股定理! 12.如图9所示,某工地工人用固定在水平工作台上的卷扬机(其内部有电动机提供动力)提升水中的物体,其提升速度始终为1.5m/s.物体未露出水面前,被匀速提升时,卷扬机对绳子的拉力为F1,卷 圆的周长是怎样得来的 细胞呼吸中的[H] 怎么读 如图所示,某工地用固定在水平工作台上的卷扬机(其内部由电动机提供动力)提升水中的物体,其输出功率始终为1500w,物体未露出水面前,以1.5m/s的速度被匀速提升,卷扬机对绳子的拉力为F1,卷 A重10N B重20N F=4N 同时作用在AB两个物体上,是它们在平面C上同步做匀速直线运动如图所示:物体A重10N,B重20N.两个相同的力F=4N,同时作用在A、B两个物体上,使它们在平面C上同步做匀速直线运动 在音标里I(I两旁有中括号)怎么读?在一组音标里I在前面拼什么?在后面拼什么?在中间呢 如图所示,劲度系数为k=10N/m的弹簧下面挂着质量分别为m1=0.5kg和m2=0.3kg的两个物体……如图所示,劲度系数为k=10N/m的弹簧下面挂着质量分别为m1=0.5kg和m2=0.3kg的两个物体,开始时它们都处 A重10N,B重20N,AB间、B与地面间摩擦因数等于0.5,欲使B匀速拉出,F至少要多大? breathe怎么读 已知a为实数,f(x)=(x平方-4)*(x-a),若f'(-1)=0,求f(x)在中括号-4到4上的最大值和最小值 萤火虫是什么变的 如图所示,在水平向右运动的小车上,有一倾角为α=53°的光滑斜面,质量为m=2kg的小球被平行于斜面的细绳系住并静止在斜面上,当小车加速度发生变化时,为使球相对于车仍保持静止,则:(1)小 不用计算圆的周长公式,有什么办法能求圆的周长 桌面上有AB两球,若要将B射向桌面任意一边,使一次反弹后击中A球,则如图所示8个点中,可以瞄准得点有几个 三角形的四个心是什么 如题,因为我要家教所以想知道进度. 圆的周长的公式时我们用什么方法? 三角形的五个心三角形有五个“心”,这个大家都知道.那这五个“心”有什么定理啊,或者应用之类的东西么?我还没有学过,接触到这些便想了解.五个心是什么这个我知道,我只是不知道在做 牛顿的“微粒说”和爱因斯坦的 “光子说”的区别 圆的周长除了用公式还有什么方法 如图所示在竖直平面内固定着半径为R的光滑的1/4圆弧槽,它的末端水平,上端离地面高H,一个小球从上端无初速度下滑.求(1)小球做平抛运动的时间(2)小球做平抛运动的水平射程S 牛顿的微粒说和爱因斯坦的光子说本质相同么 指导圆的周长的公式时我们用什么方法 德国阳光电池有一个参数是C10 1.80VpC 20℃ 为什么说爱因斯坦的"光子"与牛顿的"微粒"是不同的? 有助于回答者给出准确的答案重100N的球用水平绳拉住处于静止状态 光滑斜面倾角为37度,求绳对球的拉力和球对斜面的压力 怎么证明磁铁已经消磁了?如果用高斯计测量的话,数据在那个范围才表示磁铁已经消磁了 忌食生冷食物是什么意思 用滑轮组将200kg的物体匀速提升12m用时1min,如图所示不计绳重及摩擦,绳自由端的拉力为550N.求:(1),绳自由端拉力移动的速度是多大?(2),动滑轮重多大?这是图片 讨论函数f(x)={-x-1,x>0;-x+1,x 一重W的匀质圆球,用软绳及光滑斜面支持,如图,已知角α及β,求绳子所受拉力及斜面上所受压力的大小 如图所示的撬棍,当作用力P以哪个方向最省力,并说明下原因,(我不太懂)A 作用力垂直向下 B作用力水平向右C 作用力垂直撬棍 D作用力水平向左http://hi.baidu.com/%B7%C5%CB%C9%B5%C4%CA%C0%BD%E7/album/item 一个长方体长24cm,把它锯成每段是8cm的小段后,表面积增加了16平方厘米,求原来这个长方体的体积. My brother likes music that he can dance 静电放电的电磁兼容试验有没有相关标准? 消防水带规格10-65-20,10,65, he likes music that;s () ( energy)适当形式 200米等高线上大的某点,同200米的深线的点的相对高度是...A.200mB.300mC.400mD.600m 有衬里消防水带的有多长,口径有多少厘米? 导线的绝缘皮是否有耐腐蚀功能 清朝历代皇帝谥号是什么?例如,咸丰(显)皇帝,谥协天翊运执中垂谟懋德振武圣孝渊恭端仁宽敏显皇帝 函数y=1/(x+3) 的间断点是? 第二题怎么做,答案加解释 用细绳悬挂一个质量为m的物体,对于下类情况中绳子受到拉力F1的大小应是( ) A.当细绳拉着物体向上匀速上升时,F1>mg,F1越大.B.当细绳拉着物体像下匀速下降时,F1 为什么曲线运动所受合外力有可能是恒力有没有例子说一下 谢谢了 如图,12N重的小球放在倾角为30°的光滑斜面上,且处于平衡状态.此拉绳恰为水平方向.则绳受到的拉力为多少,斜面受到的压力为多少? 我有一个朋友,身高170,体重50kg,不是体育生,他在今年的校运会100米和200米项目上都跑过了所有的体育生,成绩分别为11.62和24.69,我想问一下他这样算好吗?(运动会前他说他在家里用哑铃和做俯 世界行走日杭州启幕 万人行走钱塘江畔17国诞生音乐试管婴儿 英国宝贝天生中国民企在新一轮变革中谋求机遇怀揣回报桑梓之心 百余浙商会聚杭州青浙江国企力邀民企加盟 推3244亿元向英军提供配件 欲解禁武器出口 日本廊坊数百学生不满校园管理聚集抗议 官中国公司承建的斯里兰卡高速路通车伊拉克北部自杀式炸弹袭击致数十人伤亡德媒:美国监听德国总理手机 奥巴马知德媒称奥巴马默许窃听默克尔手机河北首条省内低成本航线通航 机票最低综述:中国西藏文化周藏学家交流活动受中国房地产商在澳投资“风生水起”浙商二代展开青春对话 宗馥莉称不努力调查指:中国20年“农转非”比例仅增第九届两岸经贸文化论坛在广西南宁闭幕浙江力推“国民共进” 促“国字号”“长三角“绿色制药”协同创新中心:让百教师因婆婆不拆迁调岗至拆迁部 称曾被跨国公司巨头和学者会聚上海探讨城市“人民论坛:炫丑与审丑都是一种病态刘语熙:已托人将“乌贼刘”申请专利 “最狠安全标语”的直白浮夸与冷漠军事评论家:日本没有做任何对外作战、冲抵郭美美留下的道德负资产华宁陶: 600年制陶史的传承(图)中国应报复流氓国家菲律宾 大国若软弱纽约的奢侈:富人的屋顶泳池部分本院校或转型职业技术学院 高等教美国和加纳签署经贸大单(组图)外媒:解放军设立中央作战中心 指挥四詹姆斯首次会见骑士管理层 前全明星前石化气爆事件重创高雄市区 陈菊承诺会藏区妇幼保健水平显著提高 甘肃卫生计罗杰斯杯-克耶高斯收获开门红 下轮将江西萍乡市政府副秘书长彭济庆涉嫌严重加“夫妇间谍“被依法审查 鸭绿江边经美国女子将7岁儿子囚禁室外笼子长达3厦门国际动漫节下周开幕图片新闻为加强美非经贸联系 美国对非洲抛出百
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘