我有个VB编程问题，请教高手

来源：百度知道 编辑：UC知道 时间：2024/06/02 14:03:57
我需要实现这么一个功能：打开.prj文件，将里面的内容显示在textbox1中（已实现），再将textbox2中的内容覆盖到textbox1，并且能保存进原先的.prj文件，如何实现，请教代码！！
补充： Txt1.Text = Txt2.Text这句能实现吗？
谢谢！！！！

'保存
Public Sub SaveFile(txtBox As TextBox, FileName As String)
On Error Resume Next

Dim FileNumber As Integer

'分配空闲的文件号
FileNumber = FreeFile

Open FileName For Output As #FileNumber
Print #FileNumber, txtBox.Text
Close #FileNumber '释放文件号
End Sub

'读取
Public Sub ReadFile(txtBox As TextBox, FileName As String)
On Error Resume Next
Dim ListText As String
Dim FileNumber As Integer

'分配空闲的文件号
FileNumber = FreeFile

Open FileName For Input As #FileNumber
Do Until EOF(FileNumber)
Line Input #FileNumber, ListText
txtBox.Text = txtBox.Text & vbCrLf & ListText
Loop

Close #FileNumber '释放文件号
End Sub

Private Sub Command1_Click()
Call ReadFile(Text1, "c:\1.pfj")
End Sub

Privat