各位vb高手:
 本人初学vb请教textbox问题,以下为源程序
即读取c:/1.txt内容显示在textbox内,
Private Sub Text1_Change()
  Open "c:/1.txt" For Binary As #1
  Text1.Text = Input(LOF(1), 1)
  Close 1
End Sub

请高手帮忙解决!

没测试
但估计是你在输入的时候速度很快
导致上次一TEXT1_CHANGE事件还没执行完(没执行完的话,文件被打开但并没有被关闭)
而又继续下一次事件的执行,这样又执行打开文件这行代码,所以出现你图中的错误信息.

因为当他获取的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

是吧.还没有关闭打开状态.