vb.net进度条代码 vb进度条显示程序执行进度

vb.net 代码写的进度条不显示

在vb.net工具箱中 ProgressBar 控件图标。

ProgressBar 控件常用属性有：Maximum、Minimum、Step、Value；常用的方法有：PerformStep、Increment。

Maximum、Minimum 属性：指ProgressBar 控件可变化的最大和最小值。

Step 属性：ProgressBar 控件调用 PerformStep 方法时候增长的步长。

Value 属性：ProgressBar 控件当前的位置值。

PerformStep 方法：按照 Step 属性的数量增加进度栏的当前位置。

Increment 方法：按指定的数量增加进度栏的当前位置。

ProgressBar 控件又称进度条控件，它是一个应用很广的控件，可以在需要执行较长的程序过程中使用它来指示当前任务执行的进度，如果这样的过程中没有视觉提示，用户可能会认为应用程序不响应，通过在应用程序中使用 ProgressBar，可以告诉用户应用程序正在执行任务且仍在响应。

相关问答

Q1: 关于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.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

Q2: vb.net读取数据库时假死不显示进度条

你问的是vb.net读取数据库时假死不显示进度条怎么办吧，在循环代码中加一句DoEvents语句。

根据微软公司的资料得知，这是一种bug，只要在循环代码中加一句DoEvents语句即可。

VB.Net是一种简单，现代，面向对象的计算机编程语言，由微软开发。

Q3: VB .NET如何在计算过程中加入进度条？

VB.Net中提供vb.net进度条代码了ProgressBar控件vb.net进度条代码，用于显示进度条

vb.net进度条代码我建议vb.net进度条代码你不要用进度条显示剩余时间而是显示执行进度

这样比较好控制

设置ProgressBarvb.net进度条代码的Minimum和Maximum属性为循环的起始和终止数值

然后在代码的循环体中计算当前循环的进度，然后设置进度条的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进度条显示程序执行进度的介绍到此就结束了，不知道你从中找到你需要的信息了吗 ？如果你还想了解更多这方面的信息，记得收藏关注本站。