未顯示“另存為類型”

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