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

操作过程动态显示 -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软硬件环境下运行通过。 (江苏省镇江港务局微机室 蔡可训)
友盟:社会化分享成为APP开发“标准配置” 从“简单”的封面设计剖析Netflix背后的数据哲学 与Linus Torvalds“并列”,虚拟化天才程序员法布里斯贝拉 让超级计算机和数据中心“飞”,Intel推800Gbps神器MXC 【OSTC讲师专访】Debian开发者李道兵:平静地理解开源 红帽推出开源业务流程管理套件:JBoss BPM Suite 6 科学研究证明:程序员快乐才能更好的工作 ChocolateChip-UI:能“逆转”的跨平台应用开发框架 分享12款最佳的Bootstrap设计工具 Apache Flex 4.12发布,支持iOS 7 智能手机应用挑战Web平台,看W3C如何反击? 电信级数据流量与监控系统部署案例分享 TCL联手Mozilla,HTML5智能电视真的要来了! 先睹为快:Unity亚洲开发者大会虚拟游览展示 OSTC·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个理由,九头蛇与大象之争 How to input Chinese charactors in Linux? 如何实现类似VC7的个性化按钮的菜单?即如何用api做出点击菜单菜单不消失而只在菜单项之前作个记号 如何实现类似VC7的个性化按钮的菜单?即如何用api做出点击菜单菜单不消失而只在菜单项之前作个记号 我为什么只能传一个参数?谢谢! 关于CCommandLineInfo 请问一个特殊控件,谢谢,一定给分. 哪儿有关于COM的英文版书下载?--找了很久没找到 PowerDesigner 9中怎么设置外鍵呀,我看到的选项怎么是灰色的呀 经典问题:如何获得IFRAME中网页的HTML代码,特急!!! 有没有在广州的NOTES 开发人员 ,有项目 请寄简历到lotusoa@21cn.com 有没有在广州的NOTES 开发人员 ,有项目 请寄简历到lotusoa@21cn.com. 业务需求、用户需求、功能需求应该分别从那类客户那里获得? 关于SOAP/WEB SEVER的问题!请大家讨论一下! 又一个迷茫初学者 谁能给我讲讲csdn水园的历史 一个关于句柄的问题! 刚接触存储过程,请问这个过程怎么写啊? jdk&jsdk DLL调用 asp.net无法显示web控件,也无法对web控件编程 如何将C语言(不是C++)编写的函数做成dll文件?我用的是Visual C++ 6.0!急急急! 哪里有PROJECT 2000的项目管理软件下载????? 请问如何选择测试数据? 如何将C语言编写的函数做成dll文件?我用的是Visual C++ 6.0 access2000中如何使用SQL2000中的ESCAPE? 无法为更新行集定位:一些值可能已在最后读取后改变--怎么解决 sql server ce问题 气死我了,本姑娘以后再也不来PHP版回答问题了 activeReport 问题 有没有非教育网下载visualage for java 4.0 请教:怎样记录浏览器访问过的地址? ChinaRen实在是太差了!!!!我讨厌ChinaRen!!! 偶觉得湘妹子既可以是红粉知己,也可以是居家老婆,一句话:人生何所求,得一湘妹子足矣! 怎样通过程序设置使浏览器不出现工具条和minibox,maxbox 如何修改注册表来删除ie中的查看》浏览栏按钮? 关于函数指针的问题,欢迎讨论. 还是没有解决的问题:关于VFP报表打印的问题—急急急! moden是否有物理地址 如何用Delphi或C++Builder代码实现一个程序关闭另处一个应用程序。 请各位推荐几本好一点的JAVA参考书,THANKS 这样的代码为什么不能连接SQL SERVER数据库 当二个进程运行时,几就是两次运行FTP 动画关闭窗体API的问题 什么叫串行端口,什么叫并行端口? 程序员级考试就是中级考试吧 各位高手:请问*.html和*.htm文件有何区别? 在活动目录中如何实现组的嵌套? swing窗口布局的问题 毕设还要翻译6000子科技文献,谁介绍一篇呀! 介绍几个考中级的网址来噶 CNET网站重新架构,我们的链接也要改了~~ 高数的一个积分题目.这个等于多少. 如图,直线AB,MN,PQ相交于一点O,角BOM是它余角的2倍,∠AOP=2∠MOQ,且∠POG=50,求∠BOQ的度数 修一条路,以修的和未修的长度比是3:5,如果在修12千米,则以修与未修的长度之比为9:11,这条路共长多少千米? 如图,Rt △ABC置于平面直角坐标系中,使直角顶点B与坐标原点O重合,边AB、BC分别落如图,Rt △ABC置于平面直如图,Rt △ABC置于平面直角坐标系中,使直角顶点B与坐标原点O重合,边AB、BC分别落在y轴 如图,直线AB,MN,PQ相交于点O,∠BOM是它的余角的2倍,∠AOP=2∠MOQ,且有∠GOB=90°,有一个答案我看过了 不过我不是很明白什么是余角∠BOM的余角是哪个角? 修一条路,已修和未修的千米数比是3:5.如果再修12千米,则已修和未修的千米数之比为9:11.这条路共长.共有多长. 一铁路1000米,现在一列火车从桥上通过,侧的火车从开始上桥到完全通过共用1分钟整列火车在桥上时间40秒 求火车长度和速度小组收集电池.第一天收集1号4节5号电池5节,总质量460克,第二天收 直线AB、MN、PQ相交于点O,∠BOM是它的余角的2倍,∠AOP=2∠MOQ,且有OG⊥0A,求∠POG最好有全部的过程,急需,谢谢了 三角函数:△ABC,若cosA+2cosB+cosC=2,求证a,b,c成等差数列 用二元一次方程解决速度,路程问题有一道用二元一次方程解决问题的题目我不会请大家帮我解决一下谢了:小亮在匀速行驶的汽车里,注意到公路里程碑上的数是两位数;1h后看到里程碑上的 直线AB、MN、PQ相交于点O,∠BOM是它的余角的2倍,∠AOP=2∠MOQ,且有OG⊥0A,我急需、求你们了.、 3+2到底等于多少?3+2=? 有a,b,c,d四个数,已知:a+b=32,b+c=46,c+d=54,d+a=40.求:a,b,c,d的值要写出计算步骤 199.2,3,8,27,32,( ),128 A.64 B.243 C.275 D.48 三角形ABC中,角A,B,C,的对边分别是a,b,c,且2b×cosA-c×cosA=a×cosC,①求角A的大小,②若a=根号7,b+c=4,求三角形的面积 如下图所示,三角形MON以MN为轴旋转一周得到一个图形,这个图形的体积是多少? 8/9 ,-2/3,1/2,-3/8,9/32,( A ) A、-27/128 B 25/128 C 3/64 D 5/64 在三角形ABC中,角A,B.C得对边分别为a.b.c且满足(2b-c)cosA=a乘cosC 1,...在三角形ABC中,角A,B.C得对边分别为a.b.c且满足(2b-c)cosA=a乘cosC 1,求角A的大小 2.若 b+c=6 a=2根号6 求三角形ABC面积 速度时间图算位移为什么要用三角形的面积 如右图所示,三角形MON以MN轴为旋转一周得到一个图形,这个图形的体积是多少? 若64=2*2*2*2*2*2表示成F(64)=6,243=3*3*3*3*3表示成G(243)=5,则F(128)=(?) F(16)=G(?) F(?)+G(27)=6 为什么位移大小可以用速度图线和时间轴之间的三角形(或梯形)的面积来表示? 下面阴影部分由一个直角三角形和一个长方形组成,如果将它绕轴MN旋转一周,那么得到的;立体图形的体积是?求完整过程! 8/9 -2/3 1/2 -3/8 9/32 ( ),请问括号里应该是几?-27/128 25/128 3/64 5/64 高中物理速度时间图像围成的面积关于位移的关系 已知点M(1.m)为正比例函数图像上的一点,MN上X轴于N,三角形MON=2,求此函数的解析式及m的值. 概率公式.高数来的三个事件的那个公式我看得懂.特别那个(-1)^n-1 怎么会加入这个东西. 最后能列举4个事件的例子给我看吗? 加速度时间图,面积是速度,先求速度再乘时间可以求位移吗? 如图在Rt△abc,∠c=90度,AC=3,BC=4,建立A为坐标原点,AB所在直线为x轴的平面直角坐标系,求b,c的坐标 高数概率恳请大侠们帮忙了.老样子,要很细心的解释. 求三角形的三条中位线所围成的三角形与与原三角形的面积之比 求一道高数题答案.我怎么算的跟参考答案不一样.PS:准备考研,求高数好的哥哥姐姐交朋友,最好能每天晚上在电脑旁的,嘻嘻! 高等数学题:(a^2-10a+16)等于(a-2)(a-8) 是运用了哪个公式?本人刚接触这类题,请赐教,三楼的小白蚁,叉叉是什么?能不能说具体点,或者用符号表示,sorry~ 一条路已经修了17千米,又修了全长的7分之2,还剩下28千米没修,这条路全长是几千米? 求解答一道高数题 如图,四个边长均为4厘米的正方形中,画了2个三角形,求这两个三角形的面积之和 一条路,修了它的5分之2后,又修了15千米,还剩下30千米,这条路全长? 一道高数题, 已知直角三角形两条直角边的和等于8,两条直角边各为多少时,这个直角三角形的面积最大,最大值是多少?这是函数题,要设x 有一个两位数,十位上的数是个位数的2倍,如果把这两个数的位置对调,那么所得的新数比原数小27,求这个两 求解答一道高数题啊’设向量a的方向平行于向量c=(7,-4,-4)和向量b=(-2,-1,2)之间的角平分线,且|a|=5根号6,求向量a 三角形ABC的三个内角所对的边分别为a,b,c,由cosA+2cosB+cosC=2怎样推得a+c=2b? arctan(-1)=?为什么在高数中只能等于-π╱4? 如图所示,在锐角三角形ABC中,AB=4倍根号2,角BAC=45度,角BAC的平分线交BC于点D,MN分别是AD和AB上动点,则BM+MN的最小值是? 三角形ABC角A,B,C,的对边是a,b,c,且2b×cosA-c×cosA=a×cosC,求角A 同济六高数上136页例4最后为什么就等于1了呢? 如图,在锐角△ABC中,AB=4,∠BAC=45°,∠BAC的平分线交BC于点D,M、N分别是AD和AB上的动点,则BM+MN的最小值是( ) 修路工人修一条路,第一周修了全长的40%,第二周修了12千米,还剩6千米,这条路有多长? 1+ 1在高等数学中等于几? 锐角三角形ABC,AB=4倍根号2,角BAC=45度,角BAC的平分线交BC于D,M,N分别是AD和AB上动点,则BM+MN的最小如图所示,在锐角三角形ABC中,AB=4倍根号2,角BAC=45度,角BAC的平分线交BC于点D,MN分别是AD和AB上动点,则B 以知直角三角形两条直角边的和等于8,两条直角边各为多少时,这个直角三角形的面积最大,最大值是多少? 高一物理中的匀变速图像里为什么所围成的三角形面积就是物体在t秒内的位移大小? 在锐角△ABC中,AB=4√2,∠BAC=45,∠BAC的平分线交BC于点D,M,N分别是AD和AB上的动点点,则BM+MN的最小值是 已知直角三角形的两条边的和等于8,两条直角边各为多少时,这个直角三角形的面积最大,最大值是多少?求分析, 这个为什么等于1高数问题 这个为什么等于1 在锐角三角形ABC中,AB=4根号2,∠BAC=45°,∠BAC的角平分线分别是AD和AB上动点,则BM+MN的最小值是? 把下面这个三角形平分成3个面积相等的三角形,可以怎么分?请在图中画出来. 高数第一题这样做哪里出错了, 如图,直线AB,MN,PQ相交于点O,∠BOM是它的余角的2倍,∠AOP=2∠MOQ,且有∠GOB=90°,求∠POG的度数 怎样把三角形分成4个面积相等的图形 ...画出来..3种以上
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘