代碼如下,通過測試:
Private?Sub?anniu1_Click()?'按鈕anniu1點擊Open?"c:\aa.txt"?For?Output?As?#1?'打開文件
Print?#1,?Text1?'寫入text1控件內容
Close?#1?'關閉文件
End?Sub
Private?Sub?Form_Load()
On?Error?GoTo?Err?'不存在或錯誤,不讀
Dim?strLine?As?String?'定義變量
Open?"c:\aa.txt"?For?Input?As?#1?'打開文件
Do?Until?EOF(1)?'不為空執行
Line?Input?#1,?strLine?'?'讀出內容到變量
Text1?=?strLine?'Text1設置為變量值
Loop
Close?#1?'關閉文件
Err:
End?Sub