延时最好的方法是锻炼身体,饮食营养健康加上好的心态,增加情趣以及延长时间都能够起到帮助的。
成都创新互联公司企业建站,10年网站建设经验,专注于网站建设技术,精于网页设计,有多年建站和网站代运营经验,设计师为客户打造网络企业风格,提供周到的建站售前咨询和贴心的售后服务。对于做网站、成都做网站中不同领域进行深入了解和探索,创新互联在网站建设中充分了解客户行业的需求,以灵动的思维在网页中充分展现,通过对客户行业精准市场调研,为客户提供的解决方案。
炒肉类菜肴,要求炒得鲜嫩可口。炒菜的火候,投料的顺序都有讲究。以炒猪肉片为例说明:猪肉洗净切片,炒锅上火烧热,加入底油,油热后,先将葱花与肉片一同下锅煸炒,见肉表面发白接近半熟时,先烹入少许醋拌炒,待醋味迅速蒸发,再加入姜汁搅拌入味。然后加酱油、少许水,水沸后,放入副料,最后勾交,淋少许明油出勺。炒蔬菜类菜肴,则可用热锅温油,先下鲜姜末,炸出香味后,再下切好的蔬菜,迅速翻炒,待蔬菜响声已过,质地变软时,再加酱油炒匀,再放入少许汤水、食盐、白糖、味精,炒匀后,勾芡并淋香油即可出勺。
f
Imports System.Threading
Thread.Sleep(1000)’延迟1秒
2.PauseWait(1000)’延迟1秒
Public Sub PauseWait(ByVal HowLong As Long)
Dim tick As Long
tick = My.Computer.Clock.TickCount
Do
My.Application.DoEvents()
Loop Until tick + HowLong My.Computer.Clock.TickCount
End Sub
你加入一个定时器Timer1
使Enable属性为TRUE
然后调用Private Sub Timer1_Timer()
Timer.interval=3000
MsgBox "错误!", vbInformation + vbOKOnly, "提示"
Timer.Enable=FALSE
end Sub
第一个for完成对delay_time参数的控制,即共循环多少次内部循环
第二个for(内部循环),完成对j从0到199的控制,共循环200次。
翻译成汇编就是:
(R0为传递参数)
DELAY:
MOV R1,#200
DJNZ R1,$
DJNZ R0,DELAY
RET
Threading.Thread.Sleep(500)这句是线程停止等待的,在这500毫秒的时间里你的任何动作都是不响应的,理论上再SendKeys.Send(TextBox2.Text)这段时间内你可以动作,但是send是毫秒级完成的,你还没有来得及响应就进入了下一次的循环,所以跟卡死类似
解决方法:通过timer定时器延时
timer要用timer.start()开始记时,timer.Interval = 2000简单来说:在timer事件下一个textbox.selectAll()两秒全选一次textbox内容,运行不完不会有什么影响,线程等内容现在不必考虑