VB 进度条问题

想在一个优化程序里面加入进度条,但不知道怎么实现,希望高手能够指导一下。
程序的功能大概是这样的:
外面有N次循环,对应每一次循环需要计算从t=0到 t= t_max(已知),现在想在
每次时间从0到t_max计算时显示进度条,t=0显示0%,t=t_max显示100%,
每次循环完成后,进入下一次外部循环(总共N次),进度条重新显示。

多谢了!

第1个回答  2014-08-15
用图片啊
在每次循环中加入对图片宽度的控制即可追问

好像没人这么用啊,怎么实现?

追答

你放一个piceurebox作为进度条的背景,在放一个作为进度条;在每次循环汇中,根据t的值,重新计算进度条图片的宽度。

追问

多谢了啊,可是能够直接使用进度条实现呢,我用的是VB2010

VB如何实现进度条
1.首先,编写一个程序框架,如下所示。2.然后您可以在这里输入各种语句,如下所示。3.然后找到两个语句块的中间部分,如下图所示。4.输入语句[Exitsub],如下所示。5.最后,您可以运行测试并解决实现进度条的问题,如下所示。注意事项:VB背后的思想是让程序员(新手和专家)都能轻松使用它。V...

VB滚动条 和进度条问题
在事件过程中用滚动条的Value属性获得滑块在滚动条中的位置,根据这个位置决定其他控件中显示的内容应该滚动到什么位置。进度条:progressbarprogressbar重要属性如下:min:进度条的起始值。也就是取小值,如1。 max:进度条的终止值。也就是最大值,如100value:任务进展到哪个数,即进度条的填充值。visib...

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 音频播放器进度条动不了,用的是HScroll控件和Timer,代码如下...
1、 WindowsMediaPlayer1.Controls.currentPositionString 获得是当前已经播放的时间,其格式为 HH:MM:SS(时分秒),利用 Timer控件可以检测到WindowsMediaPlayer1播放的状态,设置 Timer 的时间价格最好在1000ms 左右。Label1.Caption = WindowsMediaPlayer1.Controls.currentPositionString 是正确的!2、滚动条...

VB进度条怎样平滑连续前进?
scrolling属性设为1

vb.net 代码写的进度条不显示
Step 属性:ProgressBar 控件调用 PerformStep 方法时候增长的步长。Value 属性:ProgressBar 控件当前的位置值。PerformStep 方法:按照 Step 属性的数量增加进度栏的当前位置。Increment 方法:按指定的数量增加进度栏的当前位置。ProgressBar 控件又称进度条控件,它是一个应用很广的控件,可以在需要执行较长...

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

VB中进度条怎么写代码?进度条不起作用为什么?
第一个的错误修改 就找不到啊 你还要他怎么样呢?他没这个属性 第二个 你把()去掉 第三个 你不能For I as Integer = Min to Max 你要Dim I as Integer:For I = Min to Max

关于VB.NET中进度条使用问题
VB.Net中提供了ProgressBar控件,用于显示进度条 设置ProgressBar的Minimum和Maximum属性为循环的起始和终止数值 然后在代码的循环体中计算当前循环的进度,然后设置进度条的Value属性,将进度显示在进度条上

vb如何设置进度条并在10秒后提示??
窗体上有一个按钮,一个进度条,一个Timer控件:Private Sub Command1_Click()ProgressBar1.Min = 0 ProgressBar1.Max = 100 ProgressBar1.Value = 0 Timer1.Interval = 1000 Timer1.Enabled = True End Sub Private Sub Timer1_Timer()ProgressBar1.Value = ProgressBar1.Value + 10 If ...

相似回答
大家正在搜