一个text控件，一个command控件，在text1里输入内容，按下command控件，就将text1中的数据添加到txt文本中

再次添加的时候，txt中的数据隔行存储。
请各位帮帮忙，很急我

答案：'Text1 写文件路径
'Text2 显示文件内容，MultiLine为True
'Command1 显示内容的按钮
Private Sub Command1_Click()
On Error GoTo OpenErr '如果遇到错误就跳转到OpenErr
Dim a As String '保存文件内容的变量
Open Text1 For Input As #1 '打开Text1输入的文件
Input #1, a '读取文件内容，并存在变量a里
Text2 = a 'Text2显示变量a的内容，就是文件内容
Close #1 '关闭文件
Exit Sub '退出此过程，不执行下面的代码
OpenErr: '如果遇到错误，肯定是文件不存在
MsgBox "文件不存在！", vbExclamation '提示文件不存在
End Sub

其他：在添加的时候尾部加两个VbCrLf换行就可以了.
如:在command1的click事件里面输入下列代码即可.
text.text=text.text & trim(text1.text) & VbCrLf & VbCrLf
当然了,text控件的MultiLine要为True哦! 将代码放入command点击事件中

open "c:\1.txt" for append as #1
print #1,text1.text
close 

上一个：一道选择题，在线等
下一个：一道选择题，求解