正文
vb.net进度条控件 真正跟着进度走的vba进度条
小程序:扫一扫查出行
【扫一扫了解最新限行尾号】
复制小程序
【扫一扫了解最新限行尾号】
复制小程序
VB .NET如何在计算过程中加入进度条?
VB.Net中提供vb.net进度条控件了ProgressBar控件vb.net进度条控件,用于显示进度条
vb.net进度条控件我建议你不要用进度条显示剩余时间而是显示执行进度
这样比较好控制
设置ProgressBarvb.net进度条控件的Minimum和Maximum属性为循环vb.net进度条控件的起始和终止数值
然后在代码的循环体中计算当前循环的进度,然后设置进度条的Value属性,
将进度显示在进度条上
比如,简单的例子:
Dim Progress As Integer
ProgressBar1.Minimum = Min
ProgressBar1.Maximum = Max
For i As Integer = Min To Max
'执行计算.......
Progress = i \ Max '计算进度
ProgressBar1.Value = Progress '显示进度
My.Application.DoEvents() '使用Doevents防止窗体假死使进度条看不到,但是会严重降低运行速度
Next
这里的优化技巧是,可以设置为每隔N次循环才更新进度条
If Not Progress Mod N Then ProgressBar1.Value = Progress
不然进度条的更新也许比计算的速度还要慢很多
关于VB.NET进度条的实例
该实例有很多实现方法,下面介绍一种不同vb.net进度条控件的给vb.net进度条控件你:
首先要在窗体中载入以下控件:progressbar(进度条),label(用来实时显示文本提示),两个timer(分别控制进度条进度vb.net进度条控件的增减),然后用以下代码就能实现:
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Timer1.Enabled = True
Timer1.Interval = 500
Timer2.Interval = 500
ProgressBar1.Value = 0
ProgressBar1.Maximum = 100
ProgressBar1.Minimum = 0
End Sub
'上述过程是设置控件的初始值,也可以在属性面板设置
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
ProgressBar1.Value += 1
Label1.Text = "当前完成" ProgressBar1.Value "%"
If (ProgressBar1.Value = 100) Then
Timer1.Enabled = False
Timer2.Enabled = True
End If
End Sub
'timer1用来控制进度的增加
Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
ProgressBar1.Value -= 1
Label1.Text = "当前完成" ProgressBar1.Value "%"
If (ProgressBar1.Value = 0) Then
Timer1.Enabled = True
Timer2.Enabled = False
End If
End Sub
'time2用来控制进度的减少
End Class
关于一个VB.net ProgressBar控件问题
Public Sub LoadingData()
For i As Integer = 0 To 1000000 '此动作是代表 Form2部分控件在运行
Form2.Label2.Text = "33"
Form2.Label3.Text = "33"
Form2.Label4.Text = "33"
Form2.Label5.Text = "33"
Next
If Store1 = "1" Then
' BusinessToRemind() '一个自定义程序
ProgressBar1.Visible = False
Form2.Show()
Me.Hide()
End If
End Sub
建议你在上述代码中加入 Application.DoEvents() ,向下面这样:
For i As Integer = 0 To 1000000 '此动作是代表 Form2部分控件在运行
Form2.Label2.Text = "33"
Form2.Label3.Text = "33"
Form2.Label4.Text = "33"
Form2.Label5.Text = "33"
Application.DoEvents()
Next
你试试吧。
vb.net 进度条(ProgressBar)和 Timer 控件怎么用?
这个不象是怎么传递Pr值的问题吧,是不是读取过程中卡啊?
在pr=J 下面加一句My.Application.DoEvents() ,暂时释放一下控制权,使程序去处理完其它事件。再说不需要时间控件,直接在循环过程中修改进度值也可以,然后来一句My.Application.DoEvents()。
vb.net 如何用进度条显示数据查询进度?
有不是多线程的,.NET有一个异步控件来完成这个事情,BackgroundWorker。
多线程其实比你想象的简单,你计划操作步骤,打比方说我们处理一个文件,用进度条来显示进度。我们可以定义解压他进度为5%,解密文件后哦进度完成20%,读取数据后进度完成30%,重新整理插入数据后进度完成60%,再加密,进度为80%,再压缩进度为90%,再发送进度为95%,删除历史记录结束动作进度为100%。这种事就要多线程去完成,调用控件你就需要委托或者回调控件。
进度条给他赋值就好了,程序运行后你会发现进度条在动。
这是现在90%程序进度条原理。
VB.NET显示程序的进度,该怎么做?
VB本身有进度条控件。程序启动时加载多少控配置,组件都是编写源码时可知的。进度条的上限就是加载组件,配置数的和,加载成功一个就自加1
vb.net进度条控件的介绍就聊到这里吧,感谢你花时间阅读本站内容,更多关于真正跟着进度走的vba进度条、vb.net进度条控件的信息别忘了在本站进行查找喔。