VB中在程序计算过程中显示进度条怎么实现?

如题所述

计算开始时,隐藏进度条,要知道计算的总数,把这个总数设置为进度条的MAX属性,计算过程中,计算了多少,进度条的VALUE属性就设置为多少,当进度条的进度完成后,隐藏进度条
温馨提示:内容为网友见解,仅供参考
第1个回答  2009-05-05
HScroll1.max就是最大值
HScroll1.value就是进度条的位置
知道这两个属性就好了啊

VB如何实现进度条
VB实现进度条的方法只需要5个步骤就可以。1.首先,编写一个程序框架,如下所示。2.然后您可以在这里输入各种语句,如下所示。3.然后找到两个语句块的中间部分,如下图所示。4.输入语句[Exitsub],如下所示。5.最后,您可以运行测试并解决实现进度条的问题,如下所示。注意事项:VB背后的思想是...

VB中在程序计算过程中显示进度条怎么实现?
计算开始时,隐藏进度条,要知道计算的总数,把这个总数设置为进度条的MAX属性,计算过程中,计算了多少,进度条的VALUE属性就设置为多少,当进度条的进度完成后,隐藏进度条

VB:如何在循环中加上进度条
这里的 PB1 就代表进度条控件 private sub form_load() pb1.max=254 '<--- 以你的 ping 的最大值做 pb1 的最大进度值 end sub Private Sub Command2_Click() If Right(Text1, 1) = "*" Then '当文本框,也就是IP输入框最右边的一个字符是 * 的时候 Dim i As Integ...

VB中如何为事件设进度条显示?
1、点击系统菜单“工具”->“选项”,调出选项对话匡后选择“控件”页,再选择ActiveX控件,选定列表栏里的Microsoft ProgressBar Control控件,一般里面有两个版本的,分别是V5.0(SP2)和v6.0。建议用V5.0(SP2)版的,这个控件的风格可以根据WIN的主题风格的变化而变化,而V6.0是固定的一个格子...

关于VB.NET进度条的实例
首先要在窗体中载入以下控件:progressbar(进度条),label(用来实时显示文本提示),两个timer(分别控制进度条进度的增减),然后用以下代码就能实现:Public Class Form1 Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Timer1.Enabled = True Timer1....

excel图表使用VBA创建进度条
1.在属性窗口中,将该用户窗体命名为urfProgress。2.设置其ShowModal属性为False,这样在该用户窗体处于打开状态时仍能继续运行程序。3.调整该用户窗体为合适的大小(高110*宽240)。进行适当设置后,目前表示进度条的用户窗体如下图1所示。图1 在用户窗体中插入一个标签控件,用于显示指示程序状态的文本...

VB 进度条显示 执行进度
添加Microsoft Windows Common Controls 6.0部件,就可以添加ProgressBar1控件,这应该是你想要的。ProgressBar1.max =[要插入的数据总数]然后是你的循环语句,要有一个循环变量i,for i=1 to 200 '''自己的代码'''ProgressBar1.value = i doevents next ...

VB中如何添加进度条表示一事件
1-100之间的数字)那么进度条就会在程序表示当前运行进度,当然,你的进度条要比较准确,例如,第一句代码之前加了进度条名称.value=1原程序代码最后一句之后进度条名称.value=100中间就随你喜欢了如果还有什么不明白的,也可以补充说明哦(*^__^*)...嘻嘻记住,这是最笨的方法,不过还是挺好用的 ...

VB怎么制作进度条?
1.在控件工具箱中右键=>部件。2.在“部件”窗口中勾选Microsoft windows common controls 5.0或6.0。单击确定。3.然后控件工具箱中就有进度条了。改变样式方法:(我暂时只知道这种)下载一个SkinH,下载的文件夹里面有使用方法哦~(并且会优化所有控件及窗体)注意事项:1.使用时避免使用End语句...

如何在VB窗体中加入进度条?
首先,你要加载这个部件,选择工程--部件,再选择Microsoft Windows common controls6.0控件,加载,这时ProgressBar就可以使用了 例子:在窗体上添加Timer1,command1,ProgressBar1,Label1控件 再添加如下代码:Private Sub Command1_Click()Timer1.Interval = 1000 ProgressBar1.Value = 0 Timer1.Enabled...

相似回答