VB.netで上書き保存するには (ID:108212)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

意味のわからない文章を書いてしまって申し訳ございませんでした。
コードを記述しました。日付と時刻の欄を見てください。
たとえば、テキストエディタに文章が書いてある時に日付と時刻のコマンドを実行すると、もともと書いてあった文章に上書きされて日付と時刻が表示されてしまうということです。
また、その他で効率が悪い記述などがありましたら、ご指摘願います。

'終了
    Private Sub mimExit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mimExit.Click
        Application.Exit()
    End Sub

'新規作成
    Private Sub mimNew_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mimNew.Click
        txtWrite.Clear()
    End Sub

'開く
    Private Sub mimOpen_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mimOpen.Click

'宣言
        Dim d As DialogResult
        Dim tempData As String
        Dim readData As String
        Dim i As Integer

'ダイアログを表示してファイルを選択
        d = OpenFileDialog.ShowDialog()
        If d = DialogResult.Cancel Then
            Exit Sub
        End If

'ファイルを開く
        i = FreeFile()
        FileOpen(i, OpenFileDialog.FileName, OpenMode.Input)

'データの読み込み
        Do Until EOF(i)
            tempData = LineInput(i)
            readData = readData & tempData & vbNewLine
        Loop
        txtWrite.Text = readData

'ファイルを閉じる
        FileClose(i)

End Sub

'保存
    Private Sub mimSave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mimSave.Click

'宣言
        Dim i As Integer
        Dim d As DialogResult

'ダイアログを表示してファイルを選択
        d = SaveFileDialog.ShowDialog()
        If d = DialogResult.Cancel Then
            Exit Sub
        End If

'ファイルを開く
        i = FreeFile()
        FileOpen(i, SaveFileDialog.FileName, OpenMode.Output)

'データの書き込み
        Print(i, txtWrite.Text)

'ファイルを閉じる
        FileClose(i)

End Sub

'印刷情報
    Private Sub mimPrint_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mimPrint.Click

'宣言
        Dim d As DialogResult

'印刷ダイアログの表示
        d = PrintDialog.ShowDialog()
        If d = DialogResult.OK Then
            '印刷を開始
            PrintDocument.Print()
        End If

End Sub

'印刷ルール１
    Private Sub PrintDocument_PrintPage(ByVal sender As System.Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs) Handles PrintDocument.PrintPage

'描画
        e.Graphics.DrawString(txtWrite.Text, txtWrite.Font, Brushes.Black, 0, 0)

End Sub

'印刷ルール２
    Private Sub frmNicelookmemo_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        PrintDialog.Document = PrintDocument
    End Sub

'フォントダイアログの表示
    Private Sub mimFont_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mimFont.Click

'宣言
        Dim d As DialogResult

'フォントダイアログの表示
        d = FontDialog.ShowDialog
        If d = DialogResult.Cancel Then
            Exit Sub
        End If

'フォントと色の変更
        txtWrite.Font = FontDialog.Font
        txtWrite.ForeColor = FontDialog.Color

End Sub

'文字数表示
    Private Sub mimMojisu_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mimMojisu.Click

'宣言
        Dim m As String

'文字数ダイアログの表示
        m = txtWrite.Text
        MessageBox.Show("文字数：" & Len(m) & "文字", "文字数", MessageBoxButtons.OK, MessageBoxIcon.Information)

End Sub

'日付と時刻
    Private Sub mimDatetime_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mimDatetime.Click
        txtWrite.Text = Now
    End Sub

'バックカラー（白）
    Private Sub mimWhite_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mimWhite.Click
        txtWrite.BackColor = Color.White
        txtWrite.ForeColor = Color.Black
    End Sub

'バックカラー（黒）
    Private Sub mimBlack_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mimBlack.Click
        txtWrite.BackColor = Color.Black
        txtWrite.ForeColor = Color.White
    End Sub
End Class

←解決時は質問者本人がここをチェックしてください。

戻る