一个小问题，解决不了，在线等

Question

小弟做一个程序，统计数据，数据量很大,需要好几分钟，所以我想在统计时显示一个Label,“请稍后”之类。可是在统计完成以后才能显示。如何解决呀，在线等……

Answer 1

添加一个ProgressBar控件，在你的统计里加入
 If ProgressBar1.Value < 99 Then
     ProgressBar1.Value = ProgressBar1.Value + 1 / 200
     If ProgressBar1.Value > 1 Then Label3.Caption = Left(ProgressBar1.Value, 5) & " %"
     End If
当统计完后，再赋值ProgressBar1.Value ＝100。在Label上显示操作已完成！

Answer 2

label1.caption = "统计进行中，可能需要几分钟,请稍后..."
doevents    '这个一定要哦，否则label1.caption的可能看不到它改变哦
'接着下面做你的统计了
'.................
'.................
'.................
label1.caption = "统计完成"
doevents

Answer 3

Private Sub Command1_Click()
Label1.Caption = "dfsfsad"
DoEvents
For i = 0 To 1000000000
Next
End Sub