用STATUS BAR 显示进度

[njstar]

sqldataadapter1.fill(dataset11)时,由于数据太大,想用STATUS BAR 显示进度,请问有什么方法?

[ganenpingsohucom]

给你一段代码,你可以自己在status bar上画进度条
Dim bounds As Drawing.Rectangle = DataGrid1.GetCellBounds(i, 3)
'DataGrid1.Controls.Item(j).SetBounds(bounds.X + xWidth, bounds.Y + xHeight, bounds.Width - xWidth * 2, bounds.Height - xHeight * 2)
Dim mbounds As New Drawing.Rectangle(bounds.X + xWidth, bounds.Y + xHeight, bounds.Width - xWidth * 2, bounds.Height - xHeight * 2)
Dim mybounds As New Drawing.Rectangle(bounds.X + xWidth, bounds.Y + xHeight, (bounds.Width - xWidth * 2) * DataGrid1.Item(i, 4) / 100, bounds.Height - xHeight * 2)
Dim pen As New Drawing.Pen(Color.DarkBlue)
e.Graphics.DrawRectangle(pen, mbounds)
e.Graphics.FillRectangle(Brushes.AliceBlue, mbounds)
' Dim brush As New Drawing.Drawing2D.HatchBrush(Drawing.Drawing2D.HatchStyle.DarkVertical, Color.Red)
e.Graphics.FillRectangle(Brushes.MidnightBlue, mybounds)

[zhp80]

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim x As New System.Windows.Forms.ProgressBar()
Dim i As Integer

x.Minimum = 0
x.Maximum = 1000
x.Dock = DockStyle.Fill

x.Parent = Me.StatusBar1
x.Show()

For i = 0 To 1000
x.Value = i
Next
x.Dispose()
End Sub

[cfag]

用progressbar更方便，更直观

[xumahua]

up

[njstar]

谢谢帮忙,我知道如何用STATUS BAR 或PROGRESS BAR,但不清楚如何把STATUS BAR 或PROGRESS BAR 的进度与dataadapter.fill 的进度联系起来.
比如当FILL 到一半的时候,我希望STATUS BAR 或PROGRESS BAR 显示50%.
多谢

[szch]

如果需要了解进度,可能需要自己编码了。
对DATAGRID 写个过程自行添加记录，每增加一行内容，PROGRESS BAR 值增加1
以前我用MSHFLEXGRID时，当用DATASOURSE时，无法知道读取进程。
于是只能用写了一个过程，自己增加内容。
VB。NET中不知有没有高手知道如何解决？

[njstar]

结帐前再最后问一遍,真的没有办法发现FILL DATASET 的进度?

[Angelnet]

gz