timer要用timer.start()开始记时,timer.Interval = 2000简单来说:在timer事件下一个textbox.selectAll()两秒全选一次textbox内容,运行不完不会有什么影响,线程等内容现在不必考虑
创新互联建站坚持“要么做到,要么别承诺”的工作理念,服务领域包括:成都网站制作、做网站、企业官网、英文网站、手机端网站、网站推广等服务,满足客户于互联网时代的衡水网站设计、移动媒体设计的需求,帮助企业找到有效的互联网解决方案。努力成为您成熟可靠的网络建设合作伙伴!
哦老天!这位仁兄能不能吧中间的那个长长的字符串搞得简明一点啊!
还有您的文件号 #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 函数,不过只能处理完消息再进行(如,按钮显示为弹起,停止响应两秒,再继续执行)。
可以利用Timer时钟控件实现,这样做的好处是无需等待,释放CPU时间去做别的事