因为当他获取的c:/1.txt文件后就改变了Text1里的值,当运行完Text1.Text = Input(LOF(1), 1)语句后又调用了此过过程。close 1跟本没有执行,所以文件还没有关闭又打开了,你可以改为以下代码来解决这个问题。
Private Sub Text1_Change()
Dim str1 As String
Open "c:/1.txt" For Binary As #1
str1 = Input(LOF(1), 1)
Close 1
Text1.Text = str1
End Sub