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

一个实用的VB屏幕程序

HTML文档下载 WORD文档下载 PDF文档下载
一个实用的VB屏幕程序
作者:范明之
在VB5.0具有面向对象的程序设计思想及可视化的编程方式,可开发出各种多媒体应用程序,颇得软件设计者青睐。笔者最近应用VB5.0编制了一程序,成功实现了“图文并茂”的屏幕效果,即:屏幕出现用户选定的一幅赏心悦目的图像,在图像下方有一行字幕缓缓地从屏幕右边向左边移动,全部文字移至左边消失后,从右边又平滑拖出字幕,字幕移动过程中既不影响图像的整体效果又能对图像进行提示、说明,使应用程序界面充满“活性”。
现将设计的整个过程介绍如下:
(1)创建一个新目标文件(Project1),并建立一个窗体Form1。
(2)在Form1上配置一个计时器控件Timer1、标签控件Label1、图像控件Picture1。
(3)各控件属性设置:
Timer1的Enabled设置为“True”。
用Label1的Font设置屏幕下方循环移动的提示信息字体及大小,ForeColor设置字体颜色,AutoSize设置为True,BackStyle设置为“0-transparent”。
Picture1的AutoSize设置为False,Height设为5435,Width设为8235,Scalemode设置为“3-pixel”。
(4)程序代码清单:
PrivateSubForm_Load()
′设置图像控件Picture1属性,在屏幕显示图像Picture1Picture=LoadPicture(″C:\Pwin95\Setup.bmp″)Picture1ForeColor=RGB(255,10,110)Picture1FontItalic=TruePicture1FontBold=TruePicture1Top=155Picture1Left=635′将标签控件Label1的Caption属性设置为屏幕下方循环移动的提示信息Label1Caption=″江西省黎川县职业中专电脑室设计″Label1Left=WidthLabel1Top=5653Timer1Interval=375Form1Windowstate=2EndSubPrivateSubTimer1_Timer()IfLabel1Left<0-Label1WidthThenLabel1Left=WidthEndIfLabel1Left=Label1Left-255EndSub程序中的图像及移动字幕可依自己喜好灵活设计,以达到最佳效果。若屏幕显示多幅图像,需设置好几个图像控件Picture的屏幕显示位置,分别调用函数LoadPicture(″.bmp文件名″)即可。该程序设计也适用VB3.0、VB4.0。
【OSTC讲师专访】Debian开发者李道兵:平静地理解开源 红帽推出开源业务流程管理套件:JBoss BPM Suite 6 科学研究证明:程序员快乐才能更好的工作 ChocolateChip-UI:能“逆转”的跨平台应用开发框架 分享12款最佳的Bootstrap设计工具 Apache Flex 4.12发布,支持iOS 7 智能手机应用挑战Web平台,看W3C如何反击? 电信级数据流量与监控系统部署案例分享 TCL联手Mozilla,HTML5智能电视真的要来了! 先睹为快:Unity亚洲开发者大会虚拟游览展示 OSTC&#183;2014 演讲日程出炉,Perl创始人来了! Unity将收购Applifier,并引入Everyplay和GameAds两大平台 《近匠》从Cubieboard到radxa:汤亮的第二次硬件创业 九头蛇与大象之争,Hydra或将取代Hadoop 喜讯:中国安全团队Keen成功在Pwn2Own 2014黑客大赛上攻破64位Mac上的Safari OCP黑客马拉松冠军:24小时头脑风暴背后 新时代应用程序设计及MongoDB的十个深入理解 借助“开源”东风 英特尔打造卓越“软实力” 深圳综合交通设计研究院张鹍鹏:智能交通设备领域已成红海 信息化是发展趋势 25个可遇不可求的jQuery插件 Web设计中对视差设计的误区 直接拿来用,九个超实用的PHP代码片段(二) 一周消息树:小米染指平板电脑凶多吉少 移动周报:Xcode 5.1更新、CarPlay揭秘,Apple很忙 可穿戴领域,创业公司的掘金点?还是滑铁卢? 搜狐SendCloud2014运维技术沙龙拉开帷幕 一周热点:选择Go语言的12个理由,九头蛇与大象之争 中国云计算大会PPT集萃(二):十位技术大牛分享平台打造技术 延迟250毫秒损失数百万美元,Hadoop系统该如何应对实时任务 IBM成立展示中心扩展大型主机的Linux开放生态系统 SDN解决方案总结:OpenFlow、虚拟机、OpenStack和VXLAN/NVGRE 请教大虾:用mideaplayer来播放一首歌,如何用progressbar来表示进度? 我想学习驱动程序的开发,请大家帮我推荐几本这方面的书? 编译出错,不解?请高手指点。 能否用Delphi 实现类似东石公司的虚拟光驱系统。 我想学习驱动程序的开发,请大家帮我推荐几本这方面的书? include头文件的问题 急!!!为什么TBlobField 下载时大小受限制,怎么解决? 关于导出动态连接库中的类的问题,不知道这里有没有高手? 一个让我痛苦了n天的问题 关于Hook的一个问题 联合查询如何修改? 获取密码时出错???? my gf photo 我想问一下,java生成的.class文件能不能通过某种工具生成.exe文件? VC中组合框为什么不能下拉? 请问哪有最新的wise for window .net的版本可以下载 "java原型开发"指得是什么开发? 能否用VC++实现类似东石公司的虚拟光驱系统 请问会话Bean和实体Bean的区别在那?能给出例子吗? word文档如何存入SQL SERVER 2000? 请问如何才能在windows 2000 server 上装MTS? 有女朋友而且上网和别的mm聊天的入内签名! 如何显示不同的颜色... 有关网络开发和com的问题,高分征集关注和提供方案! 探讨一下safearray 的使用问题 关于QQ界面的制作? 在主界面中添加一副图片的问题被遮住的问题 有一个EXE执行时,我希望能删除它自己 如何在程序中获取IE当前浏览网页的IP地址或域名地址? 有南京的兄弟吗?我想买《delphi4编程技术内幕》,就是Charlie Calvert那本精华。 如何在工具条上加载图片作为工具条的背景 怎样来写这个数据连接? dbgrid里的赋值问题 Borland自带的ADO例子为什么也出错啊? pb 出现 maximum script size exceeded 保存错误 愿意到上海的软件高手可以来看看,真是没想到 我这里有一个链表类,我怎么在别的文件中使用它呢? CArray的问题? 编译器出问题了! 那里可以找到asp.net的一些原码,现在市面上的书没什么有深度的 修改PING数据包VB能做到么?高手来指点,中级来探讨,初级来学习,分数大大的有~ ;) 请教(qingrun,qingrun等大虾),请指教? weblogic高手请指点!这是不是设置不对造成的? 这样都行啊----老板是写软件的好沟通的很,干活痛快 标签hidden是干什么的,怎么使用 关于treeview中+/-按钮 动态创建了多个StaticText,我想实现将任意一个StaticText拖动到另一个StaticText上后交换他们的几个属性,该如何做? 出问题了 读取数据失败,谁能解释一下原因 向往PB之路但突遇路障,盼高手急施援手,予以鼓励!(PB8.0) 还是打包问题,烦死我了:( 烷烃的沸点高低怎么判断? 大学英语精读第一册(第三版)上海外语出版社的那本的1—5单元总练习的那篇作文!作文题目要求:for this part you allowed thirty minutes to wrtie a letter to your parthers,telling them about your study and life at 关于夏天的1000字作文,文字深邃一点的 烷烃沸点高低的影响如正乙烷,丙烷,正丁烷等. 1 .You _____ to town to see the film yesterday.It will be on TV tonight.(4 分)A.needn‘t goB.should not goC.had better not goD.needn‘t have gone2 .I hope that the parcel_____ in time.(4 分)A.cameB.would comeC.comesD.should come3 .The boys are sw 关于椭圆的一个光学性质证明证明:椭圆上任意一点与两焦点的连线的角平分线与该点的切线垂直.给出最佳证明,要求运算量最小楼下的兄台方法用到了极限的思想,但是如何用数学语言准 关于夏天的云的初二英语作文观察夏天的云,就此写一篇100个词左右的英文短文,同时说明不同的云与下雨的关系 大学英语精读第三版答案要第一册test yourself的答案, 椭圆的光学性质证明 描写夏天的云或雨的文章谁有?急 大学英语精读习题答案求大学英语精读第二册第10单元的课后习题答案! 椭圆的一个性质怎么证明椭圆x^2/a^2+y^2/b^2=1,过(m,0)(m>a)作直线l交椭圆于A,B两点,E是B关于X轴的对称点,F是椭圆的右焦点.求证:A,E,F三点共线.弄错了,m不是随便取值的,m=a^2/c 求最新文秘管理与应用写作作业 ,40分 用带有几个比喻句的短文描写出夏天的云算了,两个比喻句就行了 在化学反应中,分子与原子的区别是 急求文秘管理与应用写作形成性考核册答案,第一题是结合教材,从主旨、材料、结构、语言等四个方面阐述实用型文章的特征? 围绕《夏天的云》这篇短文,提出一个值得思考的问题, 银行贷款给企业银行做什么会计分录2008年1月1日,商业银行向A企业发放一笔8000万元,A企业实际收到款项7514万元,贷款合同年利率为10%,期限4年,利息按年收取,A企业到期一次偿还本金.该商业银行 为什么夏天的云很多 夏天文章 乙烷中混有乙烯,可以加氢气除去吗 能用来鉴别乙醇.乙烷.乙烯三种无色溶液的一种试剂A.金属钠 B.溴水 C.HBr D.氢氧化钠溶液 分解反应:由____种反应物生成____其他物质的反应,叫做分解反应.化合反应:我们把由___种或____物质生成____物质的反应,叫做化合反应 氧化反应:我们把物质与___发生的反应叫做氧化反应 请问什么叫授信?向银行贷款之前要先授信? 初三化学 通过下列反应 不能得到单质的是 1化合 2分解 3置换 4氧化举例 在线等无解? 不能得到单质! 用两种方法证明三角形的角平分线定理 3G手机到底是什么意思,国内的3G业务主要指什么?收费如何?联通的wo 3G 和诺基亚智能机相比那个好一点? 初三化学(水)水能和某些碱性化合物(?)酸性氧化物(?)和无水盐(?)发生化合反应 三角形角平分线定理证明方法 用通俗的语言解释下什么是基金 描写夏天的云的开头 三角形角平分线定理怎么证明啊? 什么是承兑,请用通俗语言解释 证明内角平分线定理的八种方法已知△ABC,AD平分角BAC交BC于点D,求证AB/AC=BD/CD. 三角形角平分线定理的证明 智利硝石矿层中含有碘酸钠,可用亚硫酸氢钠与其反应来制备单质碘,其化学方程式为:2NaIO3+5NaHSO3=3NaHSO4+2Na2SO4+I2+H2O1.当有1molNaIO3参加反应时,反应转移的电子的物质的量为?mol2.反应产物 描写夏天的云的比喻句 已知下列四个反应在一定条件下都能发生,其中属于化合反应的是( )选项:A.水→氢气+氧气 B.氢气+氧气→水 C.酒精+氧气→水+二氧化碳D.木炭+氧气→二氧化碳 用下列试剂除去物质中少量杂质A溴苯中的溴(碘化钾溶液)B硝基苯中溶有二氧化氮(水)C乙烷中乙烯(氢气)D苯中甲苯(溴水) 角平分线定理的证明 已知下列四个反应在一定条件下都能发生,属于化合反应的是A.水---氢气+氧气 B.氢气+氧气---水C.酒精+氧气---水+二氧化碳D.木炭+氧气---二氧化碳 2Mg+O2(点燃)为什么会是2Mgo 是不是化合反应中 每个字母都有,数字配平就可以 正价在左,负价在右 怎么判断烷烃的熔沸点?第10题 智利硝石中含有碘酸钠,可用亚硫酸氢钠来制备单质碘.请写出离子反应方程式,并标出电子转移方向和数目 如何由智利硝石中的碘化合物制取碘单质 宇宙中两颗相距较近的天体称为“双星”,它们以两者连线上的某一点为圆心做匀速圆周运动,而不致于因万有引力的作用吸引到一起.设二者的质量分别为m1和m2,两者相距为L.求(1)双星的 在沙漠中心 练习题第三题 椭圆证明题题目中还有过焦点垂直于长轴的弦长为1,且焦点与短轴两端点构成等边三角形 (不过我认为这只是用来求椭圆方程,因为原题中要先求椭圆方程)过Q点(,-1,0)的直线l交椭圆(x^2/4)+y^2= 宇宙中两颗相距较近的天体称为“双星”,它们以二者连线上某一点为圆心做匀速圆周运动,两者相距L,周期为T,万有引力常量为G,求总质量M 碘酸钠与亚硫酸氢钠反应生成碘单质的离子方程式 高中证明椭圆题中那个图所表达的几何意义是什么啊?没看懂 宇宙中两个相距较近的天体称为“双星”,它们以二者连线上的某一点为圆心做匀速圆周运动,而不致因万有...宇宙中两个相距较近的天体称为“双星”,它们以二者连线上的某一点为圆心做匀 它里面有些练习题怎么写? 一道椭圆中的证明题设L是过椭圆x^2/a^2 + y^2/b^2 =1 (a>b>0)长轴顶点A与长轴垂直的直线,F1 F2是左右焦点,e是离心率,点P在直线L上(不与A重合),若∠F1PF2=З ⑴ 证明 角З为锐角 ⑵ 求З最大值 《夏天的云》哪些是联想的句子 碘与亚硫酸氢钠反应的终点是什么颜色的,怎么判定终点! 椭圆形证明题已知P为椭圆形x^2/a^2 + y^2/b^2 =1上一点,椭圆的焦点F为(ae, 0), M为PF的中点,N为原点与F的中点.证明M为以N为中心的椭圆上一点. 下列烷烃中,沸点最低的是( )A、正戊烷 B、正己烷 C、异戊烷 D、新戊烷 大学英语精读4课后习题答案只要精读4就可以了. 成长的色彩(500字)作文急!
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘