Question

vb.net DOEVENT怎么用

我现在想延迟1秒，用sleep程序会挂起，无响应，看了网上说doevent能实现延迟功能，但是不知道怎么用，
具体程序是这样的
发送信息给串口
等待1秒
读取串口信息
这个等待1秒怎么实现？

Answer 1

Public Sub Delay(Second As Bouble)
    Dim tempTime As DateTime = DateTime.Now
    While (tempTime.AddSeconds(second).CompareTo(DateTime.Now) > 0)
        Application.DoEvents()
    End While
End Sub

放在模块里，使用时 Delay(1) 即可。

追问

确实延迟1秒，但是还是卡 1秒延时拖动窗体的时候会卡 和sleep一样。。。
但是比sleep强 sleep连按钮都卡 这个按钮不卡