vb.net隔两秒执行 vba 间隔3秒显示运行一次

VB.net timer.Interval = 2000 ，计时器间隔为2秒 不懂这个间隔

timer要用timer.start（）开始记时，timer.Interval = 2000简单来说：在timer事件下一个textbox.selectAll()两秒全选一次textbox内容，运行不完不会有什么影响，线程等内容现在不必考虑

创新互联建站坚持“要么做到，要么别承诺”的工作理念，服务领域包括：成都网站制作、做网站、企业官网、英文网站、手机端网站、网站推广等服务，满足客户于互联网时代的衡水网站设计、移动媒体设计的需求，帮助企业找到有效的互联网解决方案。努力成为您成熟可靠的网络建设合作伙伴！

vb 等待2秒后执行下一段代码

哦老天！这位仁兄能不能吧中间的那个长长的字符串搞得简明一点啊！

还有您的文件号 #2 也不好，容易冲突。建议改成变量 nFF（整型）,nFF = IIF((FreeFile=0), FreeFile(1), FreeFile)，这样就不会冲突了。

对于延迟，可以使用 Sleep 函数。

修正后的代码如下：

Private Declare Function Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) As Long

Shell "cmd /c echo open " Text5.Text "" aa "/xjdown.txt" "echo " Text6.Text "" aa "/xjdown.txt" "echo " Text7.Text "" aa "/xjdown.txt" "echo bin" aa "/xjdown.txt" "echo get " aa "\" aa "xjlt.txt" "" aa "/xjdown.txt" "echo bye" aa "/xjdown.txt" "ftp -s:" aa "/xjdown.txt" "del " aa "\xjdown.txt" "© " aa "xjlt.txt " aa "\" aa "xjlt.txt" "del " aa "xjlt1.txt", vbHide '修正后的下载文本代码

Dim nFF As Integer

nFF = IIF((FreeFile=0), FreeFile(1), FreeFile)

Open aa "\" aa "xjlt.txt" For Binary As #nFF

Text1.Text = Input(LOF(2), #nFF)

Close #nFF

Sleep 2000 '睡两秒，注意 Sleep 以毫秒为单位

MkDir Text14.Text

这样就行了。

:RECENTLY ADDED:

上面的仁兄注意了！Sleep 函数本来就是让窗体暂停处理消息的，所以不响应是在所难免的。可以在调用 Sleep 函数的前一行使用 DoEvents 函数，不过只能处理完消息再进行（如，按钮显示为弹起，停止响应两秒，再继续执行）。

vb。net 缓两秒执行一段程序

可以利用Timer时钟控件实现，这样做的好处是无需等待，释放CPU时间去做别的事