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

操作过程动态显示 -VB资料

HTML文档下载 WORD文档下载 PDF文档下载
操作过程动态显示 -VB资料


在程序设计中,经常遇到这种情况:计算机在处理大量数据时,用户等待处理结果,而此时的用户界面往往显得单调乏味。如果有一个能动态显示操作过程的进度条就好了,它既使用户界面具有动感,又增加了程序的趣味性。 笔者用VB 5.0编制应用系统时,分别用VB 5.0的进度条控件和滑动片控件,以及API函数BitBlt()三种方法实现操作过程动态显示。实现效果如图所示。现用两个应用实例说明如下。
★应用实例一:用VB 5.0的进度条控件和滑动片控件分别实现操作过程动态显示。
(1)插入进度条控件和滑动片控件的方法:在VB 5.0主菜单的“工程"项中,选择“部件(0)",在弹出的控件栏中,双击“Microsoft Windows Common Control 5.0"项,按“确定"键返回。那么在窗体工具箱中就有了上述控件。
(2)建立含有如下控件的窗体:
控件 NAME CAPTION INTERVAL MAX FONT FORECOLOR
窗体 FORM1 用VB 5.0实现操作过程动态显示
进度条 PROGRESSBAR1 100
滑动片 SLIDER1 100
计时器 TIMER1 50
标签 LABEL1 宋体(小四)&H00FF0000&(蓝色)
标签 LABEL2 宋体(小四)&H00FF0000&(蓝色)
命令按钮 COMMAND1 退出
(3)输入计时器的程序代码:
Private Sub Timer1_Timer()
Static count As Integer
count = count + 1
Label1.Caption = Str$(count) +“%" 注释:进度条显示百分比
Label2.Caption = Str$(count) + “%" 注释:滑动片显示百分比
If count = 100 Then
count = 0
Else
ProgressBar1.Value = count
Slider1.Value = count
End If
End Sub
(4)输入退出按钮的程序代码:
Private Sub Command1_Click()
End
End Sub
★应用实例二:用VB 5.0的API函数BitBlt()实现操作过程动态显示。
BitBlt()函数格式:
Private Declare Function BitBlt Lib“gdi32" (ByVal hDestDC As Long, ByVal x As Long, ByVal y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hSrcDC As Long, ByVal xSrc As Long, ByVal ySrc As Long, ByVal dwRop As Long) As Long
该函数将点位图从由hSrcDC参数给出的源设备上拷贝到由hDestDC参数给出的目标设备上。xSrc,ySrc指出被移动的点位图在源设备上的原点坐标。x,y,nWidth,nHeight指出目标设备的原点坐标、宽度和高度。dwRop参数定义源位图和目标位图是如何结合的。参数值&HCC0020表示将源位图复制到目标位图上。
(1)建立含有如下控件的窗体:
控件 NAME CAPTION INTERVAL FORECOLOR BACKCOLOR 窗体 FORM1 用BitBlt()函数实现操作过程动态显示
图片框 PICTURE2 &H00FFFFFF&(白色)&H00FF0000&(蓝色)
图片框 PICTURE1 &H00000000&(黑色)&H00FFFFFF&(白色)
计时器 TIMER1 10
命令按钮COMMAND1 退 出
(2)定义窗体级函数和常量:
Option Explicit
Private Declare Function BitBlt Lib “gdi32" (ByVal hDestDC As Long, ByVal x As Long, ByVal y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hSrcDC As Long, ByVal xSrc As Long, ByVal ySrc As Long, ByVal dwRop As Long) As Long
Const srccopy = &HCC0020
(3)输入窗体装入的程序代码:
Private Sub Form_Load()
Picture2.Width = Picture1.Width
Picture2.Height = Picture1.Height
End Sub
(4)输入计时器的程序代码:
Private Sub Timer1_Timer()
Static counts,r As Integer
Static hh As Single
Static percent As String
hh! = counts / 100
percent$ = Format(hh!, “0%")
Picture1.Cls
Picture2.Cls
Picture1.CurrentX = (Picture1.Width - Picture1.TextHeight(percent$)) / 2
Picture2.CurrentX = Picture1.CurrentX
Picture1.CurrentY = (Picture1.Height - Picture1.TextHeight(percent$)) / 2
Picture2.CurrentY = Picture1.CurrentY
Picture1.Print percent$
Picture2.Print percent$
r% = BitBlt(Picture1.hDC, 0, 0, Picture2.Width * hh!, Picture2.Height, Picture2.hDC, 0, 0, srccopy)
counts = counts + 1
If counts = 100 Then
counts = 0
End If
End Sub
(5)输入退出按钮的程序代码:
Private Sub Command1_Click()
End
End Sub
上述程序在同创P/200,中文Windows 95、Windows NT 4.0,Visual Basic 5.0软硬件环境下运行通过。 (江苏省镇江港务局微机室 蔡可训)
【十问十答】对话Go语言开发团队 苹果要求、Android开始,64位时代真的来了! MDCC 2014产品与设计论坛:带你发现产品之美 Java开发者值得关注的7款新工具 助力国产移动产品出海,UCloud部署北美节点 Zack Parker:用EC2在Cotap上打桩 用卫生棉杀敌冲关!两个高中女生的创意游戏 专访《Java程序员修炼之道》作者Ben Evans:保守的设计思想是Java的最大优势 Google收购Firebase 帮助程序员快速开发出移动App和Web App 微信支付开发关键点技术解析 游戏任玩!开源虚拟现实头戴式设备Open DoVision MDCC大会召开倒数10天 看Twitter、Facebook和国内“BAT”三大巨头最新动态 《近匠》Wijmo 5 CTO:从Web到移动,我的25年编程生涯 重复充电、防丢失!多功能智能行李箱Bluesmart 【设计经验传承】图标设计初阶要先型 “光年”光纤路由 支持千兆网络的家居中心 MDCC 2014移动开发技术与平台峰会:知名应用技术大牛传授实战经验 Unity生态圈将变?EA前总裁接替创始人任新CEO 第九届中国Linux内核开发者大会在京举办 《近匠》爱拍SDK:手游录像分享 爱拍才会赢 Mark走起!iOS开发最常用的第三方库 【CTO俱乐部读书会】《人件》译者肖然:软件工程是社会学 错过就要等一年 深圳微信开发者大会不容错过的十大理由 【干货】国外程序员整理的 C++ 资源大全 一周消息树:被投资人“送”入看守所,创业人汪洁有罪还是无罪? 聚焦五大主题 Atlassian Summit 2014精华PPT下载 2014中国移动开发者大调查第四期获奖名单曝光 【问底】许鹏:使用Spark+Cassandra打造高性能数据分析平台(一) 【特惠倒计时两天】参加深圳微信开发者大会赠书及全套讲师讲义 《英雄联盟》支撑最高750万同时在线用户的聊天服务打造 深圳云软技术副总黄榕振:招行信用卡微信公众号开发高级篇 关于islower(ch),isdigit(ch) 疑问 BQQ的服务器端有没有保存用户的聊天记录的? 如何获得程序方向键输入?多谢! 求助有关IFS-HOOK 高手请入!!急救!求msflexgrid 的打印源码????? 如何在list中显示文件夹 哪里可以看到Obejct类clone的实现方法? 系统的FOUND.00*文件夹里放的FILE000*是什么文件?可以删除吗?刚装系统时没有这些文件的阿 给分啊 今日郁闷之至……散分! 来来来,大伙们一起来衷心祝愿xxmm (晓箫)的老爸老妈顺利赴美参加晓箫的毕业典礼!! Dev-Cpp 使用 NetAPI32.lib 的问题 急寻严蔚敏,吴伟民版《数据结构习题集》c语言版的答案,请问哪有啊 高手们给我一个超级简单的HOOK API的例子好吗?求你们了。 错在哪里 好郁闷啊~ 谁有站内关键字模糊查询的代码?紧急求救、在线等待!!!! 字符串转化为数组的问题 讨论<<标准C++库大全>> 上次是哪位兄弟要的《新编API参考大全》CHM版呀?我找到了一个,还行。 欢迎大家访问我公司的网站! 请学c++builder 有份量的人推荐一本经典的教材(适合初学者) 欢迎大家访问我们公司的网址! 关于分页的问题 请帮我看看这个小程序 欢迎大家访问我公司的网站! 已知一个文件夹的路径,如何得到该文件夹中的文件的名字? 关于StreamReader的问题 欢迎大家访问我公司的网站! 有关编辑框的问题 各位大侠一个很菜的问题,来帮帮忙! 关于集合的一个小问题 最菜的问题,100分白送!!! 很基础问题,脑子不清楚,大家帮忙看看 紧急问题! 终于 知道MESSENGER 只是 WIN2K 的服务了! 那么 这 个怎么办?? 请问以下我如何实现一个带滚动条的子窗口 问一下,resin和iis集成后class文件放在什么目录下 用 http://www.rc80.com (c# + sqlserver2000) 只想换一个.net 的完整的分页代码! 一个Corba客户端连接的问题! 如何在resin中设置wap服务器功能 大家帮忙!! 什么时候用DataGrid,什么时候用DataList? 怎么样从数据库里取得某字段的值??? 昆腾的硬盘修理找谁啊?急,UP有分........ www.webmatrixhosting.net免费空间中FTP文件上传问题 Apache 2.0.43 +Tomcat 4.1.24+mod_jk2-2.0.43.dll整合问题出现:The servlet container is temporary unavailable or being upgraded 我装的Delphi7好像丢了一个文件:Proxies.pas,哪位好心人给我一个? keren ann凯伦安所有的歌有歌命就行,当然有地址更好…… And because,as you know,the traditional media is still heavily controlled by the government这句话在word里显示有误, 苄嘧磺隆防除稻田杂草,怎样使用? 《最大的麦穗》一文中有几处使用了分号?画出来读一读,体会它的用法. 法布尔解开了“白蝎自杀之谜”,谜底究竟是什么 水稻田主要防治的杂草是稗草、-----------\---------------------. 分号的用法是什么? Her face appeared on innumerable magazine covers,and she was ___ by the media.(A.confusedB.caughtC.houndedD.followed shape 的单复数用法有一堆苹果,是问what shapes are the apples?还是:what shape are the apples? 分号的用法是什么?;分号 空气加湿器30W 50W是什么概念,一般宿舍能用吗?我就是想知道这个功率到底算多大,会不会像饮水机一样在宿舍转不起来. 塑料上面的镭射是什么意思? If you don't care about me,then you can pull the black 聊斋是蒲松龄的什么名? —个三角形桃园底54米高40米.如果每棵桃树占地9平方米,这个桃园一共有多少棵桃树? Dear Either black or don't pull me,I ignored 求《聊斋志异》和蒲松龄介绍 2平方米是什么概念?房子 什么的 我要怎么读哲学?我读了苏菲的世界,彭越陈李胜写的西方哲学史初步,之后往后看萨特发现要先读海德格尔胡塞尔,读尼采发现要先读叔本华,读叔本华发现要先读柏拉图和康德,康德OTZ他花三十 根据情节写古诗句. 王叔叔出去旅游5天,这5天的日期之和是35,请算一算,王叔叔回来的日期是几日? 海口哪家酒店、咖啡厅或者西餐厅能有包相吃烛光晚餐最好离海近点_不是近海也无所谓_食物要好吃_价格不要太贵…重点就是要有单独包相_求详细地址和电话_最好能有详细费用 Please bring the backpack here为什么要用bring? figgy ,until ,的音标~ 推荐本高中生读的古典哲学吧,最好薄点~ 求有故事情节的古诗词(顺便说一下故事)速回, 怎么用英语音标拼汉字就像lancome(化妆品)兰蔻,可译音成汉字 兰蔻一样 列:兰蔻音译回去---(汉字怎么音译成英语) 向心力改变速度方向不改变大小? plese bring the erase here而不是plese bring the eraser to here(英语) 无花果的含义是什么? research做研究意思时有复数形式吗? bring your dog 无花果有什么 含义 读了 北风乍起时 这篇文章,你想到了哪些名言警句? 关于诗的故事情节.拜托各位了 3Q1.诗人元稹特别爱菊花,一提起菊花,他就会情不自禁吟道:______________________________________ (如何填) 2.当你身在他乡,听到了用笛子吹奏的《折扬诗》时,你不禁 Tony was t—— (使非常激动)by the good news that he got an "A" in the fina research复数形式是什么 诗歌中的月亮情节我长这么大,也读了不少诗歌,发现,人们对太阳的热情远远小于月亮.大家对这种现象的解释是什么呢?为什么歌颂月亮的诗歌比歌颂太阳的要多呢? 英语翻译不要百度百科里的,求直白接地气的翻译! 美国的历史文化 my dogs are black否定句,一般疑问句,回答,划线提问 中国农业银行每个月存1500元,存满一年本金是18000元,利息是多少啊?谢谢!还有什么方法比这个利息更高吗?谢谢! in the garden ( )flowers are pink,( )are red .a.one...other b.ones...othersc.some...others d.some...the others What does “So does her husband” mean?A.她丈夫不爱吃 B.她丈夫也是 C 她丈夫是的D所以是她丈夫 李某在农行存入2000元钱,年利率为1.98%,12个月以后,张三从这批款中会得到的收益是答案是31.68,为什么? PANCAKE BLOCK什么意思,在美语中···一个老外说足球赛中会用到这个··· are well informed by the mass media.翻译 it's hurt/it hurts的区别好像电影里总能听到it's hurt 但偶尔有一天看见朋友写的it hurts,网上一查,好像也对.这俩在语境里有什么区别,意思表达上有什么差别呢?我只是想知道这两句在实际使用时 在学向心力加速度时,为什么在拱桥最高点时没有支持力,这符合事实逻辑吗 法布尔解开了“白蝎自杀之谜”,你能说说这个谜底究竟是什么? 请问提供IDC和提供带宽有什么区别呢?带宽的增加和成本的增加是线性关系吗?如果不是线性,麻烦好心人多说点啊,我不懂这些虚拟的玩意儿啊,最好能举个形象点的例子,谢谢啦 向心力不改变力的大小,这句话怎么理解,如果向心力变大,怎么理解 英语翻译别用在线翻译. 两列火车同时从甲.乙两地相对开出快车行完全程需要二十小时慢车行完全程需要三十小时开出后十五小时相遇已知快车中途停留了四小时慢车停留了几小时 匀速圆周运动向心力 向心加速度为什么是变力?匀速圆周运动,向心力和向心加速度不是指向圆心吗 为什么还是变力? there are good reason to be troubled by the violence that spreads throughout the media.to be 在这是什么,怎么用 什么结构,分析结构 hurt的用法,与hurts的区别如;my left leg is ( )His left leg is ( )为什么? 测量用盐酸什么差压变送器测量36%浓度的盐酸,温度25度的 白蝎自杀之谜的谜底究竟是什么? 稻田杂草如何防治? 中国珠算进入2013年联合国人类非物日本最新型潜艇“黑龙”举行下水仪式俄八旬老汉野外斗熊 被摔下悬崖后逃出索契冬奥会火炬将由14架直升机护送入加拿大首设“比特币”ATM机 被批缺偷渡惨案再现撒哈拉沙漠 尼日尔发现8“监听门”持续发酵,美国扮演“地球网Google建造数艘集装箱货船引发猜荷兰边城见证《马约》风雨20年美国全球监听引发网络空间深刻变化中国军医表现突出 荣获厄瓜多尔最高荣党报刊文称回避养老双轨制其他改革恐难北京“10·28”事件受伤人员得到全台湾强震众生相:卖场员工拔腿跑 陆客“杀光中国人”事件彰显华裔维权的决心河南100多公里路200人执法 司机财政部:压缩各地公共财政预算结余结转国资委:国企改革方案争取三中全会后出北京禁止中小学售卖碳酸饮料 不利于学浙江省启动外商投资企业服务月银泰十五周年大庆十日 “小怪兽狂欢S张震:他不是不暖,只不过暖的不是你…日本小学生的书包,凭什么值5000元出来混迟早要还 黑客公司也被“黑”了跑步的时候,你应该专注在什么地方?年轻化大潮下, 悦翔V7如何成为A级世纪佳缘第二季度业绩飘红 首创全民红世纪佳缘加速转型移动端 90后已成open一周回顾——三大最当兄弟和事业不能两全的时候你怎么做?想吃个早餐也这么难 都是城管的锅远离风口的日子,仍有人能活过寒冬五个迹象表明你正努力讨好别人史上10大硬科幻小说世上最经济的能源是?最经济啊!太匆忙?不如跟许嵩一起,吃茶去...皱纹不同命运不同【私语·情感】女人哭了手足无措?我们第二届互联网金融领袖千人峰会即将召开“质感伪装大师”【私语·健康】有一种病会让你一天高潮爸爸过劳死,儿子为父亲打造一辆“独一
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘