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

操作过程动态显示 -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软硬件环境下运行通过。 (江苏省镇江港务局微机室 蔡可训)
VB使用 kb_event 函数模拟键盘操作 VB使用API获取颜色 VB使用标签控件调出浏览器 VB使用调用外部程序函数实现API函数高级功能 未公开API函数揭秘——通用对话框-VB资料 显示文件属性对话框-VB资料 VB用 API 打开打印对话框 VB用API函数改进ListView控件的显示效果 VB用API函数控制光驱的开关 VB用注册表保存数据(VB函数篇) 有关Tray系统盒的VB API函数 在VB中调用API函数动态改变及恢复屏幕设置 在VB中控制Ctrl+Del+Alt键 在VB中使用API函数 (之二) 在VB中使用API函数 (之三) 在VB中使用API函数 (之四) 在VB中使用API函数 (之五) 在VB中使用API函数 (之一) 在VB中用API实现多媒体 VB怎样用VB在应用程序中调用API VB怎样在DELPHI中使用API函数 指定文件夹-VB资料 VB5中注册控件三法 Bug:维护 Internet Transfer Control 之 Username 及 Pass VB对低层硬件访问控制 HitTest的妙用 -VB资料 ListBox项的控制-VB资料 VB 6.0中类聚集关系的实现 VB6编程中如何获取硬盘分区信息 VB的坐标系统综述 VB调用C程序动态链接库的方法 哪里有windowsXP下载? 送我能给的最大分,请教很小的问题,中高手进 聊天请进(thinkingdog) 大家来谈谈 IBM都有些什么认证???什么认证现在比较吃香???谢谢!!! 打印数窗问题求助! 如何使用UrlDownloadtoFile下载文件使用进度条? 如何用在两次用getTime()中得到两个不同的时间。 一个类似于牛角尖的问题(多余的CONST),不能忽视,请各位高手详细说明!!谢谢! 怎样读写注册表,每次都不成功,气死我也~! 各位救命啊,用 TClientDataSet.Load XML 的问题。。。。 娃呀呀,pb8怎么这么难安装?jaguar组建就用了5分钟,regester window又用了10分钟,重启动后,还没完,偶不敢装了,把碟退了出来,大家是不是也这样?//牛虻 请教高手一个ado的问题. 请问一个TWebBrowser的问题 请问:系统崩溃后,找不到BOOT,系统告诉:DOS基本分区为格式化?无法引导启动! 在VB.NET的tabcontrol上放置AxMSFlexGrid控件问题,急 java3D 现在大家是用Oracle 8还是 Oracle 9??? C++问题求助! 请教一个错误的原因. 各位大侠请问Jeffrey Richter的windows核心程序设计是不是就是andvanced windows程序设计的第四版 SCJP里的那些什么300-020,020是什么意思啊? 请问一个关于document.write()方法的问题。急啊! 初学者,欢迎灌水。 Delphi6的Bug?不兼容? 为什么我用GetProfileString()却总是得不到结果 sos 请教各位大侠一个问题 delphi6中的installShield 请介绍接收端CRC校验传输内容是否正确的方法,资料或代码。谢谢! 各位大侠请问Jeffrey Richter的windows核心程序设计是不是就是andvanced windows程序设计的第四版? 谁会做软件狗?有钱赚了!!! 为什么我用QuickRep作的报表只能显示一条记录,而且columnHeaderBand上内容也显示不出来 请问在税务局开发数据库的同行么?? 大家好各位大侠请问Jeffrey Richter的windows核心程序设计是不是就是andvanced windows程序设计的第四版? 谁做过软件狗,马上来拿钱!!! 江苏省的成绩什么时候可以出来啊,我是徐州的 shockwaveflash没有hwnd,怎么办? chechy(chechy) 你在吗? 一个关于用excel做的日报的问题 谁会做软件狗,马上来拿钱!!! 给你下跪了,给你磕头了,给你鞠躬了。很简单的问题。谢谢 那位大哥能告诉我在VC中我要创建类的话应该做哪些工作步骤(要详细的,呵呵) 紧急求救,asp连接mysql问题 在使用twebbrowser的时候,怎样制止网页的自动刷新和跳转? vc编译器错了怎么办???突然死机,然后就不好好干了!!谢谢 ?如何将二进制的 值写如注册表? Delphi紧急求助! 我想问的是,返回的 ResultSet 中的某个字段(int 型),如何放到一个 int[]数组里去。因为 ResultSet 不知道怎样取 size,我又不想用 vector, ResultSet的getArray()方法也是莫名其妙。 c盘格式化后,怎样找到linux系统? 有意思 过来研究一下!!!!insert 的!!!!难道 25 不是 long integer 吗 我的程序debug版,一直调试好好的,我rebuid all 一下就出错了,错误如下:怎么回事? 位图问题? 把1.5长的竹竿直立在地面,测得竹竿的影子长是1.2米,同时量得一根旗杆的影子是这竹竿影子的6倍还多80厘米求旗杆的长. 肯德基的炸鸡配方全球只有俩人知道?那为什么全球各地的KFC的炸鸡基本是一个味?我没问它是不是垃圾食品,我只想知道,一方面,配方高度保密,另一方面,遍布全球的连锁店却出售同一口味的炸 想了解一下各种气候类型的特点,这不是快要地理生物会考了嘛.认真学习一下. 小明把2.5米的竹竿直立在地上,量得它的影子长度是1.5米.如果同一时间、同一地点量得一根电线的影子长度4.8米.这根电线杆高多少米?用比例解。 在空地上立一根竿子,让竿子被太阳照射,当一天中竿子的最短时,竿子的影子朝什么方向猪头滚从东.南.西.北和东南.西南.东北.西北中选 沼气池建好后,每天会产1万方的沼气提纯成5000方天然气压缩成20兆帕的一个成套设备需要投资多少钱啊?运行费用每立方需要多少成本?(沼气池是无动力运行的,每天自动产1万立方沼气) 为什么西西伯利亚平原多沼泽 一天中,阳光下直立物体影子长短有什么变化?爱你? 沼气提纯的技术设备大概需要多少的资金 根据规范的方法,超声波测砼裂缝的深度最小值是多少?为什么? 看云识天气写了几种云,分别对应什么天气 秋天的落叶宛如什么 混凝土的碳化深度怎么测定 请问以下几种云 是什么云 代表着什么样的天气状况隔着窗户拍的 效果不太好 有污点. 一天中,阳光下物体的影子随气温的升高而缩短,随气温的降低而增长.判断对错判断是对是错 当声波在混凝土内传播穿过裂缝时,在裂缝端点处产生衍射,其衍射角与裂缝深度具有一定的几何关系.BJCS-1型混凝土裂缝测深仪正是依据衍射角与裂缝深度的几何关系,自动计算实现裂缝深度的 表示天气的或云的成语有哪些 汽车牌号都有什么颜色的 车牌号靠前的都是领导的车吗 比如说鲁C00001 A、汶川大地震 B、我国东南地区的超强台风 C、西伯利亚地区大片沼泽的的形成 D、全球范围内的大气污染日益严重 请问上面四个选项中哪一个是由于人类活动对地表形态的破坏而造成的恶 求表示天气的或云的成语 汽车不同颜色的含义 一个太阳,竹竿,竹竿的影子是什么成语 天上云代表什么天气?云的形态各式各样,那每个形状都代表什么天气? 大众汽车后面的TSI字母不同颜色代表什么意思?意向车型:大众 迈腾有的是T是红色的 有的是SI是红色的 有的是I是红色的 焊接压力容器是手工电弧焊好还是二氧化碳气体保护焊焊接好? 垂直竖立在地面上的竹竿,阳光照射下竹竿影子一样长,太阳与地面夹角是多少度 混凝土裂缝怎么处理 压力容器主体焊缝可以用二氧化碳保护焊吗 阳光下,影子的位置和太阳的位置有什么关系?影子的变化和太阳位置的变化以及时间的变化又有什么关系? 混凝土裂缝的产生混凝土在下列情况下,均能导致其产生裂缝,试解释裂缝产生的原因,并指出主要防止措施.水泥水化热大;水泥安定性不良;大气温度变化较大;碱一骨料反应;混凝土碳化; 在同一时间,同一地方的阳光照射下,物体的影子长度和物体高度成什么比例 kfc的菜单 法国的气候类型 一年中每天正午阳光下同一物体影子的长度有什么变化 关于肯德基华莱士,这些仿肯德基的餐厅,点餐都是在菜单上点的,为什么肯德基这些规范的餐厅,点餐反而要在后面的玻璃上点,菜单上的只有套餐却没有单点的,比如一个汉堡包,而且肯德基的套 法国气候类型 铅笔影子的长度约是?身体影子的长度约是?是在阳光下测量,铅笔就是一般的铅笔,人是156左右高矮的人, 肯德基的全家桶.2014年的新春全家桶有什么(名字)、内容、价格和时间. 法国有什么气候类型?急 一天中铅笔的影子的长度是怎样变化的? 西西伯利亚平原与东欧平原同是平原为什么气候差别如此大 法国的气候具有什么特点? 紧急!谁能提供标准GB/T3274-2007里的(普通轧制精度)数值.普通钢板的厚度偏差范围是多少? 东欧平原和西西伯利亚平原的地理环境区别 秋天的落叶,散文开头,落叶的描写我只要一小段开头,很有意境的那种,不要敷衍, GB/T3274-2007 数值Q235B主要问尺寸标准 东欧平原和西西伯利亚平原哪个大?还有为什么在世界地形图上看东欧平原和西西伯利亚都比亚马孙平原大?最好简洁一点! 谁能写《秋天的落叶》作文(纯属自写,不能和其他重复). 钢板选N类,A类,B类,C类的原则是什么?GB/T709-2006中的钢材厚度偏差分类. 中西伯利亚平原,西西伯利亚高原为什么要以西伯利亚命名 世界上最深的地震裂缝有多深?哪些地震裂缝超深? 各位老大,请问GB/T3274与GB/T709都是钢板标准,他们有什么区别? 为什么 肯德基配方 地震时造成大地出现裂缝然后那个裂缝是怎样补救的不过我还有一点不明白,就是沙的空隙会有很多'而地震时裂开的缝隙应该是土'然而给他灌沙他起不了很大的坚固性啊. GB 10055-2007这个标准谁有啊? 我想知道肯德基的配方 什么是地震深度? 太阳光斜照地面,光线与水平面所成的角为b,长为l的竹竿与地面所成的角为a,当a为多少时,竹竿的影子最长 KFC的热橙汁的配料是什么?为什么我用雀巢的橙汁加方糖却调配不出kfc里的那种味道.橙汁粉放少了,觉得味道不浓,橙汁粉放多,又觉得味道很酸,加了糖或者方糖,又感觉太甜?到底kfc里是怎么配 地震时产生地面裂缝 裂缝下面是什么了?如题 为什么人掉下去之后会怎么样呢?
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn