重慶分公司,新征程啟航
為企業提供網站建設、域名注冊、服務器等服務
為企業提供網站建設、域名注冊、服務器等服務
這個是你的問題,不是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 函數,不過只能處理完消息再進行(如,按鈕顯示為彈起,停止響應兩秒,再繼續執行)。