VB中如何提示程序正在计算?

Question

程序中某计算过程需要很长时间,计算过程中如何提示程序正在计算?

Answer 1

Option Explicit
Dim i As Single
Dim a As Single

Private Sub Command1_Click()
a = 100000
Label1.Caption = "程序正在计算"
Timer1.Enabled = True
End Sub

Private Sub Command2_Click()
'放计算代码，例：
For i = 1 To 100000
a = a - 1
Next
Label1.Caption = "计算结束。"
End Sub

Private Sub Timer1_Timer()
Call Command2_Click
Timer1.Enabled = False
End Sub

一般此类计算发生于循环代码，数据遍历检索等，建议用进度条提示进度：

Option Explicit
Dim n As Single
Dim a As Single

Private Sub Command1_Click()
a = 0
For n = 1 To 1000000
a = a + 1
ProgressBar1.Value = (a / 1000000) * 100
Next
Label1.Caption = "计算结束。"
End Sub

以下给出一段实用数据查询代码的一部分，注意ProgressBar1.Visible的变化，仅供参考：
Private Sub Command12_Click()
,其它查询代码略
ProgressBar1.Visible = True
'chaxun1 = "select sum([数量]) as 合计 from mdlk_sj where "
'chaxun3 = " 销售='No' and 入库日期<='" & Text2 & "'"
'chaxun2 = "and 品种='DTY'"
'chaxun31 = " or 销售='No' and 入库日期>'T000-01-01' and 入库日期<='" & "T" & Right$(Text2, 9) & "'"
'mdh = chaxun1 & chaxun3 & chaxun2 & chaxun31 & chaxun2
'查询DTY库存数量
chaxun1 = "select sum([数量]) as 合计 from mdlk_sj where 销售='No'" ' between '" '
chaxun2 = " and 品种='DTY'"
mdh = chaxun1 & chaxun2
Adodc1.ConnectionString = "DSN=hxkcgl"
Adodc1.RecordSource = mdh
Adodc1.Refresh
DataGrid1.Refresh
If Adodc1.Recordset(0) > 0 Then
cktj_bm(12) = Adodc1.Recordset(0)
cktj_bm(12) = Int((cktj_bm(12)) * 10 + 0.501) / 10
Else
cktj_bm(12) = 0
End If
Text20.Text = cktj_bm(12)
ProgressBar1.Value = 3
chaxun1 = "select sum([数量]) as 合计 from mdlk_sj where 销售='No'" ' between '" '
chaxun2 = " and 品种='DTY' and 复合丝='Y' "
mdh = chaxun1 & chaxun2
Adodc1.ConnectionString = "DSN=hxkcgl"
Adodc1.RecordSource = mdh
Adodc1.Refresh
DataGrid1.Refresh
If Adodc1.Recordset(0) > 0 Then
cktj_bm(13) = Adodc1.Recordset(0)
cktj_bm(13) = Int((cktj_bm(13)) * 10 + 0.501) / 10
Else
cktj_bm(13) = 0
End If
ProgressBar1.Value = 6
,其它查询代码略
ProgressBar1.Value = 15
,其它查询代码略
ProgressBar1.Value = 45
,其它查询代码略
ProgressBar1.Value = 80
,其它查询代码略
End Sub

Answer 2

在开始运算前先将有关控件disable,再放一个label显示正在计算机.
等运算完了,再恢复即可.
具体的控件与代码你自己扩充