2020年12月20日
延时函数
摘要： '延时函数Sub Delay(t As Single) Dim timeBegin As Single Dim SleepTime As Single timeBegin = Timer Do DoEvents SleepTime = Timer - timeBegin If SleepTime < 阅读全文
posted @ 2020-12-20 23:42 大黑山 阅读(363) 评论(0) 推荐(0) 编辑