未显示“另存为类型”

Question

好的，所以我尝试保存文件，并且希望将用户限制为* .txt和。 。 我要设置默认的* .txt。 该代码可以保存文件，但我看不到“另存为类型”选项，因为可以选择，默认的.txt扩展名不在文件名字段中。 我想念什么或做错什么？

Private Sub SaveFileDialog1_FileOk(ByVal sender As System.Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles SaveFileDialog1.FileOk
    'Write the converted string to the file
    Dim FileToSaveAs As String = SaveFileDialog1.FileName

    Dim FileWriter As New StreamWriter(FileToSaveAs)
    With SaveFileDialog1
        .DefaultExt = ".txt"
        .FilterIndex = 2
        .RestoreDirectory = True
        .Filter = "Text Files (*.txt)|*.txt|All files (*.*)|*.*"
        .InitialDirectory = "C:\AppTemp"
        .Title = "Save processed file"
    End With

    FileWriter.Write(TextOut)
    FileWriter.Close()
End Sub

Answer 1

在显示它之前，必须设置SaveFileDialog参数。
尝试这个：

public sub SaveFile
    With SaveFileDialog1
        .DefaultExt = ".txt"
        .FilterIndex = 1
        .RestoreDirectory = True
        .Filter = "Text Files (*.txt)|*.txt|All files (*.*)|*.*"
        .InitialDirectory = "C:\AppTemp"
        .Title = "Save processed file"
        If .ShowDialog() = DialogResult.OK then
            Dim FileWriter As New StreamWriter(.Filename)
            FileWriter.Write(TextOut)
            FileWriter.Close()
        End If
    End With
End Sub