0

私は初心者で、Microsoft のメモ帳を同様に複製しようとしていますが、このメッセージが表示されます。現時点では、ToolStripMenu で「新しい」アイテムをコーディングしようとしています。簡単な要約: これまでのところ、ユーザーが「新規」を押すと、「このドキュメントに加えられた変更を保存しますか?」というメッセージが表示されます。ユーザーは、ドキュメント内の情報を消去する [いいえ] を選択するか、戻る [キャンセル] を選択できます。予定通り、元の場所に戻ります。ただし、「はい」を押すと、「ArgumentException was unhandled - Empty path name is not legal」というエラーが表示されます

Private Sub NewToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NewToolStripMenuItem.Click

    Dim intResult As Integer = Nothing
    Dim dlg As SaveFileDialog = New SaveFileDialog

    dlg.Filter = "Text File (*.txt)|*.txt"
    intResult = MessageBox.Show("Do you want to save the changes made to this document?", "Warning", MessageBoxButtons.YesNoCancel)

    If intResult = Windows.Forms.DialogResult.Yes Then
        RichTextBox1.SaveFile(dlg.FileName, RichTextBoxStreamType.RichText)
    ElseIf intResult = Windows.Forms.DialogResult.No Then
        RichTextBox1.Clear()
    Else
        Return
    End If

End Sub
4

1 に答える 1

1

FileName空です。SaveFileDialog が宣言されましたが、使用されませんでした。あなたのコードはあまり意味がないので、ダイアログを表示することができます...

Dim dlg As SaveFileDialog = New SaveFileDialog
dlg.Filter = "Text File (*.txt)|*.txt"
dlg.Title = "Choose Text File"
dlg.ShowDialog()

intResult = MessageBox.Show("Do you want to save the changes made to this document?", "Warning", MessageBoxButtons.YesNoCancel)

ファイルの保存ダイアログ

または、a が指定されているかどうかを確認してFileNameから、ロジックを実行できます。

If dlg.FileName <> "" then
'   do save logic '
End If
于 2013-03-25T20:26:43.813 に答える