VB课件弹出式菜单.ppt

计算机网络教研室 计算机网络教研室 弹出式菜单设计 065原谅我 16537你惹我生气 20999 爱你久久久 1837 你别生气 目录 1 弹出菜单 2 弹出菜单设计方法 3 为文本编辑器添加弹出菜单 4 上机操作 ①在菜单编辑器中添加菜单，添加的方法与下拉菜单相同，唯一的区别是顶级菜单不勾选“可见”选项。 ②在“鼠标”事件中检测到按了鼠标右键，执行命令： PopupMenu 菜单名，Flags，x，y ③为各菜单编写代码：与下拉菜单的代码编写一样。 弹出式菜单设计 也叫快捷菜单，是一组独立的菜单，在窗体上浮动显示，一般随鼠标右键出现。 1、弹出式菜单 2、设计弹出式菜单 为文本编辑器添加弹出菜单 在“菜单编辑器”末尾添加如下的菜单： 除“格式设置”项外，其余菜单项要勾选“可见”选项。 Private Sub RTB_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single) If Button = 2 Then PopupMenu Tmenu, vbPopupMenuLeftAlign, x, y End If End Sub 这段程序若被激发，则会弹出以“Tmenu”为名的菜单组。 在增强文本框的鼠标事件中添加弹出菜单的代码： 思考：这时快捷菜单中的菜单项是否已起作用？为什么？ 为文本编辑器添加弹出菜单 为文本编辑器添加弹出菜单 思考：这些程序与下拉菜单中的相同菜单命令的程序有什么共同之处？可用什么方法避免程序的重复编写？ 为各个菜单项添加代码： Private Sub T4_Click() 全选 RTB.SelStart = 0 RTB.SelLength = Len(RTB.Text) End Sub Private Sub T1_Click() 复制 Clipboard.SetText RTB.SelText End Sub Private Sub T2_Click() 剪切 Clipboard.SetText RTB.SelText RTB.SelText = End Sub Private Sub T3_Click() 粘贴 RTB.SelText = Clipboard.GetText End Sub 学生上机实战 完善自己的程序 添加更加丰富的快捷菜单 课堂小结 本节主要学习了如下内容： 添加弹出式菜单 弹出式菜单顶级菜单项不可见。 用PopupMenu命令弹出快捷菜单。 弹出菜单编程。 Flags的取值： VbpopupMenuLeftAlign或0：在X的左边弹出菜单。 VbpopupMenuRightAlign或4：在X的右边弹出菜单。 VbpopupMenuCenterAlign或8：以X为中心位置弹出菜单。 VbpopupMenuLeftButton或0：单击鼠标的左键可选中并执行快捷菜单中的菜单命令。 VbpopupMenuRightButton或2：单击鼠标的左键或右键都可选中并执行快捷菜单中的菜单命令。 弹出式菜单设计 同学们辛苦了，再见！ 计算机网络教研室 计算机网络教研室