Question

VB记事本保存文件代码问题

我只是做了一个简易的，只有文本框和保存，但是以下代码无效
Private Sub Command1_Click()
Dim i As Integer
Dim pp As String
CommonDialog1.Filter = "文档文件(*.txt)|*.txt|所有文件(*.*)|*.*"
CommonDialog1.ShowSave

If CommonDialog1.CancelError Then Exit Sub
If CommonDialog1.FileName = "" Then Exit Sub

Open CommonDialog1.FileName For Output As #1

pp = Mid(Text1.Text, 1, Len(Text1.Text))

Print #1, pp
Close
MsgBox "Export Successfully!"
End Sub
界面就是这样

Answer 1

我用你给的代码运行没有错误，你可能没有添加对Microsoft Common Dialog Control 6.0空间的引用。所以不识别CommonDialog1是什么对象。
要使用CommonDialog首先需要添加该部件:
工程->部件->"控件"选项卡->Microsoft Common Dialog Control 6.0 打钩->确定 即可
再试试运行看看，应该已经成功了。

Answer 2

你加入的控件错了，你图里加入的是richtextbox控件，而你的代码里用的是text控件，你只需把他换了就行了

Answer 3

close 改为 close #1