VB课件弹出式菜单

为文本编辑器添加弹出菜单
在“菜单编辑器”末尾添加如下的菜 单：
除“格式设置”项外， 其余菜单项要勾选“可 见”选项。
为文本编辑器添加弹出菜单
在增强文本框的鼠标事件中添加弹出菜单的代码：
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 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
Private Sub T4_Click() '全选 RTB.SelStart = 0 RTB.SelLength = Len(RTB.Text) End Sub
思考：这些程序与下拉菜单Fra Baidu bibliotek的相同菜单命令的程序有什 么共同之处？可用什么方法避免程序的重复编写？
学生上机实战
完善自己的程序 添加更加丰富的快捷菜单
课堂小结 本节主要学习了如下内容：
添加弹出式菜单 弹出式菜单顶级菜单项不可见。
用PopupMenu命令弹出快捷菜单。
弹出菜单编程。
弹出式菜单设计
Flags的取值： VbpopupMenuLeftAlign或0：在X的左边弹出菜单。 VbpopupMenuRightAlign或4：在X的右边弹出菜单。 VbpopupMenuCenterAlign或8：以X为中心位置弹出菜 单。 VbpopupMenuLeftButton或0：单击鼠标的左键可选中 并执行快捷菜单中的菜单命令。
065原谅我 16537你惹我生气 20999 爱你久久久 1837 你别生气
弹出式菜单设计
目录
1
2 3
弹出菜单 弹出菜单设计方法 为文本编辑器添加弹出菜单
4
上机操作
弹出式菜单设计
1、弹出式菜单 也叫快捷菜单，是一组独立的菜单，在窗体上 浮动显示，一般随鼠标右键出现。 2、设计弹出式菜单 ①在菜单编辑器中添加菜单，添加的方法与下拉菜单相 同，唯一的区别是顶级菜单不勾选“可见”选项。 ②在“鼠标”事件中检测到按了鼠标右键，执行命令： PopupMenu 菜单名，Flags，x，y ③为各菜单编写代码：与下拉菜单的代码编写一样。
VbpopupMenuRightButton或2：单击鼠标的左键或右 键都可选中并执行快捷菜单中的菜单命令。
同学们辛苦了，再见！