VB课件弹出式菜单

《VB课件弹出式菜单》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、弹出式菜单设计065原谅我16537你惹我生气20999爱你久久久1837你别生气目录1弹出菜单2弹出菜单设计方法3为文本编辑器添加弹出菜单4上机操作①在菜单编辑器中添加菜单，添加的方法与下拉菜单相同，唯一的区别是顶级菜单不勾选“可见”选项。②在“鼠标”事件中检测到按了鼠标右键，执行命令：PopupMenu菜单名，Flags，x，y③为各菜单编写代码：与下拉菜单的代码编写一样。弹出式菜单设计也叫快捷菜单，是一组独立的菜单，在窗体上浮动显示，一般随鼠标右键出现。1、弹出式菜单2、设计弹出式菜单为文本编辑器添加弹出菜单在“菜单编辑器”末尾添加如下的菜单：除“格式设置”项

2、外，其余菜单项要勾选“可见”选项。PrivateSubRTB_MouseDown(ButtonAsInteger,ShiftAsInteger,xAsSingle,yAsSingle)IfButton=2ThenPopupMenuTmenu,vbPopupMenuLeftAlign,x,yEndIfEndSub这段程序若被激发，则会弹出以“Tmenu”为名的菜单组。在增强文本框的鼠标事件中添加弹出菜单的代码：思考：这时快捷菜单中的菜单项是否已起作用？为什么？为文本编辑器添加弹出菜单为文本编辑器添加弹出菜单思考：这些程序与下拉菜单中的相同菜单命令的程序有什么共同之处？

3、可用什么方法避免程序的重复编写？为各个菜单项添加代码：PrivateSubT4_Click()'全选RTB.SelStart=0RTB.SelLength=Len(RTB.Text)EndSubPrivateSubT1_Click()'复制Clipboard.SetTextRTB.SelTextEndSubPrivateSubT2_Click()'剪切Clipboard.SetTextRTB.SelTextRTB.SelText=""EndSubPrivateSubT3_Click()'粘贴RTB.SelText=Clipboard.GetTextEndSub学生上

4、机实战完善自己的程序添加更加丰富的快捷菜单课堂小结本节主要学习了如下内容：添加弹出式菜单弹出式菜单顶级菜单项不可见。用PopupMenu命令弹出快捷菜单。弹出菜单编程。Flags的取值：VbpopupMenuLeftAlign或0：在X的左边弹出菜单。VbpopupMenuRightAlign或4：在X的右边弹出菜单。VbpopupMenuCenterAlign或8：以X为中心位置弹出菜单。VbpopupMenuLeftButton或0：单击鼠标的左键可选中并执行快捷菜单中的菜单命令。VbpopupMenuRightButton或2：单击鼠标的左键或右键都可选中并执

5、行快捷菜单中的菜单命令。弹出式菜单设计同学们辛苦了，再见！