VB6功能vb.net

Question

我有在VB6的代码

Private Sub pause(ByVal interval As Variant) 
    Dim Current As Variant 

    Current = Timer 
    Do While Timer - Current < Val(interval) 
     DoEvents 
    Loop 
End Sub 

如何转换在vb.net？我尝试过这种方式，但它不起作用。

错误在哪里？

Private Sub pause(ByVal interval As Single)    
     Dim newDate As Date  
     newDate = DateAndTime.Now.AddSeconds(interval) 

     While DateAndTime.Now.Second <> newDate.Second     
      Application.DoEvents()   
     End While  
End Sub 

感谢

Answer 1

我认为下面是原码（以andygrips答案略有不同）的最佳转换：但是

Private Sub Pause(ByVal seconds As Integer) 
    Dim current As Date 

    current = DateTime.Now 
    Do While (DateTime.Now - current).TotalSeconds < seconds 
     Application.DoEvents() 
    Loop 
End Sub 

注意，在.NET中使用的DoEvents的最好完全避免

Answer 2

它只会逃避While如果Now秒等于newDate秒。试试这个：

Private Sub pause(ByVal interval As Single) 
     Dim waitUntil As Date = DateAndTime.Now.AddSeconds(interval) 
     While DateAndTime.Now < waitUntil 
      Application.DoEvents() 
     End While 
    End Sub 

而且我可以建议你使用PascalCase（方法名的第一个字母是大写）命名方法。