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 

Однако обратите внимание, что использование DoEvents в .NET лучше вообще избегать

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 (первая буква имени метода капитализируются).