Question

vb6文件操作为什么不能马上写入文件

Option Explicit
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
Print #1, Chr(KeyCode)
End Sub
Private Sub Form_Load()
Open "C:\Users\Administrator\Desktop\a.txt" For Append As #1
End Sub
Private Sub Form_Unload(Cancel As Integer)
Close #1
End Sub
为什么当我按键以后，打开a.txt中没有写入任何字符，只有当关闭主窗体的时候才会写入？

书上说Print只是写入缓冲区，并没有真正写入文件，要写入文件满足以下条件之一
1、关闭文件Close
2、缓冲区满
3、缓冲区未满，但执行下一个Print语句

上面的例子中，明显满足第3条，为什么没有写入文件呢？求解答!

Answer 1

打开文件只是对磁盘上的缓冲区写入 要关闭文件之后才算是完成写入

追问

那书上写的那三条规则是错误的么？

那书上的三条规则有问题么？

Answer 2

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
Open "C:\Users\Administrator\Desktop\a.txt" For Append As #1

Print #1, Chr(KeyCode)
Close #1
End Sub

追问

你这样当然是可以，但是按一下键盘就要打开一次文件感觉好浪费

为什么像我那样不行呢？

追答

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
Print #1, Chr(KeyCode);
print
End Sub

追问

试过了，不行

追答

Option Explicit
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
Print #1, Chr(KeyCode)

End Sub
Private Sub Form_Load()
Me.KeyPreview = True
Open "C:\Users\Administrator\Desktop\a.txt" For Append As #1
End Sub
Private Sub Form_Unload(Cancel As Integer)
Close #1
End Sub

追问

不行啊！还是只有当窗体关闭的时候才会写入文件
你这个代码你自己试过了么？是我电脑的问题么？

追答

如果是win7,你最好把文件放入d:\a.txt
以上代码我测试过没有问题，你要加me.keypreview或是form1.keypreview

追问

真不行啊！
我的意思是在程序运行的过程中 点几下键盘，然后就去打开a.txt查看结果
这个时候a.txt中什么都没有，只有当关闭窗口的时候，在打开a.txt才会看到全部的输入
你是按照我上面的操作的么？

应该不是电脑的问题把
我用XP虚拟机运行也是同样的问题啊！

追答

也许是win98与以后的系统管理上不一样吧，测试xp不关闭文件不会往文件里写数据。

追问

你说的测试的时候，不关闭文件就可以写数据
你是什么系统呀？？难道是98啊....

我在W7和XP虚拟机运行结果都一样啊！