我採用 TimeDelay() 來做兩個值顯示的切換時間距,但造成堆累空間不足的問題,可有方法幫忙解決? 謝謝 !
P=3
DO
A="1"
  TimeDelay(2000)
  A="2"
LOOP UNTIL P<>"3"
Sub TimeDelay(DT As Long) 'DT=1 表示 1ms , DT=1000 表示 1秒
Dim tt As Long
  tt = GetTickCount()
  Do
    DoEvents
  Loop Until GetTickCount - tt >= DT
End Sub

    全站熱搜

    vbqa 發表在 痞客邦 留言(2) 人氣()