[VB6 ] 跳出無窮迴圈

[kunhui (埃柏龍)]

我寫了一個迴圈用來等待Com1上的資料

Do Until Comm1.InBufferCount > 0
    DoEvents
Loop

正常情況下是沒有問題的

但是萬一因為干擾導致對方沒回應時我的程式會當在那邊

我想要寫一個計時器在裡面  當進入迴圈就開始計時

當等待T時後若還沒收到資料則自動跳出迴圈  想不出來要怎麼寫

請教一下我該如何下手

--
※ 發信站: 批踢踢實業坊(ptt.cc) 
◆ From: 140.114.57.54