form1.vb

记事本记事本记事本记事本记事本记事本记事本

Public Class Form1

    Private Sub 打开ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 打开ToolStripMenuItem.Click
        Dim res As DialogResult
        OFD1.InitialDirectory = "D:\"
        OFD1.Title = "打开文件"
        OFD1.Filter = "所有文本文件(*.txt)|*.txt"
        OFD1.FilterIndex = 1
        OFD1.FileName = ""
        res = OFD1.ShowDialog()

    End Sub

    Private Sub 退出ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 退出ToolStripMenuItem.Click
        End
    End Sub

    Private Sub 新建ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 新建ToolStripMenuItem.Click
        TextBox1.Text = ""
    End Sub

    Private Sub 保存ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 保存ToolStripMenuItem.Click
        Dim re As DialogResult
        SFD1.InitialDirectory = "D:\"
        SFD1.Title = "保存文件"
        SFD1.Filter = "所有文本文件(*.txt)|*.txt"
        SFD1.FilterIndex = 1
        SFD1.FileName = ""
        re = SFD1.ShowDialog()
    End Sub

    Private Sub 字体ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 字体ToolStripMenuItem.Click
        If FD1.ShowDialog() = DialogResult.OK Then
            TextBox1.Font = FD1.Font
        End If
    End Sub

    Private Sub 颜色ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 颜色ToolStripMenuItem.Click
        If CD1.ShowDialog() = DialogResult.OK Then
            TextBox1.ForeColor = CD1.Color
        End If
    End Sub

    Private Sub 剪切ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 剪切ToolStripMenuItem.Click
        TextBox1.Cut()
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub

    Private Sub 复制ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 复制ToolStripMenuItem.Click
        TextBox1.Copy()
    End Sub

    Private Sub 粘贴ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 粘贴ToolStripMenuItem.Click
        TextBox1.Paste()
    End Sub

    Private Sub 查找ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 查找ToolStripMenuItem.Click
        Dim str1, str2 As String
        Dim n As Integer
        str2 = InputBox("请输入要查找的字符：")
        For n = 1 To Len(TextBox1.Text)
            str1 = Mid(TextBox1.Text, n, 1)
            If str2 = str1 Then
                MsgBox("找到啦！")
                Exit For
            End If
        Next
        If n = Len(TextBox1.Text) + 1 Then
            MsgBox("没有你要找的字符！")
        End If
    End Sub

    Private Sub 替换ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 替换ToolStripMenuItem.Click
        Dim a, b As String
        a = InputBox("要替换的内容：")
        b = InputBox("替换为：")
        TextBox1.Text = Replace(TextBox1.Text, a, b)

    End Sub
End Class