VB2010(19)_菜单工具栏上下文菜单

Public Class Menus
    '窗体载入
    Private Sub Menus_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        tspMain.Visible = True
    End Sub

    '菜单新建
    Private Sub 新建NToolStripMenuItem_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles 新建NToolStripMenuItem.Click
        TextBox1.Text = String.Empty
        TextBox2.Text = String.Empty
        TextBox1.Focus()
    End Sub

    '菜单退出
    Private Sub 退出XToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 退出XToolStripMenuItem.Click
        Me.Close()
    End Sub

    '菜单-视图-toolbar-Main
    Private Sub MainToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MainToolStripMenuItem.Click
        '主工具栏开关
        If MainToolStripMenuItem.Checked Then
            tspMain.Visible = True
        Else
            tspMain.Visible = False
        End If
    End Sub

    '菜单-视图-toolbar-formatting
    Private Sub FormattingToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles FormattingToolStripMenuItem.Click
        'fomatting工具栏开关
        If FormattingToolStripMenuItem.Checked Then
            tspFormatting.Visible = True
        Else
            tspFormatting.Visible = False
        End If

    End Sub

    '菜单-编辑-撤消
    Private Sub 撤消UToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 撤消UToolStripMenuItem.Click
        If TypeOf Me.ActiveControl Is TextBox Then
            CType(Me.ActiveControl, TextBox).Undo()
        End If
    End Sub

    '菜单-编辑-剪切
    Private Sub 剪切TToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 剪切TToolStripMenuItem.Click
        If TypeOf Me.ActiveControl Is TextBox Then
            CType(Me.ActiveControl, TextBox).Cut()
        End If
    End Sub

    '菜单-编辑-复制
    Private Sub 复制CToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 复制CToolStripMenuItem.Click
        If TypeOf Me.ActiveControl Is TextBox Then
            CType(Me.ActiveControl, TextBox).Copy()
        End If
    End Sub

    '菜单-编辑-粘贴
    Private Sub 粘贴PToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 粘贴PToolStripMenuItem.Click
        If TypeOf Me.ActiveControl Is TextBox Then
            CType(Me.ActiveControl, TextBox).Paste()
        End If
    End Sub

    '菜单-编辑-全选
    Private Sub 全选AToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 全选AToolStripMenuItem.Click
        If TypeOf Me.ActiveControl Is TextBox Then
            CType(Me.ActiveControl, TextBox).SelectAll()
        End If
    End Sub

    '菜单-编辑-重复
    Private Sub 重复RToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 重复RToolStripMenuItem.Click
        If TypeOf Me.ActiveControl Is TextBox Then
            CType(Me.ActiveControl, TextBox).ClearUndo()
        End If
    End Sub

    '工具栏-新建
    Private Sub 新建NToolStripButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 新建NToolStripButton.Click
        新建NToolStripMenuItem_Click(sender, e)
    End Sub

    '工具栏-剪切
    Private Sub 剪切UToolStripButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 剪切UToolStripButton.Click
        剪切TToolStripMenuItem_Click(sender, e)
    End Sub

    '工具栏-复制
    Private Sub 复制CToolStripButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 复制CToolStripButton.Click
        复制CToolStripMenuItem_Click(sender, e)
    End Sub
   
    '工具栏-粘贴
    Private Sub 粘贴PToolStripButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 粘贴PToolStripButton.Click
        粘贴PToolStripMenuItem_Click(sender, e)
    End Sub

    '上下文菜单-撤消
    Private Sub ContextUndoToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ContextUndoToolStripMenuItem.Click
        撤消UToolStripMenuItem_Click(sender, e)
    End Sub

    '上下文菜单-复制
    Private Sub ContextCopyToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ContextCopyToolStripMenuItem.Click
        复制CToolStripMenuItem_Click(sender, e)
    End Sub

    '上下文菜单-粘贴
    Private Sub ContextPasteToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ContextPasteToolStripMenuItem.Click
        粘贴PToolStripMenuItem_Click(sender, e)
    End Sub

    '上下文菜单-全选
    Private Sub ContextSelectAllToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ContextSelectAllToolStripMenuItem.Click
        全选AToolStripMenuItem_Click(sender, e)
    End Sub

End Class