重庆分公司,新征程启航
为企业提供网站建设、域名注册、服务器等服务
这个是你的问题,不是vb.net速度慢。
芜湖网站制作公司哪家好,找成都创新互联!从网页设计、网站建设、微信开发、APP开发、成都响应式网站建设公司等网站项目制作,到程序开发,运营维护。成都创新互联于2013年创立到现在10年的时间,我们拥有了丰富的建站经验和运维经验,来保证我们的工作的顺利进行。专注于网站建设就选成都创新互联。
你应该这样写:
Dim file1 As FileStream = New FileStream("地址", FileMode.Open)
Dim myread As BinaryReader = New BinaryReader(file1)
Dim fn(file1.Length) As Byte
For i As Integer = 0 To file1.Length - 1
fn(i) = myread.ReadByte
Next
记得前面要 imports system.io
这个代码把文件读入一个fn的数组中,速度极快。
简单的说Timer是一个时间的控件, 不能说Timer的值等於2秒时,因为Timer相当於时间,只能说当Timer跳动两秒时触发某事件。 代码如下: ' 首先要确定启动控件 Me.Timer1.Enabled = True’启动控件 Me.Timer1.Interval = 1000‘设定跳动频为1秒。
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 函数,不过只能处理完消息再进行(如,按钮显示为弹起,停止响应两秒,再继续执行)。