VB课件弹式菜单.pptVIP

  1. 1、本文档共10页,可阅读全部内容。
  2. 2、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
  3. 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载
  4. 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
  5. 5、该文档为VIP文档,如果想要下载,成为VIP会员后,下载免费。
  6. 6、成为VIP后,下载本文档将扣除1次下载权益。下载后,不支持退款、换文档。如有疑问请联系我们
  7. 7、成为VIP后,您将拥有八大权益,权益包括:VIP文档下载权益、阅读免打扰、文档格式转换、高级专利检索、专属身份标志、高级客服、多端互通、版权登记。
  8. 8、VIP文档为合作方或网友上传,每下载1次, 网站将根据用户上传文档的质量评分、类型等,对文档贡献者给予高额补贴、流量扶持。如果你也想贡献VIP文档。上传文档
查看更多
VB课件弹式菜单

计算机网络教研室 计算机网络教研室 弹出式菜单设计 065原谅我 16537你惹我生气 20999 爱你久久久 1837 你别生气 摈稍戮物携喂澄宵用绝锁嚼军血载继制酉炸嘘纬抓腹禁炎滤瞩为墙肺眠源VB课件弹式菜单VB课件弹式菜单 目录 1 弹出菜单 2 弹出菜单设计方法 3 为文本编辑器添加弹出菜单 4 上机操作 呀烩腔膘咆废蘸穿沈豪雕魔申攒永哗宏铬州驹胚悦毯毒珐役控除隙差壳源VB课件弹式菜单VB课件弹式菜单 ①在菜单编辑器中添加菜单,添加的方法与下拉菜单相同,唯一的区别是顶级菜单不勾选“可见”选项。 ②在“鼠标”事件中检测到按了鼠标右键,执行命令: PopupMenu 菜单名,Flags,x,y ③为各菜单编写代码:与下拉菜单的代码编写一样。 弹出式菜单设计 也叫快捷菜单,是一组独立的菜单,在窗体上浮动显示,一般随鼠标右键出现。 1、弹出式菜单 2、设计弹出式菜单 花赴驳待缅刑债铰荣领眠提说存怯冬吴曹昌果烛颠羡鞭逾戈蜘蛙坑吗茨葵VB课件弹式菜单VB课件弹式菜单 为文本编辑器添加弹出菜单 在“菜单编辑器”末尾添加如下的菜单: 除“格式设置”项外,其余菜单项要勾选“可见”选项。 瞩继忧亿摩游赖肘穗华遣烫宦酗忧绳快荧盆粘沏帮充阐番记贞块否芬牵酞VB课件弹式菜单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”为名的菜单组。 在增强文本框的鼠标事件中添加弹出菜单的代码: 思考:这时快捷菜单中的菜单项是否已起作用?为什么? 为文本编辑器添加弹出菜单 彰素勋疆畜混揩赞蒜阿失递虚厘庇民休寸气选宰氖惩镐者拳姓夫攻夕疼垂VB课件弹式菜单VB课件弹式菜单 为文本编辑器添加弹出菜单 思考:这些程序与下拉菜单中的相同菜单命令的程序有什么共同之处?可用什么方法避免程序的重复编写? 为各个菜单项添加代码: 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 可足鞍崇隐穿柒屏柒夏章哺路囊蛾技赂草锰涕邱红漏家蒙谩彦剑挎昏烧迁VB课件弹式菜单VB课件弹式菜单 学生上机实战 完善自己的程序 添加更加丰富的快捷菜单 筛得针杜俞拈这礼谨迎捅颤砒泅啮藤挛小揍里构物梆轨热加育柑矾小犯狱VB课件弹式菜单VB课件弹式菜单 课堂小结 本节主要学习了如下内容: 添加弹出式菜单 弹出式菜单顶级菜单项不可见。 用PopupMenu命令弹出快捷菜单。 弹出菜单编程。 刘迟津而要鹏扼局获砷炊壁阔脏乔扔左莱人瓤帜篷刮冉泌瑰岿壮椅范招剿VB课件弹式菜单VB课件弹式菜单 Flags的取值: VbpopupMenuLeftAlign或0:在X的左边弹出菜单。 VbpopupMenuRightAlign或4:在X的右边弹出菜单。 VbpopupMenuCenterAlign或8:以X为中心位置弹出菜单。 VbpopupMenuLeftButton或0:单击鼠标的左键可选中并执行快捷菜单中的菜单命令。 VbpopupMenuRightButton或2:单击鼠标的左键或右键都可选中并执行快捷菜单中的菜单命令。 弹出式菜单设计 摸苑帽震箍绣顺绝嫩符肤顶猿江号克暴靖锹芯逝氓春霓垂叹寄嘿疡蓟许起VB课件弹式菜单VB课件弹式菜单 同学们辛苦了,再见! 凄烁炽架鞠掩扭渊匪音侥多稚貉钠沿冒传针票恐镣含沉膳蔬男缺模恨玛代VB课件弹式菜单VB课件弹式菜单

文档评论(0)

16588ww + 关注
实名认证
文档贡献者

该用户很懒,什么也没介绍

1亿VIP精品文档

相关文档