vb点虐 保存对话框 vba 保存文件对话框

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

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

原文链接：

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

'代码中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)

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