说三道四技术文摘-感悟人生的经典句子
说三道四 > 文档快照

VB实现窗口的弹出式菜单

HTML文档下载 WORD文档下载 PDF文档下载
VB实现窗口的弹出式菜单

  在Windows95、Windows98或NT的风格中,有按动鼠标器右键弹出下拉菜单的操作,在VB执行环境下,有一些控件本身具有弹下拉菜单的功能,如TexTbox控件等,但大多数编辑类控件以及窗体本身却没有此功能,要在窗口中任意位置实现PopUpMenu(弹出式菜单),可借助VB的菜单工具来实现。
  首先,打开VB的“工具”菜单条,利用“菜单编辑器”为窗体生成一个菜单:
  标题(Caption) 菜单条名(Name)
  编辑 menuEdit
  ……复制 mnuCopy
  ……剪切 munCut
  其次,将生成的menuEdit菜单设置为不可视。
  Private Sub Form_Load()
  Me.menuEdit.Visibe=False
  ′menuEdit菜单设置为不可视
  End Sub
  然后,利用MouseDown事件实现任意位置弹出PopUpMenu,如下例:
  本例中以RichTexBox控件为例,在其上面实现复制、剪切功能。
  1.复制功能的实现。
  Private Sub MnuCopy_Click()
  Clipboar.Clear′将剪贴板清空
  ′将RichTexBox控件上选择上的内容复制到剪贴板
  Clipboard.SetTextRichTexBox1.SelText
  End Sub
  2.剪切功能的实现。
  Private Sub MnuCut_Click()
  Clipboard.Clear ′将剪贴板清空
  ′将RichTextBox控件上选择了的内容复制到剪贴板
  Clipboard.SetTextRichBox1.SelText
  ′将RichTexBox控件上选择了的内容删除
  SendKeys″{DELETE}″,True
  End Sub
  3.在RichTexBox控件的MouseDown事件中实现任意位置弹出PopUPMenu。
  OPrivate Sub RichTexBox1_MouseDown(Button As Integer,Shift As Integer,x As Single,Y As Single)
  Dim MnuFile AS Menu ′声明一个菜单类型的变量
  Set munFile=Me.MenuEdit ′将MenuEdit赋给菜单变量
  if Button=2 Then ′判断是否按动鼠标器右键
  ′判断RichTexBox控件上选择了的内容是否存在,决定复制、剪切菜单条是否可操作。
  If Len(RichTexBox.Text)=0 Or Len(RichTexBox.SelText)=0 Then
  mnuCopy.Enabled=Flase ′复制菜单条不可操作。
  nmuCut.Enabled=False ′剪切菜单条不可操作。
  nmuCopy.Enabled=True ′复制菜单条可操作。
  nmuCut.Enabled=True ′剪切菜单条可操作。
  End IF
  PopupMenu mnuFile ′弹出PopUpMenu。
  End If
  End Sub
  这样,在VB执行环境中,操作窗体上的RichTexBox控件,按动鼠标器右键就可弹出下拉菜单,实现复制、剪切功能。
(宁夏 王晓东)
MDCC2015中国移动开发者大会启动 七场专题技术论坛公布 【CTO讲堂】如何构建高性能网络服务平台及生态系统? mysql备份数据库批处理 《近匠》Remix周哲,让Android运行在“电脑”上! TIOBE 2015年8月编程语言排行榜:Java第一,Objective-C跌出前五 昨天晚上做了一个有关Borland C++ Builder x 的梦(是真的梦,不是想法!)。 什么是“呼吸现象”啊? 关于DBGRID的问题,对不起,我没有分,请大家帮帮我! 关于一个面试的问题? VB里有一个图表的控件,如果你有关于它的好例子,能给我发一个吗,本人感激不尽 谁知道用什么软件可以监控IE向外发出的信息? SQL求救,求遗漏数字。急啊 有一组树的数据,在sybase怎么写sql查询出父数据和子数据?谢谢 VB里有一个图表的控件,如果你有关于它的好例子,能给我发一个吗,本人感激不尽 毁树容易栽树难 《毁树容易载树难》这篇文言文说明了 学校把350本图书按3:2的比分给甲乙两个班,甲乙 甲、乙两个学校的图书馆共有故事书170本,后来甲校 六年级同学参加植树活动,男生2人栽1棵,女生3人栽 六年级同学参加植树活动,男生2人栽一颗,女生3人栽 五 年级二班50名同学参加植树活动.男生每人栽三棵 市政公司为绿化一段沿江风化带,计划购买甲.乙两种树 某市政公司为绿化一段沿江风光带,计划买甲,乙两种树 市政公司为绿化一段沿江风光带,计划购买甲、乙两种树 汤加附近海域发生6.4级地震斯诺登密会德议员 称愿为NSA窃听事伊拉克总理会晤奥巴马 望美售武对抗“王毅夫人发起扶贫义卖 筹款用于解决云王毅夫妇掏腰包助阵“国际义卖”(图)申鑫最大的敌人是自己张召忠:中国卫星可观测到“零下700马总理:客机失联后折返广州发生一起大量人群逃散事件 系小偷菲戈抵沪组建足球学院食王传冷少的抢婚行动:拒嫁妈妈偏偏赖上你:租来的老公扬帆大明武魂武功山旅游旅顺旅游南澳岛旅游镇远旅游福州旅游
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘