我有一个程序,如何在程序未执行结束时,使用一个进度条,来
给用户一个友好提示

解决方案 »

  1.   

    ProgressBar1.Min = 0
        ProgressBar1.Max = 100
        ProgressBar1 = 0
        For J = 1 To 100
            For I = 1 To 10000
                DoEvents
            Next I
            
            ProgressBar1.Value = J
        Next-----------------------
      

  2.   

    ProgressBar1.Min = 0     '设置最小值
        ProgressBar1.Max = 100   '设置最大值
        ProgressBar1.Value = 40   '当前进度值'你的程序里只要控制这几个属性就可以了
      

  3.   

    progressbar的属性设置而已,max,min都有的,value是在精度条上的显示,比如在timer中或是其他的循环中可做+1等操作来直观的改变进度条的状态。