保存文件对话框？ [英] save file dialog?

问题描述

如何创建代码以使我的程序创建rtf文件？到目前为止，我还有什么帮助：

Private Sub MenuItem2_Click（ByVal sender As System.Object，ByVal e As

System.EventArgs）处理mnuSave.Click

Me.SaveFileDialog1.ShowDialog（）

Me.SaveFileDialog1.CheckFileExists = True

Me.SaveFileDialog1 .CheckPathExists = True

Me.SaveFileDialog1.AddExtension = True

Me.SaveFileDialog1.DereferenceLinks = True

Me.SaveFileDialog1.DefaultExt =" .rtf"

End Sub

how can i create a code to make my program create an rtf file? heres what i
have so far, any help would be appreciated:
Private Sub MenuItem2_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles mnuSave.Click
Me.SaveFileDialog1.ShowDialog()
Me.SaveFileDialog1.CheckFileExists = True
Me.SaveFileDialog1.CheckPathExists = True
Me.SaveFileDialog1.AddExtension = True
Me.SaveFileDialog1.DereferenceLinks = True
Me.SaveFileDialog1.DefaultExt = ".rtf"
End Sub

推荐答案

SaveFileDialog1.Filter =" RTF文件（* .rtf）| *。 rtf

SaveFileDialog1.Filter = "RTF Files (*.rtf)|*.rtf"

它仍然没有用，应该是这样的：

Private Sub MenuItem2_Click（ByVal sender As System.Object，ByVal e As

System.EventArgs）处理mnuSave.Click

Me.SaveFileDialog1.ShowDialog（）

Me.SaveFileDialog1。 CheckFileExists = True

Me.SaveFileDialog1.C heckPathExists = True

Me.SaveFileDialog1.AddExtension = True

Me.SaveFileDialog1.DereferenceLinks = True

Me.SaveFileDialog1.Filter =" RTF文件（* .rtf）| * .rtf"


End Sub

That still didnt work, should it look like:
Private Sub MenuItem2_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles mnuSave.Click
Me.SaveFileDialog1.ShowDialog()
Me.SaveFileDialog1.CheckFileExists = True
Me.SaveFileDialog1.CheckPathExists = True
Me.SaveFileDialog1.AddExtension = True
Me.SaveFileDialog1.DereferenceLinks = True
Me.SaveFileDialog1.Filter = "RTF Files (*.rtf)|*.rtf"

End Sub

Dim strFilename As String

使用SaveFileDialog1

.DefaultExt =" rtf"

.Filter =" RTF（* .rtf）| * .rtf |所有文件（*。*） | *。*"

.FilterIndex = 0

.InitialDirectory =

Environment.GetFolderPath（Environment.SpecialFolde r.Desktop）

如果.ShowDialog = DialogResult.OK然后

strFilename = .FileName

否则

退出子

结束如果

结束

MessageBox.Show（strFilename）

Dim strFilename As String
With SaveFileDialog1
.DefaultExt = "rtf"
.Filter = "RTF (*.rtf)|*.rtf|All Files (*.*)|*.*"
.FilterIndex = 0
.InitialDirectory =
Environment.GetFolderPath(Environment.SpecialFolde r.Desktop)
If .ShowDialog = DialogResult.OK Then
strFilename = .FileName
Else
Exit Sub
End If
End With
MessageBox.Show(strFilename)

这篇关于保存文件对话框？的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！