以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  计时器问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=44823)

--  作者:jnletao
--  发布时间:2014/1/9 16:27:00
--  计时器问题
我想让代码的执行有个时间间隔,请问如何解决
If icdev > 0 Then
    e.Form.controls("lbResult").Text = "打开串口成功!"
    rf_beep(icdev, 15)  ‘蜂鸣
   ’想在这里加个时间间隔
    rf_beep(icdev, 15)  ‘蜂鸣
    Dim status(30) As Byte
    For idx = 0 To 29
        status(idx) = 0
    Next
End if

--  作者:jnletao
--  发布时间:2014/1/9 16:27:00
--  
这个代码是 放在 click事件里的
--  作者:jnletao
--  发布时间:2014/1/9 16:35:00
--  
图片点击可在新窗口打开查看
--  作者:狐狸爸爸
--  发布时间:2014/1/9 16:48:00
--  
Threading.Thread.Sleep(3000)
--  作者:jnletao
--  发布时间:2014/1/9 17:01:00
--  
图片点击可在新窗口打开查看 谢谢狐爸,