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

VB2010(19)_菜单工具栏上下文菜单相关推荐

【Android基础知识】选项菜单、上下文菜单、子菜单的使用
Android菜单类型菜单是为了增加更多的功能,不占用屏幕的空间.Android中菜单类型有三类,选项菜单(OptionMenu).上下文菜单(ContextMenu).子菜单(SubMenu),下 ...
android之三大菜单（子菜单，选项菜单，上下文菜单）
今天班级同学聚餐,真的是喝的有点多,本来计划今天要完成这篇博客.有点喝多了,写的不好请见谅.想仔细了解的话,看官网说的,是中文的. https://developer.android.com/guid ...
菜单工具栏wxPython菜单与工具栏基础示例
这两天一直在学习菜单工具栏之类的问题,上午正好有机会和大家讨论一下. 1.基本的api介绍 Package wx :: Class Menu Type Menu Method Summary Menu ...
Android开发——菜单(Menu)-——上下文菜单（ContextMenu）、弹出菜单（PopupMenu）
上下文菜单(ContextMenu) 长按某个view不放,就会在屏幕中间弹出ContextMenu. 一个Activity中间只可能有一个OptionMenu,但一个Activity中间有多个Vie ...
Android Menu,OptionMenu选项菜单,ContextMenu上下文菜单,Contextual ActionMode,PopUp Menu,PopU pWi ndow
Android Menu 一.Opti onMenu选项菜单: (一).简介: 1.A ndroi d应用中的菜单默认是隐藏的,只有当用户点击手机上的ME NU 键,系统才会显示菜单.这种菜单叫做选项 ...
Menu:选项菜单，上下文菜单，弹出式菜单
Menu的分类 1.选项菜单(OptionMenu) 选项菜单是一个应用的主菜单项,用于放置对应用产生全局影响的操作. 操作栏中菜单的建立 //创建OptionMenu public boolean ...
选项菜单_上下文菜单_子菜单_图标菜单_自定义菜单_联系人标记弹出菜单
菜单控件<Menu > 选项菜单(Option Menu) 单击Menu实体按钮弹出,android中把它叫做option menu 上下文菜单(ContextMenu 是Menu的子接口 ...
上下文菜单Context Menu
Android的上下文菜单在概念上和PC软件的右键菜单类似.当一个视图注册到一个上下文菜单时,执行一个在该对象上的"长按"(按住不动差不多两秒钟)动作,将出现一个提供相关功能的浮动 ...
html菜单不动属性,html5规定元素的上下文菜单属性contextmenu
实例规定元素的上下文菜单.上下文菜单会在用户右键点击元素时出现: 浏览器支持 Firefox 目前只有 Firefox 支持 contextmenu 属性. 定义和用法 contextmenu 属 ...

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

VB2010(19)_菜单工具栏上下文菜单相关推荐

最新文章

热门文章