1樓：匿名使用者
option explicitprivate sub form_load()
dim fileno as integer
dim pathname as string, filename as string
dim tmp as string
me.show
pathname = environ("userprofile") & "\桌面\"
filename = "1.txt"
on error resume next
fileno = freefile
open pathname & filename for input as fileno
list1.clear
do while not eof(fileno) ' 迴圈至檔案尾。
line input #fileno, tmp ' 讀入一行資料並將其賦予某變數。
list1.additem tmp ' 在立即視窗中顯示資料。
loop close
end sub
2樓：
3樓：匿名使用者
主要用的函式，filefree, open,等等。
4樓：桂淡僕清漪
你可以先從
環境變數
中獲取桌面的地址，這樣就不會隨著機器的不同而造成程式的影響了str
=environ("userprofile")&"\桌面\"
'獲取桌面路徑file=str
&"\yourtxt.txt"
'這裡是你要讀取的txt
檔名list1.clear
'先清空列表框open
file
forinput
as#1
'開啟這個檔案開始讀內容do
while
noteof(1)line
input
#1,s
'讀取一行給s
list1.additem
s把s新增到列表框loopclose
#1'直到讀完
關閉檔案
vb6.0如何用**實現讀取access中的資料內容並顯示在text文字框中，十分著急 50
5樓：
adopendynamic應該沒有問題
rs2.open "select * from 高峰產能評價", cnn1, adopendynamic, adlockpessimistic
應該是cnn2,而不是cnn1
6樓：快樂_無敵
最好能寫下你的錯誤資訊
rs2.open "select * from 高峰產能評價", cnn1, adopendynamic, adlockpessimistic
這個地方我平時都用
rs2.open "select * from 高峰產能評價", cnn1, adopenstatic, adlockreadonly
如果不能解決問題的話，最好把錯誤資訊貼出來。
VB6 0中如何設定延時
private sub form load dim x x shell notepad.exe vbnormalfocus sendkeys 這是一個文字檔案的測試程式.true 模擬輸入英文字串 sendkeys true 兩次回車 waittime 2 延時 2 秒 sendkeys 自動輸入文...
VB6 0的窗體中，如何顯示不同內容
1全部不知道你註解是什麼用意。不過兩個都說一下，如果你不想新增form。你就建立frame組將所想要切換的所有控制元件全放在相應的每一個frame1陣列控制元件裡。然後，不管你有多少個控制元件。你都不需要對那控制元件單個操控。你只用通過用迴圈來控制frame1陣列的visible屬性來統一管理，或者...
vb中單擊命令按鈕觸發哪些事件，在VB6 0中，怎麼寫一個命令按鈕多次單擊按鈕的不同事件？
1 在vb中單擊命令按鈕觸發單擊事件，即窗體的click事件。2 在vb中單擊命令按鈕觸發失去焦點事件，當焦點不在按鈕上即發生。3 在vb中單擊命令按鈕觸發鍵盤按下事件，任意按下任意的鍵盤即可觸發事件。4 在vb中單擊命令按鈕觸發滑鼠按下事件，當滑鼠按下即可觸發的事件，無論是左鍵還是右鍵。5 在vb...