vb进度条进度大于一个指定百分比值时能弹出提示代码

显示全部楼层 · 2009-3-19 10:29:54

千问 · 2009-3-19 10:29:54

Private Sub Command1_Click() ProgressBar1.Tag = 0 '设置只提醒一次的标志 ProgressBar1.Min = 0 ProgressBar1.Max = 100 ProgressBar1.Value = 0 For i = 1 To 500 DoEvents If i Mod 5 = 0 Then ProgressBar1.Value = ProgressBar1.Value + 1'给进度条的进度赋值If ProgressBar1.Value > (ProgressBar1.Max - ProgressBar1.Min) * 0.8 And Prog...

千问 · 2009-3-19 10:29:54

你可以在设置进度条的value属性或调用PerformStep方法的后面加入如下代码ifProgressBar1.value> 指定值 thenmsgbox（“。。。。”）.........end if...