none
Timer/ProgressBar RRS feed

  • 问题

  • Visual Basic 2005

    请问,如何在Visual Basic 2005中,用Timer控件使ProgressBar控件在一定时间内,让ProgressBar的Value的值,从0变化到100?

    2008年8月18日 7:35

答案

  • AddHandler myTimer.Tick, AddressOf TimerEventProcessor
           
            ' Sets the timer interval to 5 seconds.
            myTimer.Interval = 5000
            myTimer.Start()

     

     

    Private Shared Sub TimerEventProcessor(myObject As Object, _
                                               myEventArgs As EventArgs)

    if ProgressBar.value<100 then

    ProgressBar1.value=ProgressBar1.value+1

    endif

        End Sub
       

    2008年8月18日 7:55
    版主

全部回复

  • AddHandler myTimer.Tick, AddressOf TimerEventProcessor
           
            ' Sets the timer interval to 5 seconds.
            myTimer.Interval = 5000
            myTimer.Start()

     

     

    Private Shared Sub TimerEventProcessor(myObject As Object, _
                                               myEventArgs As EventArgs)

    if ProgressBar.value<100 then

    ProgressBar1.value=ProgressBar1.value+1

    endif

        End Sub
       

    2008年8月18日 7:55
    版主
  • http://img.jpg.name/ttwtwvhtdhjjthhyywywyzrzwrvrhwhrwthdz.swf

    自己做的小教程hoho
    可能比较慢..也可能很不周到..多多原谅新手我~~

    2008年8月18日 10:53