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

一个实用的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。
VB如何解决VB中的Grid控件的打印问题 VB如何强制文件对话框再次读取正确的磁盘? VB如何取得RichTextBox控件中光标所在行的值? VB如何设定 MsgBox 在若干时间之后若无回应則自动关闭? VB如何使用VB控件Commom Dialog VB如何用VB6写COM组件(二) VB如何用VB6写COM组件(一) VB如何在VB中使用Delphi的控件 VB如何在运行时动态增加控件 显示和隐藏鼠标-VB资料 VB用ActiveX Control Pad VB用API函数改进ListView 控件的显示效果 用VB6.0中文版进行DHTML程序开发 用VB编写标准CGI程序 用VB编写留言板 用VB播放FLASH动画 用VB开发进程管理软件 VB用WinSock设计Chat程序 运用MSChart,生成统计图形-VB资料 向文本框等等控件的系统右键菜单里追加自己定义的菜单-VB资料 在VB中用定时控件实现长定时操作 在Visual Basic中,在GotFocus事件中快速选定文本 在程序中注册和注销 OCX 控件 -VB资料 在运行时维护DBGRID的栏位宽度-VB资料 VB怎样使用VB开发基于Sybase的C/S软件 VB怎样在运行时动态生成多个相同的控件 直接编辑VB中网格控制项的两种方法 自制控件方面的有关知识-VB资料 Unicode vs Ansi -VB资料 VB 中调用 Word 拼写检查 VB4.0安装程序的汉化 java能不能实现多文档(象VC++中)? 哪位E文好的同志能把这段话翻译出来,是RFC1928中的一段。 一个比较低级的问题-vb里面的回车换行孵的ASCII码是多少?? 奇怪!!!奇怪!!!奇怪!!!奇怪!!!快来看看! 谁知道windows的按文件名排序是怎么回事阿? ie问题 如何从一个框架调用另一个框架的方法?有办法吗?(在线) 突然觉得计算机语言有个误区 请问我用depends打开了dll文件,看到了里面的函数,但是参数表和返回值类型没有啊 水晶报表急问,大家帮帮忙看看! 请教文件查找的问题。 谁知道windows的按文件名排序是怎么回事阿? oracle难学吗 <jsp:getProperty name="userInfor" property="*"/> 出错!!(在线等待) 如何在vb中设置Combo的默认值?立刻给分 点击按纽,打开应用程序文件,并获得应用程序的窗口标题,怎么实现??? Linux遇到CORBA问题——高分有送! 新的IBM 60G硬盘(7200转)在PII上检测不到(硬盘没问题,在其他上能正常使用,有没有解决办法?) 21世纪合格人材必备7大技能 对加密感兴趣的同志请进,介绍一下有关书籍和代码。 word中的特殊数学符号无法在Authorware中显示 windows 下刪除文件是怎麼刪除的用什麼函數??? 找一部电影,《国家的敌人》 高分送高人:一个OLE和数据库的小问题 父子表的更新怎么办? 电话拨号程序,给点提示 关于调用存储过程的问题!在线,搞定就结 求问,关于BEA weblogic 7.0 100分求助Windows Server 2003 的cdk! 那位大侠帮忙谢谢! hello 大家好!不好意思又有问题了 我一直想学会的一个简单问题,谢谢! 问一个参数传递的超菜问题? 怎样才能将资源文件中的 图片 二进制文件 保存到磁盘上 请教这句是什么意思? 关于页面设计的问题?高手请教!! 100分求助Windows Server 2003 的cdk! 那位大侠帮忙谢谢! matlab s-矩阵(若回答满意加100分,每题25分) 关于页面设计的问题,求助? TListView中某一行字体的大小、字体的颜色如何改变? 各位高手给小弟指点指点吧!(DELPHI请教) fastreport中Picture控件的问题? DataGrid动态添加列的问题?? 在线等待...... 如何在视图中排除重复记录? 总是报错,但是又查不出是哪里的问题,各位帮忙看看 如何根据当前日期求出上一周的第一天和本周的第一天? 新人的COMBOBOX问题 女孩在记事单上写"恋爱"两个字,有什么含义啊…… 小问题,接分~~ 请教一句sql语法 请问,把繁体转成简体用什么软件? 欲把西湖比西子,这句诗句品出了 真理属于客观范畴 还是主观范畴 2个8欧姆50W的喇叭并联后是多少欧姆多少W的? weighted salary是什么意思?跟weighted average salary有什么区别?听新东方一个留学讲座老师说前者是起薪的意思,可是百度上边都是后者词条!求解释! 有首歌有句歌词:离开你我好舍不得 叫什么歌名谁唱的? 三个4欧姆的喇叭串联再并联之后阻抗是多少欧姆我把,怎么上图啊 什么是Weighted_Average_Index_Number? “林子大了什么鸟都有”含义请说出深层意思,最好把“贬义”的意思表达出来. 藤野先生课后习题第四大题答案400字 修辞手法的作用答题 英语时态99/93 为什么选那个答案,不是有in the year么? 已知梯形ABCD,角C等于100度,叫D等于115度,求角A,B的度数.梯形AB在上 初中修辞手法的作用及答题格式要月考了,居然要考修辞手法的作用,被难倒了.我今年初三,压力有点大的.以上两位的回答我还满意,不过本人还想找几个说明方法(列数字、分类别之类的)的 英语时态99/104为什么不能选B? 什么动物像鸟 陶渊明的五首归园田居以及注释和翻译 英语时态98/97A,B两个的用法区别是什么为什么选A?翻译下句子 必修一地理.季风降水的特点,19,20题, 各国是怎么过春节的 英语时态96/61 - -为什么选A解释下句子的意思 马克思是神吗东西? 世界各国的春节都叫什么名称 英语时态96/63 - -为什么用过去进行时?解释下句子的意思 动物修成的“仙家”,在佛教里怎样解释? 欲把西湖比西子,淡妆浓抹总相宜.蕴藏的成语 我要篇作文是写关于春节的欢乐的,500字左右 已知反比例函数图像上有一点P(m,n),且m+n=5,试写出一个满足条件的反比例函数式.反比例函数熟的拜托教教我= =我就这一张不会.快抓狂了= =考试还要考! 欲把西湖比西子 淡妆浓抹总相宜中的成语 “林子大了,什么鸟都有”这句话是什么意思 已知反比例函数Y=1/X的图像经过P(M,N),则简化(M-1/M)(N+1/N)的结果 欲把西湖比西子,淡妆浓抹总相宜 中隐藏的成语是什么? 林子大了,什么鸟都有.21657 反比例函数y=k/x的图像上有一个点P(m,n),已知m+n=3且P道远点的距离为根号13,则反比例函数的表达式() 欲把西湖比西子,淡妆浓抹总相宜里隐藏着什么成语欲把西湖比西子,淡妆浓抹总相宜里隐藏着什么成语欲把西湖比西子,淡妆浓抹总相宜里隐藏着什么成语欲把西湖比西子,淡妆浓抹总相宜里隐 上面一个除号,下面一个减号,这个符号怎么打 马克思辨析题 普遍联系只存在思想之中 为什么"真理的内容是客观的,认识的内容是主观的"是错误的? 2个英语上的疑问这句,Dolly's DNA is exactly the same as that of the sheep she was cloned from.里面为啥会要突然出现个of ?去掉of不行么?还有What is ink used for ? It's used for writing in. 为啥句尾要有个in ?麻烦 巾帼女英雄人和事例~ 主观真理和客观真理区别? q b是什么意思 第二亚欧大陆桥沿线自然带具有明显的变化规律,这种地域差异应属什么?为什么 汤姆·索亚历险记《当海盗去》 本章主要运用了什么描写方法?1.《当海盗去》 本章主要运用了什么描写方法?2.《“海盗”生活》本章描写了大自然三个时期景色,是哪三个时期?分别具有什么 W Y W M Z Y Q.. 有四只电阻分别是1欧姆2欧姆3欧姆4欧姆,因已无标注,现需将其测出,请只用二次欧姆表测出其阻值,问怎么测? 林子大了什么鸟都有,这句话是不是骂人的话?我的一个朋友说是骂人的话! 俗语:林子大了,什么鸟都有 的意思 [佛]家中放动物标本好不好?如果要渡这些动物应该怎么做? 与林子大了,什么鸟都有相同意思的句子 自然带从沿海向内陆的分布规律最显著的地区是? 一个现代女英雄的故事100字 隋唐时期有哪些盛世除了开皇之治,贞观之治,开元盛世,那武则天的“政启开元,治宏贞观”算不算也是一个盛世? 从沿海向内陆的地域分布规律的形成原因是什么?形成基础是什么?地球上最典型的地区在哪里?如何分异? 已知自由落体经过的路程S米与时间t秒的函数关系是S=2分之1gt²,其中,g约等于9.81(米/秒²)是常数.若石子从200米高的悬崖上以自由落地的方式落到地面上,需经多长时间?(保留三位 真理究竟是客观的还是主观的? 56.Many Europeans ________ the continent of Africa in the 19th century.A) explodedB) exploredC) exposedD) expanded57.The police are ________ the records of all those involved in the crime.A) looking intoB) looking afterC) looking outD) looking on58.B 离散数学的证明题,若f:A→B是双射,则f-1:B→A是双射若f:A→B是双射,则f-1:B→A是双射,要有证明过程,考试用的 1.在商品交换中,假定l金币=2石谷物,若生产黄金的劳动生产率提高一倍,在其他条件不变情况下,那么现在l金币能够交换到的谷物是A.1石 B.2石 C.4石 D.0.5石 【 】 欲把西湖比西子 淡妆浓抹总相宜的英文怎么翻译 再帮我找个喇叭等效于三个8欧姆10的三个喇叭并联的来? 公益机构联名呼吁删改《沐浴业管理办法浙江第十二届戏剧节启幕 超九成为百元绍兴徐渭墓历波折终有守墓人 工作清苦美建议叙问题会议11月举行 不确信反美新泽西州商场发生枪击 在场民众描述朴槿惠拒与安倍进行正式会晤 日方表示美白宫提升在社交媒体活跃度 新媒体上美欧制造业逐步恢复景气 出现同步扩张11月电商零售大战 猫狗在前怪兽在后印度民众燃放爆竹庆祝排灯节 引发环境杭州正研究\"城市风道\"欲从钱塘江二手胎从4S店流向修车铺转卖 高性能浙江台州岩头工业区污水畅排椒江 环保非支付宝用户被刷一万块 网络漏洞是黑澳大利亚国会大厦遭数千飞蛾入侵(图)秘鲁汉学家吉叶墨——做当代的“利玛窦媒体称美国将中国日本列为“重点监听国日养老金机构局长携公款藏匿泰国 遭情大众成德国薪酬差距最大公司 高管薪酬英国艺术家用83幅自画像拼成《蒙娜丽一驻日美军士兵酒后驾车与出租车相撞被加沙彩虹大客车司机喝了二两半白酒 还敢载44雅加达省长竞选:华裔钟万学微弱领先济南一店铺露天喷漆,粉末漫天飞!过路违停致命!济南隧道内停车引发追尾,违情人节在莫斯科(组图)动真的、来实的、用硬的圈圈互助:爱车意外损伤的更优解决方案拼搏赶超 重构大武汉开放格局全媒体拼搏赶超 重构大武汉开放格局济南历下区一大波“春风行动\"招聘会青岛:南京路小学年底前交付使用 规模COSTA“心艺所制”还原精品咖啡手玖富叮当迎春天:互联网消费金融前景广泰安三里派出所积极开展新学期校园安保湘菜加盟哪家好 57℃铁板湘菜来报到青岛:为便于拆装透明胶带固定号牌 司给满分!八一八业之峰得过的那些设计大260斤孕妇产子 女婴刚出生就被要求三星“太子”李在镕今再受审 是否批捕
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘