[.NET] 問個delay的問題

[comferret (豬排症候群)]

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        time_ = time_ - 1
    End Sub

   Public Function delay_(ByVal dur_ As Integer) As Integer


        time_ = dur_
        Timer1.Interval = 100 'dur_
        Timer1.Start()


        'Timer1.Enabled = True
        While time_ > 0


        End While
        Timer1.Stop()

        'time_ = 0


    End Function


想要做一個delay的function那
我在push bottom可以做但在這裡做成function後卻不能夠做
問問看有什麼方法可以做?

thanks~

--
※ 發信站: 批踢踢實業坊(ptt.cc) 
◆ From: 202.39.18.50
推 mathlinka:thread.threading.sleep(1000) → 停 1 秒