Эквивалент Timeout.bas для Visual Basic с использованием Visual Studio 2010

Question

Существуют ли Timeout.bas эквиваленты для Visual Basic с использованием Visual Studio 2010

У меня есть файл с именем timeout.bas, который я мог добавить в проекты в более ранних версиях Visual Basic, которые в основном позволяли мне использовать код:

Timeout .5

Я пытаюсь получить такой же файл для Visual Studio 2010

Так что я могу написать такой код:

Label1.text = "hello"
Timeout 1 
label1.text = "good day!"

Это просто пауза или задержка .... Заранее спасибо!

Answer 1

Вот как это сделать с Таймером . Вы должны разделить свою оригинальную рутину на две части.

Public Class Form1

  Private Sub Form1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Click
    TextBox1.Text = "hi"

    Dim tmr As New Timer
    tmr.Enabled = True
    tmr.Interval = 3000 ' milliseconds '
    AddHandler tmr.Tick, AddressOf ContinueWork
  End Sub

  Sub ContinueWork()
    TextBox1.Text = "hi2"
  End Sub

End Class

Имейте в виду, что пользователь может продолжать щелкать мышью вокруг вашего приложения, пока работает интервал таймера.

Я не уверен, , почему вы хотели бы сделать это, это выглядит странно для приложения, но я уверен, что у вас есть свои веские причины!

Answer 2

Вот идея, которая может сработать ... попробуйте переписать timeout () в VB.NET:

ПРИМЕЧАНИЕ. Ниже приведен непроверенный псевдокод, в частности время.Может быть, написать юнит-тест или около того, чтобы увидеть, будет ли это работать.

Sub timeout(duration)
     DateTime endtime = DateTime.Now().AddMilliseconds(duration)
     Do While DateTime.Now() < endtime
         Application.DoEvents()
     Loop 
End Sub