Question

使用Visual Studio 2010是否有任何Timeout.bas等效的Visual Basic

我有一个名为timeout.bas的文件，我可以添加到早期版本的visual basic中的项目，基本上让我使用代码：

Timeout .5

我正在尝试为Visual Studio 2010获取相同类型的文件

所以我可以编写如下代码：

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

这基本上只是暂停或延迟......提前致谢！

Answer 1

这是一个可能有用的想法...尝试在VB.NET中重写timeout（）：

注意：下面是未经测试的伪代码，特别是时间内容。也许写一个单元测试左右，看看这是否有效。

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

Answer 2

如何使用Timer进行操作。您必须将原始例程拆分为两部分。

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

请注意，用户可以在计时器间隔运行时继续单击您的应用程序。

我不确定为什么你想要这样做，对于一个应用程序来说这似乎很奇怪，但我相信你有很好的理由！

使用Visual Studio 2010的Visual Basic的Timeout.bas等价物

2 个答案: