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

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
CES 2014:GPS供应商Garmin推健康腕带Vivofit 《近匠》第05期:移动开发工具访谈,个推——有节操的push 【Hadoop技术博客推荐】Hive的那些事 Twitter联合创始人推社交搜索应用Jelly 马云“食言”进军手游分成比例8:2,开发者可拿7成 CodeCombat游戏全面开源:玩游戏也能学编程 Netflix首席云架构师Adrian Cockcroft加盟Battery Ventures Android 4.3附体:RIBX发布FB/Ti 互联网手表 IE11界面布局的秘密武器:Quero Toolbar 【开源专访】Node-Webkit作者王文睿:桌面应用的全新开发方式 CentOS归属红帽:企业级Linux领域社区与商业的融合 印度初创公司Little Eye Labs证实已被Facebook收购 雅虎收购Aviate:重在提升用户体验 SDN领域硝烟再起,Oracle将Corente收入囊中 Hadoop科普文——常见的45个问题解答 CES 2014:奥迪下一代汽车将采用NVIDIA的芯片! Cocos 3.0 Beta发布:更易用、更友好 开拓新兴市场?诺基亚或推Android手机,UI界面遭泄露 预测2014大数据值得关注的8个发展方向 霸主地位再临挑战?Salesforce CEO,我们不只有Oracle LBS应用新星、“司机好助手”微车借力移动互联网,志在打造车主的个人移动门户 新一代IDE Light Table开源:让编程工作更简单 图片应用也能高大上,看Cooliris如何玩转无人机 拥抱Spark,机遇无限——Spark Summit 2013精彩回顾 1月10日:改变世界的iPhone七岁了,你是传奇! 同洲电子推出首款手机操作系统960OS 免费授权使用 如何在Windows 8.1的IE11中打开同步选项卡? 25年老对手评价微软:换CEO可行,但是太迟了 【PPT集萃】十位一线专家分享Spark现状与未来(三) 万元奖品等你拿!2014创客118新年大Party! Firefox OS的2013回顾和2014展望 高价收购! 谁可以给我TSR完整的例程...(要有注释喔) 现在用的控件都是D版的,以后怎么注册软件啊? 请过了网络设计师的兄弟帮帮忙! 在C中,找一个字符或字符串在另外一个长字符串(64K)最后出现的位置,怎么实现最高效呢? 用 DHCP 分配了二个网段的IP地址。 “斑竹”在吗?象是只有你能够解决了!!!(附程序及错误代码!!!) 请问哪位仁兄知道SYGATE4.2 build 803的注册码? 如何在表单中阻止双引号??? 大虾们,帮我看看,这个错误和警告是什么原因造成的? 帮帮我吧 关于B/S报表? 怎样设置msflexgrid某一列的颜色? 用 DHCP 分配了二个网段的IP。 怎么能抓到密码? 在运行时想改变一个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中编制一个宏? 如何得知程序的一个实例正在运行? I=P/(1.732×U×cosφ×η) 和I=P/(1.732×U×cosφ)那个公式正确 (x-1/x)^5的展开式中含x^3项的二项式系数为? 设f(x)=(1+x)^m+(1+x)^n (m,n属于N+)的展开式中x的系数是19设f(x)=(1+x)^m+(1+x)^n (m,n属于N+)的展开式中x的系数是19(1)求f(x)的展开式中x ^2的系数的最小值及m,n的值(2)当f(x)的展 三相计算公式p=1.732*u*i*cos 中的i 电流是每一相上的吗?请解释一下?谢谢. (2x+1)^5的第三项,第五项,第六项的二项式系数,第四项的系数,x³项的系数,x^5项的系数这下多少啊? 整式f(x)=(1+x)M次方+(1+x)N次方(M,N∈N*)中含X项的系数为19,求f(x)中x2项系数的最小值 是电机计算公式中COSφ是什么意思?是怎样来的 在等比数列{an}中,a1+a2+a3+a4=15/8,a2a3=-9/8则1/a1+1/a2+1/a3+1/a4= 关于excel2010的问题公式右拉的问题例如我计算一个公式b11=b10/b1,然后再b10这行往右拉,公式却依次变为c11=c10/c1 d11=d10/d1.,就是最后分母依次都变了,我要的分母都是b1啊,在选项当中我也设置了自 已知(x+y)^n的展开式中各项的二项式系数之和为1024,求展开式中的第3项; excel2010用公式显示某一列出现的第一个数字可能是我没有描述清楚问题把,我要的是如A列中既包含汉字又包含空格和数字,如何用公式显示出从A列中(如A1单元格到A1000单元格)从上到下遇到 已知功率p=45kw,需用系数Kx=1,功率因数cosφ=0.9,怎样计算它的计算电流Ijs是多少? 已知(1-2x)^n的展开式中,奇数项的二项式系数之和为64,则(1-2x)^n(1+x)的展开式中,x^4项的系数为? EXCEL2010如何用公式查找出一列中的日期A1 2014-8-5 15:50:25 2 2014-8-5 15:31:58 3 2014-8-4 18:38:55 4 2014-8-4 18:29:29 5 2014-8-1 16:49:18 6 2014-7-30 17:18:41 7 2014-7-29 17:16:38 1、如何用公式在A列中找出2014-8月的数据2 已知二次函数f(x)的二项式系数为a,且不等式f(x)>-2x的解集为(1,3) (1)若方程f(x)+6a=0有两相等实根,求f(x)的解析式(2)若f(x)的最大值为正数,求实数a的取值范围 已知(1—2x)n的展开式中二项式系数和为64,则它的二项展开式的中间项是? 220V电压5A电流的闸刀开关最大能承受多少功率?(公式) 两个数相除,商是42,被除数,除数商的和是102.2,被除数是( ), .一台三相电动机有功功率为4KW,功率因数为0.8,接在线电压为380V的三相电源上,求电动机的线电流 已知f(x)=(1+2x)∧m+(1+4x)∧n(n,m∈自然数)的展开式中含x项的系数为36,求展开式中含x∧2项的系数最小值! 1、两个数相除,商是42,被除数、除数、商的和是102.2,被除数是()2一头鲸中162吨,比一头大象体重的37.5倍还多12吨.这头大象是多少吨(方程解) 3、同学们参加义务活动,给树木浇水,五年级同学 急!380V电压10千瓦3相电机电流在18个照这样计算一小时几度电?列出工公式!在此先谢了!? 如何在数据透视表中插入计算字段?比如数据透视表中有“销量”和“销售任务”字段,要插入一个“完成比例”字段,通过“销量”/“销售任务”来得出完成比? 两个数相除,商24余1,除数是42,被除数是()一行有36棵小树,现改成株距5m,一共有几棵小树不必移动? 三相电机电流计算公式I=P/1.732/U/cosΦ,1.732是什么为什么有个1.732 11KW三相异步电动机空载电流是多少?11KW4级三相异步电动机,空载电流16--17A.新的电机,轴承新的,无摩擦!3到4台检测的空载电流都是这样?还有一台11KW-4级空载电流上到22-23A.新的,轴承也新的!为什 两个数相除商是42,如果被除数和除数同时扩大是10倍,商是() 数列{an}为等比数列,项数为偶数,又各项为正数,所有项之和为偶数项之和的4倍,且a2a4=9(a3+a4),问数列{lgan}前多少项之和最大?guocheng! 谁知道电压380v,功率为50KW的鼠笼式三相异步电动机空载电流为原来的5到6倍的原因 两个数相除的商是4分之3被除数与除数的和是42被除数是( ),除数是( ) 已知的(1+2x)n展开式中第6项与第7项的系数相等,求展开式中二项式系数最大的项和系数最大? 电机37KW用变频调速以后功率是多少?求计算公式`` 三相异步电动机空载电流不平衡今天我做了一台电机的型式试验,结果如下:1.三相冷态电阻平衡2.Ik平衡3.三相电压平衡4.只有I0不平衡,且不平度为10%~20%,第一次实验全部为C相I0大;第二次实验 以知(1+2X)n次方展开式中第6项与第7项系数相等,求展开式中二项式系数最大的项. 二项式(x^2+1/x)^5的展开式中x^4的系数是 答案是10还是-10,麻烦说下谢谢二项式(x^2-1/x)^5的展开式中x^4的系数是 括号内的是减号,上面打错答案是10还是-10,麻烦说下谢谢 已知f(x)=(1+x)∧m+(1+x)∧n(m,n∈N*)的展开式中x的系数为19,求f(x)展开 已知(1+2x)^n的展开式中第7项和第8项的二项系数相等,求展开式中系数最大的项及二项式系数最大的项 在[X/2-X^(-1/3)]^N的展开式中,只有第5项的二项式系数最大求展开式中的常数项 设m,n属于N*,f(x)=(1+x)m=(1+x)n,若f(x)展开式中x的系数是19,当m,n变化时,求x2系数的最小值. 一个数的小数点向右移动三位后,再向左移动一位,结果原数( ) A扩大了100倍 B缩小了100倍 C扩大了10倍 D一个数的小数点向右移动三位后,再向左移动一位,结果原数( ) A扩大了100倍 B缩小了10 二项式(1-2/x)^5的展开式中第四项的系数为 设m,n∈Z+,m、n≥1,f(x)=(1+x)m+(1+x)n的展开式中,x的系数为19.(1)求f(x)展开式中x2的系数的最大、小值;(2)对于使f(x)中x2的系数取最小值时的m、n的值,求x7的系数. 项数为偶数的等比数列所有项之和等于其偶数项之和的4倍第2项与第4项之积为第3项与第4项之和的9倍求通项公式 {an}为等比数列,若a1+a2+a3=26,a4-a1=52,求an excel2010这样的公式怎么编辑?总数=40+X×30%+Y×30% 项数为偶数的等比数列的所有项之和等于它的偶数项的和的4倍,第2项与第4项之积为第3项与第四之和的9倍,求该数列的通项公式 在等比数列an中,a1+a2=20,a3+a4=40,则S6 三相异步电动机的额定功率是指什么? 项数为偶数的等比数列的所有项之和等于其偶数项之和的4倍,第二项与第四项之积为 三相380V的电机,怎样根据电阻计算功率?一台电压380V的异步电动机.不知道功率,能不能根据它的电阻计算出功率? 已知一台三相异步电动机的额定功率是P=5.5KW,额定电压U=380V,额定功率因素cosa=0.86,额定效率η=0.86,额定转速n=1440r/min,求额定电流I 这个excel公式的意思=IF(B8=0,"",IF(ISERROR(VLOOKUP(B8,#REF!,5,FALSE)),"★",VLOOKUP(B8,#REF!,5,FALSE))) 三相星形接法如何计算功率和电流?2200W,380V的电动机电流是多大?三相星形接法如何计算功率和电流?如2200W,380V的电动机电流是多大?电机上所标的电流是通过单条导线的电流还是三条导线的电 拜托了我明天要交某三相异步电动机,其额定功率为10kw,额定电压为380V,额定效率为87.5%,某三相异步电动机,其额定功率为10kw,额定电压为380V,额定效率为87.5%,额定功率因数为0.88,额定转速为2920r/m 如何发挥电子表格中公式的作用 EXCEL如何用公式统计数量?表格总共有2000多行的数据,第一列是日期,第二列是类型,第三列是行业,求第四列是行业数量求在第一列和第二列相同的情况下,求第三列中同一行业的数量.如图,在A列 三相异步电动机满载时的额定功率告诉了 额定电压转速 效率 功率因素都知道 要求它的额定功率 怎么三相异步电动机满载时的额定功率告诉了 额定电压转速 效率 功率因素都知道 要求它的 三相电机有功功率计算公式:P=1.732×U×I×cosφ,求其推导的全过程? 已知等比数列{an}中,a2,a3,a4分别是某等差数列的第5项,第3项,第2项,且a1=64,公比q≠1(1)求an(2)设bn=log(2)an,求数列{bn}的前n项和Tn 三相异步电动机Y160M-2由铭牌查得额定功率P=1.5KW;额定电压U=380V;额定功率因数cos=0.88;额定效率88%;修后测得空载电流为9A,试判断它的空载电流大小是否合格要写出计算步骤
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn