Question

vb如何设置进度条并在10秒后提示？？

例如：按下一个按钮后，进度条开始冲，在10秒后提示一段话。

Answer 1

窗体上有一个按钮，一个进度条，一个Timer控件：

Private Sub Command1_Click()
ProgressBar1.Min = 0
ProgressBar1.Max = 100
ProgressBar1.Value = 0
Timer1.Interval = 1000
Timer1.Enabled = True
End Sub

Private Sub Timer1_Timer()
ProgressBar1.Value = ProgressBar1.Value + 10
If ProgressBar1.Value = 60 Then
Timer1.Enabled = False
MsgBox "10秒到了"
End If
End Sub

Answer 2

推荐你自主学习：
1.ProgressBar的应用【即进度条应用】
2.API函数Sleep延时的应用
这样就可以满足你的要求。