额，忘问了，VB中怎样由菜单创建一个新的文本文件并保存文本框中的内容！

来源：百度知道 编辑：UC知道 时间：2024/06/21 19:53:02
就是单击菜单→保存（mnuSave），希望能出现类似于Word保存文件的那种窗口，但只显示文本文件。
点击保存后，文本框（text1）中的文字能输出保存成文本文件。

真的很急，拜托各位了……

Private Sub mnuSave_Click()
Dim oDLG
Dim b() As Byte, S As String
Set oDLG = CreateObject("MSComDlg.CommonDialog")
With oDLG
.DialogTitle = "保存文件"
.Filter = "文本文件|*.txt"
.MaxFileSize = 255
.Showsave
Open .FileName For Output As #1
Print #1, Text1.Text
Close #1
End With
Set oDLG = Nothing
MsgBox "保存完毕！"
End Sub

DblClick?