VB.NET实现进度条在另一个窗体中显示进度

[zhangpeiwen168]

主窗体操作数据库时,弹出一个窗体显示进度
如下图:
小弟急需,各位大哥帮帮忙啊

[marongc]

不用进度条可以吗
如果你是在查询SELECT的话,你能知道已经查到第几条了吗
所以,我建议你可以显示一个数字累加1
让用户知道系统还在运行

这样是不是更好些呢

[Szunzer]

如果将数据库数据写入Dataset或datatable中进行行处理时可以显示进度,如果运行存储过程，或批处理数据无法显示数据库运行进度！
如果使用Dataset或Datatble的形式你可以直接实例化一个进度窗体进行操作就行

[wuyq11]

Private Sub ProgressBar_Run()
Dim i, Re As Integer
Me.ProgressBar1.Maximum = 5000
Me.ProgressBar1.Minimum = 1
Me.ProgressBar1.Step = 1
Me.ProgressBar1.Value = 1
For i = 1 To 5000
'系统处理过程：
Next
Me.ProgressBar1.Value = 1
End Sub

[marongc]

这个涉及到线程的问题了
定义

  

  Dim t As System.Threading.Thread

  Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        
        t = New System.Threading.Thread(AddressOf Me.showdata)
'线程调用子程序
        t.Start()'线程开始

    End Sub

    dim txtsql As String
    Sub showdata()
        Try
            System.Threading.Thread.CurrentThread.Sleep(20)
            txtSQL = "select ...."
'            查询功能 
        Catch ex As Exception
            MsgBox(ex.ToString)
        End Try

    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Try
            t.Join()'线程暂停

            t.Abort()'线程中止

        Catch ex As Exception
            MsgBox(ex.ToString)
        End Try

    End Sub

[essenza]

我也想知道，帮顶！