VB.NET初学者必备：简易记事本程序示例

Public Class Form1

    Private Sub 保存ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 保存ToolStripMenuItem.Click
        save()

    End Sub
    Public Function save()
        SaveFileDialog1.ShowDialog()
        Dim path As String
        Dim content As String
        path = SaveFileDialog1.FileName
        content = RichTextBox1.Text
        My.Computer.FileSystem.WriteAllText(path, content, False)

    End Function

    Private Sub 打开ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 打开ToolStripMenuItem.Click
        OpenFileDialog1.ShowDialog()
        Dim path As String
        Dim content As String
        path = OpenFileDialog1.FileName
        content = My.Computer.FileSystem.ReadAllText(path)
        RichTextBox1.Text = content

    End Sub

    Private Sub 新建ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 新建ToolStripMenuItem.Click
        save()
        Application.Restart()