保存文件问题

Question

这里的text文件可以保存,不过当我保存了之后,程序就会说 Print #1, Text1.Text 这里错了,说是实时错误,要求对象,请问我要怎么改呢?这个程序我是用到了IDM窗口了.
Private Sub mysave_Click()
CommonDialog1.Filter = "Text files (*.TXT)|*.TXT"
CommonDialog1.ShowSave
If CommonDialog1.FileName <> "" Then
        Open CommonDialog1.FileName For Output As #1
        Print #1, Text1.Text
        Close #1
    End If
End Sub

Answer 1

不用改，放一个textbox控件，名称text1

Answer 2

你没有名为TEXT1的TEXTBOX控件吧

Answer 3

有呀,我在from窗体里有一个TEXT1控件呀````

Answer 4

代码完全正确
如果窗体中有text1的话就应该没问题

Answer 5

我曾经犯过这样的错误，将text1录入成了textL（小写的），结果找了3小时错误！
你说的可以保存文件但保存不了内容是什么意思啊，是不是说可以建立文件啊，如果是的话，那很正常，因为建立文件是由open语句完成的。

Answer 6

猜测：你的text1控件在子窗体上，而保存文件的代码在父窗体中。
解决：假设你的字窗体叫frmChild
Private Sub mysave_Click()
CommonDialog1.Filter = "Text files (*.TXT)|*.TXT"
CommonDialog1.ShowSave
If CommonDialog1.FileName <> "" Then
        Open CommonDialog1.FileName For Output As #1
        Print #1, frmChild!Text1.Text
        Close #1
   End If
End Sub