vb里面的对话框控件，打开“另存为”对话框后，单击取消选择不保存后还是会在目录保存文件

这个COM的对话框控件取消就是这样的机制，要判断用户点的是“取消”，就要设置控件的CancelError属性为True才可以接收到用户是否点了取消（这样真是增加了程序员的代码工作量），对了你的程序修改成这样就可以了：

创新互联致力于互联网网站建设与网站营销，提供做网站、成都网站制作、网站开发、seo优化、网站排名、互联网营销、微信小程序开发、公众号商城、等建站开发，创新互联网站建设策划专家，为不同类型的客户提供良好的互联网应用定制解决方案，帮助客户在新的全球化互联网环境中保持优势。

On Error Resume Next

Dialog.Flags = H4

Dialog.DefaultExt = ".txt"

Dialog.FilterIndex = 1

Dialog.CancelError = False

Dialog.ShowSave

If Err.Number = 0 Then

Open Dialog.FileName For Output As #1

Print #1, Text_List.Text

Close #1

End If 答案补充 有上的有误，下面的正确：

On Error Resume Next

Dialog.Flags = H4

Dialog.DefaultExt = ".txt"

Dialog.FilterIndex = 1

Dialog.CancelError = True

Dialog.ShowSave

If Err.Number = 0 Then

Open Dialog.FileName For Output As #1

Print #1, Text_List.Text

Close #1

End If

vb.net保存两个文本框

1、首先，点击保存按钮后应检查文本框内容。

2其次，如果在文本框4中输入的值以400开头则保存反之更改为400。

3、最后，再次检查文本框5如果文本框5中的值为29或31则保存反之则更改即可。

vb.net 保存excel弹出一个重命名对话框，另存为到其他盘

添加一个SaveFileDialog，在保存excle选择时候添加

SaveFileDialog1.show（）

用法跟OpenFileDialog相同

vb.net如何让父窗体工具栏的保存对话框在所有子窗体通用

'代码中Button控件自行在窗体中添加并改名

***********************************父窗体代码：

Public Class Form1

Public Sub From1_保存Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles From1_保存Button.Click

Select Case sender.name

Case "From1_保存Button"

MsgBox("提交的窗体是From1")

Case "Form2_提交Button"

MsgBox("提交的窗体是From2")

End Select

Form2.Close()

End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button_显示子窗体.Click

Form2.ShowDialog()

End Sub

End Class

***********************************子窗体代码：

Public Class Form2

Private Sub Form2_提交Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Form2_提交Button.Click

Form1.From1_保存Button_Click(Form2_提交Button, New System.EventArgs)

End Sub

End Class

***********************************

方法满多的，起码三四种，比如用一个全局变量保存当前提交窗体名，执行操作的代码读取这个全局变量就行。最方便的应该是做过程

Public Sub DateBaseAdd(ByVal From As Form)

，然后父窗体跟子窗体都能调用这个全局过程，同时传入窗体名称

文章题目：vb.net另存对话框 vbnet format
转载注明：http://lswzjz.com/article/dosgpcs.html