savefiledialog_c# messagebox返回值_saveshowdialog第三方

SaveFileDialog文件保存对话框的实例

代码如下：

乐博网lob.cn提示：调试环境为 vs2005 + windows2003 / windows2008 / xp / vista

Public Class SaveFileDialog

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim FileName As String

SaveFileDialog1.InitialDirectory = "F:\"

SaveFileDialog1.Filter = "文本文件(*.txt)|*.txt|图片文件(*.jpg)|*.jpg|乐博网文件(*.lob)|*.lob|所有文件|*.*"

SaveFileDialog1.RestoreDirectory = True

SaveFileDialog1.FilterIndex = 1

SaveFileDialog1.Title = "乐博网 保存文件"

SaveFileDialog1.AddExtension() = True

SaveFileDialog1.CheckPathExists() = True

SaveFileDialog1.ValidateNames() = True

SaveFileDialog1.ShowHelp() = True

SaveFileDialog1.OverwritePrompt() = True

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

FileName = SaveFileDialog1.FileName

If FileName <> "" Then

RichTextBox1.SaveFile(FileName)

MessageBox.Show("乐博网提示：已保存")

Else

MessageBox.Show("乐博网提示：文件名为空")

End If

End If

End Sub

Private Sub SaveFileDialog1_Disposed(ByVal sender As Object, ByVal e As System.EventArgs) Handles SaveFileDialog1.Disposed

MessageBox.Show("dispose事件")

End Sub

Private Sub SaveFileDialog1_HelpRequest(ByVal sender As Object, ByVal e As System.EventArgs) Handles SaveFileDialog1.HelpRequest

MessageBox.Show("帮助事件")

End Sub

End Class

本文来自电脑杂谈，转载请注明本文网址：
http://www.pc-fly.com/a/ruanjian/article-51029-1.html