vb.net保存对话框 vb弹出保存对话框

VB.NET 单击按钮后，弹出保存文件对话框，把ListBox的内容保存到.txt中，每个item占一行

SaveFileDialog1.Filter = "文本文档|*.txt"

在长寿等地区，都构建了全面的区域性战略布局，加强发展的系统性、市场前瞻性、产品创新能力，以专注、极致的服务理念，为客户提供网站制作、网站建设 网站设计制作按需定制制作,公司网站建设,企业网站建设,品牌网站建设,营销型网站建设,外贸网站建设,长寿网站建设费用合理。

If SaveFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then

FileOpen(1, SaveFileDialog1.FileName, IO.FileMode.Open, OpenAccess.Write)

For i As Integer = 0 To ListBox1.Items.Count - 1

Print(1, ListBox1.Items(i).ToString)

Next

FileClose(1)

End If

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实例

1 生成txt文件。

DimSaveFileDialog1AsNewSaveFileDialog() '创建一个保存对话框

SaveFileDialog1.Filter ="txt files (*.txt)|*.txt" '设置扩展名

IfSaveFileDialog1.ShowDialog() = System.Windows.Forms.DialogResult.OKThen '如果确定保存

My.Computer.FileSystem.WriteAllText(SaveFileDialog1.Filename, Textbox1.Text,False) '保存文本,False表示不追加文本，直接覆盖其内容

EndIf

原文链接：