VBでテキストエディタを作ろう(その4)

アニメ『群れなせ！シートン学園』

もう最高です。毎話楽しい。あっという間に最終回でした。今２周目を視聴中です。

「名前を付けて保存(A)」にファイル保存の機能を追加してみます。
「System.IO.WriteLine」を使うので、Importsします。

Imports System.IO

次にHELLOと書き込むだけの新しいメソッドを追加します。

    Sub SaveFile(filename As String)
        Dim writer As StreamWriter = New StreamWriter(filename, True)
        writer.WriteLine("HELLO")
        writer.Close()
    End Sub

「名前を付けて保存(A)」クリックのメソッドから、先ほど作った「SaveFile」を追加して呼び出すようにします。
DialogResult.OKの場合に、d.FileNameに名前が入っているので、これを引数としてSaveFileに渡します。

    Private Sub 名前を付けて保存ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 名前を付けて保存ToolStripMenuItem.Click
        Dim d As New SaveFileDialog()
        d.InitialDirectory = "C:\Users\taku\Desktop\"
        If d.ShowDialog() = DialogResult.OK Then
            SaveFile(d.FileName)
        End If
    End Sub

全ソースです。

Imports System.IO

Public Class Form1
    Private Sub 名前を付けて保存ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 名前を付けて保存ToolStripMenuItem.Click
        Dim d As New SaveFileDialog()
        d.InitialDirectory = "C:\Users\taku\Desktop\"
        If d.ShowDialog() = DialogResult.OK Then
            SaveFile(d.FileName)
        End If
    End Sub

    Sub SaveFile(filename As String)
        Dim writer As StreamWriter = New StreamWriter(filename, True)
        writer.WriteLine("HELLO")
        writer.Close()
    End Sub
End Class

さてビルドして実行してみましょう。

「名前を付けて保存(A)」をクリックし、

ファイル名を「test.txt」と名付けます。

デスクトップ上に「test.txt」が出来ました。

「test.txt」をメモ帳で確認すると、「HELLO」が書かれていますね。