如下，form5顯示出來，一直是只有表單邊框，里面的內容全是空的。 我把最后的Form5.Hide試了一下，表單可以完全顯示，但是顯示的比較完，不是在Form5.Show以后開始顯示的。
求救，求解答
Private Sub Form_Load()
Form5.Show
Dim stp As String
stp = GetSysTempPath
Dim l As String
Dim m As String
verold = "10"
DownloadFile "http://yibadao.net/update/ybdfinal.txt", stp & "ybd.txt"
DownloadFile "http://yibadao.net/update/ybdfinalup.txt", stp & "ybdup.txt"
If Dir(stp & "\ybd.txt") = "" Or Dir(stp & "\ybdup.txt") = "" Then
inte = 0
Exit Sub
Else
inte = 1
Open stp & "\ybd.txt" For Input As #1
Do Until EOF(1)
Line Input #1, l '一行一行讀取
vernew = vbCrLf & l '寫入到text1里面
Loop
Close #1
Open stp & "\ybdup.txt" For Input As #1
Do Until EOF(1)
Line Input #1, m '一行一行讀取
upinfo = vbCrLf & m '寫入到text1里面
Loop
Close #1
End If
Form2.Label2.Caption = upinfo
Kill stp & "\ybd.txt"
Kill stp & "\ybdup.txt"
If verold <> vernew Then
Form2.Show
Form5.Hide
End If
End Sub
uj5u.com熱心網友回復：
DownloadFile是同步的還是異步的？如果是異步的，那么form_load運行后不會顯示什么東西的吧，因為運行的時候下載還沒有完成，甚至檔案還沒有建立。
另外vernew = vbCrLf & l '寫入到text1里面
這樣的賦值，只是把檔案最后一個行顯示在文本框里面，如果最后一個行是沒有字符，只是一個換行，那么就不會顯示什么。
轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/131241.html
標籤：VB基礎類