VB简单问题!

发布网友发布时间：2022-04-21 10:30

共5个回答

热心网友时间：2022-04-21 11:59

控件：
CommandButton(Command1)
TextBox(Text1)
删除所有内容再写的代码：
Private Sub Command1_Click()
Open "C:\help.txt" For Output As #1
Print #1, Text1.Text
Close #1
End Sub
在文件末尾写的代码：
Private Sub Command1_Click()
Open "C:\help.txt" For Append As #1
Print #1, Text1.Text
Close #1
End Sub

热心网友时间：2022-04-21 13:17

作为对上面的补充,因为上面的代码中的#1有些冒险,应用freefile函数获得文件句柄
Private Sub Command1_Click()
fn = FreeFile
Open "c:\temp\1.txt" For Output As #fn
Print #fn, Text1.Text
Close #fn
End Sub
liukui2157@sohu.com

热心网友时间：2022-04-21 14:52

新建一个文件
命名为**.txt就可以啊

热心网友时间：2022-04-21 16:43

Private Sub Command1_Click()
Open "C:\xxx.txt" For Append Lock Read Write As #1
Print #1, Text1,Text
Close #1
Reset
End Sub

热心网友时间：2022-04-21 18:51

最好参照一下写文件的代码。