VB.Net 2008 记事本代码

以下代码由PHP站长网 52php.cn收集自互联网

现在PHP站长网小编把它分享给大家，仅供参考

Public Class Form1
     Dim a As Integer

     Sub open()
         OpenFileDialog1.FileName = ""
         OpenFileDialog1.ShowDialog()
         If OpenFileDialog1.FileName <> "" Then
             RichTextBox1.LoadFile(OpenFileDialog1.FileName,RichTextBoxStreamType.PlainText)
         End If
     End Sub

     Sub save()
         SaveFileDialog1.ShowDialog()
         If SaveFileDialog1.FileName <> "" Then
             RichTextBox1.SaveFile(SaveFileDialog1.FileName,RichTextBoxStreamType.PlainText)
         End If
     End Sub

     Private Sub 新建ToolStripMenuItem_Click(ByVal sender As System.Object,ByVal e As System.EventArgs) Handles 新建ToolStripMenuItem.Click
         If RichTextBox1.TextLength > 0 Then
             a = MsgBox("是否保存文档?",3,"提示")
             If a = 6 Then
                 save()
                 RichTextBox1.Clear()
             End If
             If a = 7 Then RichTextBox1.Clear()
         End If
         If RichTextBox1.TextLength = 0 Then RichTextBox1.Clear()
     End Sub

     Private Sub 打开ToolStripMenuItem_Click(ByVal sender As System.Object,ByVal e As System.EventArgs) Handles 打开ToolStripMenuItem.Click
         If RichTextBox1.TextLength > 0 Then
             a = MsgBox("是否保存文档?","提示")
             If a = 6 Then
                 save()
                 open()
             End If
             If a = 7 Then open()
         End If
         If RichTextBox1.TextLength = 0 Then open()
     End Sub

     Private Sub 保存ToolStripMenuItem_Click(ByVal sender As System.Object,ByVal e As System.EventArgs) Handles 保存ToolStripMenuItem.Click
         If RichTextBox1.TextLength > 0 Then
             save()
         End If
     End Sub

     Private Sub 退出ToolStripMenuItem_Click(ByVal sender As System.Object,ByVal e As System.EventArgs) Handles 退出ToolStripMenuItem.Click
         If RichTextBox1.TextLength > 0 Then
             a = MsgBox("是否保存文档?","提示")
             If a = 6 Then
                 save()
                 Close()
             End If
             If a = 7 Then Close()
         End If
         If RichTextBox1.TextLength = 0 Then Close()
     End Sub

     Private Sub 撤消ToolStripMenuItem_Click(ByVal sender As System.Object,ByVal e As System.EventArgs) Handles 撤消ToolStripMenuItem.Click
         RichTextBox1.Undo()
     End Sub

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

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

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

     Private Sub 删除ToolStripMenuItem_Click(ByVal sender As System.Object,ByVal e As System.EventArgs) Handles 删除ToolStripMenuItem.Click
         RichTextBox1.Cut()
     End Sub

     Private Sub 查找ToolStripMenuItem_Click(ByVal sender As System.Object,ByVal e As System.EventArgs) Handles 查找ToolStripMenuItem.Click
         Dim a As String
         a = InputBox("请输入要查找的字、词：","查找内容",)
         RichTextBox1.Find(a)
     End Sub

     Private Sub 全选ToolStripMenuItem_Click(ByVal sender As System.Object,ByVal e As System.EventArgs) Handles 全选ToolStripMenuItem.Click
         RichTextBox1.SelectAll()
     End Sub

     Private Sub 自动换行ToolStripMenuItem_Click(ByVal sender As System.Object,ByVal e As System.EventArgs) Handles 自动换行ToolStripMenuItem.Click
         自动换行ToolStripMenuItem.Checked = Not 自动换行ToolStripMenuItem.Checked
         RichTextBox1.WordWrap = Not RichTextBox1.WordWrap
     End Sub

     Private Sub 字体ToolStripMenuItem_Click(ByVal sender As System.Object,ByVal e As System.EventArgs) Handles 字体ToolStripMenuItem.Click
         FontDialog1.ShowDialog()
         RichTextBox1.SelectionFont = FontDialog1.Font
     End Sub

     Private Sub 帮助主题ToolStripMenuItem_Click(ByVal sender As System.Object,ByVal e As System.EventArgs) Handles 帮助主题ToolStripMenuItem.Click
         MsgBox("没有做帮主文档，如确实需要，请与作者联系。",vbOKOnly," 错误信息")
     End Sub

     Private Sub 关于ToolStripMenuItem_Click(ByVal sender As System.Object,ByVal e As System.EventArgs) Handles 关于ToolStripMenuItem.Click
         MsgBox("该记事本由Sxgkwei创作"," 关于")
     End Sub

     Private Sub 剪贴ToolStripMenuItem1_Click(ByVal sender As System.Object,ByVal e As System.EventArgs) Handles 剪贴ToolStripMenuItem1.Click
         RichTextBox1.Cut()
     End Sub

     Private Sub 复制ToolStripMenuItem1_Click(ByVal sender As System.Object,ByVal e As System.EventArgs) Handles 复制ToolStripMenuItem1.Click
         RichTextBox1.Copy()
     End Sub

     Private Sub 粘贴ToolStripMenuItem1_Click(ByVal sender As System.Object,ByVal e As System.EventArgs) Handles 粘贴ToolStripMenuItem1.Click
         RichTextBox1.Paste()
     End Sub

     Private Sub 删除ToolStripMenuItem1_Click(ByVal sender As System.Object,ByVal e As System.EventArgs) Handles 删除ToolStripMenuItem1.Click
         RichTextBox1.Cut()
     End Sub

     Private Sub 全选ToolStripMenuItem1_Click(ByVal sender As System.Object,ByVal e As System.EventArgs) Handles 全选ToolStripMenuItem1.Click
         RichTextBox1.SelectAll()
     End Sub
End Class

以上内容由PHP站长网【52php.cn】收集整理供大家参考研究

如果以上内容对您有帮助，欢迎收藏、点赞、推荐、分享。

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!