VB中弹出式菜单的制作

VB中弹出式菜单的制作 中弹出式菜单的制作VB 2012-07-19############2012-07-19#####2#0#1#2-07-19######## 陈 涵 ()南京化工职业技术学院 信息技术系 ,江苏 南京 210048 [摘 要 ] 弹出式菜单是用户通过点击鼠标左键或右键而弹出的菜单 ,绝大部分应用程序都具有此项功能 。文章 介绍了弹出式菜单和一般下拉菜单的区别 、弹出式菜单的特点 ,并具体阐述了利用 VB 语言制作出一个弹出式菜单的过 程 。 [关键词 ] VB;菜单 ;窗体 ;过程 ( ) [中图分类号 ] TP311. 1 [文献标识码 ] A [文章编号 ] 1008 - 4657 2007 03 - 0028 - 040 引言 在 VB 中 ,我们可以通过菜单编辑器 设计 领导形象设计圆作业设计ao工艺污水处理厂设计附属工程施工组织设计清扫机器人结构设计 出菜单 ,但通常设计出的都是下拉式菜单 。下拉式菜单是 用户在选择顶端菜单条中拉出的菜单 ,而弹出式菜单则是在程序界面的一定区域内点击鼠标键后出现 的菜单 。弹出式菜单对我们来说并不陌生 ,因为它大量的出现在 W indow s程序中 。用户在程序的桌面 () 上点击鼠标键时 通常是右键 ,它会出现 ,我们通常又称它为快捷菜单 ,在某些情况下 ,弹出式菜单会 让我们的操作变得更加地简洁和高效 ,使用起来也更加得心应手 。弹出式菜单多用于实现系统的附加 或增强功能 ,其中的内容可以随着点击鼠标键的位置不同而不同 。由于弹出的菜单占据了应用程序的 一定区域 ,所以在编辑时应尽量缩短菜单中的文字 。 在 VB 中 ,弹出式菜单的实现要用到下拉式菜单设计的技术和 Pop upM enu 方法 快递客服问题件处理详细方法山木方法pdf计算方法pdf华与华方法下载八字理论方法下载 。具体的做法是 :首 先在菜单设计器中设计好一个菜单 ,再把菜单的 V isib le 属性改为 Fa lse,最后再用 Pop upM enu 方法调 用 。要注意的是 ,这个菜单不能有快捷键 ,而且其子菜单必须至少有一个 。下面便以 R ichTextBox 控件 为例 ,通过模拟实际操作中“右击 ”鼠标出现的“复制 、剪切 、粘贴 ”等一些常用快捷菜单 ,具体介绍弹出 式菜单的制作 。 1 制作步骤 ( )1 运行 VB ,建立一个新的窗体 ,窗体的 cap tion 属性为 :弹出式菜单实例 。 ( )2 单击常用工具栏上的“菜单编辑器 ”,制作一个菜单 ,菜单的主要属性设置如下 : 标 题 快递公司问题件快递公司问题件货款处理关于圆的周长面积重点题型关于解方程组的题及答案关于南海问题 名 称 编辑 m nued it ()复制 m nucop y 子菜单 ()剪切 m nucu t 子菜单 ()粘帖 m nup a ste 子菜单 ()删除 m nude le te 子菜单 全选 ()m nu se lec ta ll 子菜单 [收稿日期 ] 2006 -09-06 2012-07-19#############2012-07-19#####2#0#1#2-07-19######## 0 ”,单击“确定 ”。 ( )4 在窗体中添加一个 R ich Textbox和一个按钮 。 R ich Textbox控件的名称为“R ich Textbox1 ”; 按 钮的 cap tion 属性值为“结束 ”。 ( ) 5 到此为止 ,窗体上的各控件及其相关属性全部设置完毕 ,接下来进入代码设计阶段 。 ?进入 VB 代码编辑窗口 ,在“通用 ———声明 ”中输入 : d im st a s string 这是定义一个字符型变量 ,用来存储“复制或剪切 ”下来的文字 ,功能同 W indow s中的剪贴板 。 ?窗体加载事件 ( )P riva te Sub Fo rm _Load M e. m nued it. V isib le = Fa lse End Sub 此“过程 ”保证了程序刚运行时 ,设计好的“菜单 ”不可见 。出现在窗体中间的控件便是 R ich textbox 控件了 ,虽然 ,它和 textbox 控件很相似 ,但它的功能却比 textbox功能丰富的多 ,而且有一点非常重要 : ()就是 textbox控件本身具有弹出下拉菜单 弹出式菜单 的功能 ,而 R ich textbox没有 ,所以我们正在给其 完善这项功能 。 ?“复制 ”功能的实现 ( ) P riva te Sub m nucop y_C lick st = R ichTextBox1. Se lText End Sub 很简单 ,就是将 R ich Textbox控件中选定的文字赋值给变量 st 。 ?“剪切 ”功能的实现 ( ) P riva te Sub m nucu t_C lick st = R ichTextBox1. Se lText R ichTextBox1. Se lText = End Sub 将 R ichTextBox控件中选定的内容赋值给变量 st ,同时将选定的内容清空 ,以达到“剪切 ”的效果 。 ?“粘贴 ”功能的实现 ( ) P riva te Sub m nup a ste_C lick R ichTextBox1. Se lText = st End Sub ()()将变量 st中的文字 为复制或剪切下的内容 重新赋值 粘贴 给 R ichTextBox中选定的文字 。若 R ichTextBox中没有选定的文字 ,则粘贴到光标所在处 。 ?“删除 ”功能的实现 ( ) P riva te Sub m nude le te_C lick R ichTextBox1. Se lText = “” End Sub 将 R ichTextBox中选定的文字清空 。 ?“全选 ”功能的实现 ( ) P riva te Sub m nu se lec ta ll_C lick R ichTextBox1. Se lSta rt = 0 ( )R ichTextBox1. Se lL ength = L en R ichTextBox1. Text End Sub ?在 R ichTexBox控件的 Mou seDown事件中采用 PopU PM enu方法实现任意位置弹出下拉菜单的功 能 。 ()P riva te Sub R ichTextBox1 _Mou seDown B u tton A s In tege r, Sh ift A s In tege r, x A s Single, y A s Single D im M nuF ile A s M enu ’声明一个菜单类型的变量 Se t M nuF ile = m nued it ’将 M enuEd it赋给菜单变量 ’判断是否按动鼠标器右键If B u tton = 2 Then ( ) ( ) If L en R ichTextBox1. Text= 0 O r L en R ichTextBox1. Se lText= 0 Then If st < > “”Then ’复制菜单条不可见 。 m nucop y. Enab led = Fa lse m nucu t. Enab led = Fa lse ’剪切菜单条不可见 。 m nude le te. Enab led = Fa lse ’删除菜单不可见 m nup a ste. Enab led = True ’粘贴菜单可见 m nu se lec ta ll. Enab led = True ’全选菜单可见E lse ’复制菜单条不可操作 。 m nucop y. Enab led = Fa lse m nucu t. Enab led = Fa lse ’剪切菜单条不可操作 。 ’删除菜单不可见m nude le te. Enab led = Fa lse m nup a ste. Enab led = Fa lse ’粘贴菜单不可见 ’全选菜单不可见m nu se lec ta ll. Enab led = Fa lse End If E lse m nucop y. Enab led = True ’复制菜单条可操作 。 m nucu t. Enab led = True ’剪切菜单条可操作 。 ’删除菜单不可见m nude le te. Enab led = True ’粘贴菜单不可见m nup a ste. Enab led = True m nu se lec ta ll. Enab led ’全选菜单不可见= True End If Pop upM enu M nuF ile ’弹出 PopUpM enu。 End If End Sub 程序主要功能及运行结果如图 1所示 。 1 - 1 1 - 2 1 - 3 1 - 4 图 1 弹出式菜单程序运行示意图 图 1 - 1: 因为用户没有向 R ichTextBox输入内容 ,所以弹出的快捷菜单中的功能键全部失效 ; 图 1 - 2: 因为 R ichTextBox有内容 ,并且用户已选中部分内容 ,这时右击鼠标会弹出完整而有效的 作 ,所以弹出的快捷菜单中“粘贴 ”和“全选 ”功能键有效 ; 图 1 - 4: 是图 1 - 3执行的结果 。 注 :( ) 1 Se lText是 R ichTextBox控件的一个属性 ,表示 R ichTextBox控件中选中的内容 ; ( ) 2 bu tton = 2表示单击鼠标右键 ,单击左键可以写成 : bu tton = 1; ( )3 本文代码均在 W indow 2000和 VB 6. 0的环境中调试通过 。 [参考文献 ] [ 1 ] 沈美莉 ,陈孟建 ,邹玉金 . V isua l B a sic程序设计教程 [M ]. 北京 :电子工业出版社 , 2004. [ 2 ] 伍俊良 . V isua l B a sic课程设计与系统开发案例 [M ]. 北京 :清华大学出版社 , 2002. U s in g VB to M a ke Popped M en u CH EN H an ( )N an jing Co llege of Chem ica l Techno logy, N an jing, J iangsu, 210048 , Ch ina A b stra c t: The popp ed m enu is the m enu tha t wa s popp ed by u sing mou se , mo st of app lica tion s have th is func tion. Th is a rtic le in troduce s d iffe rence be tween the popp ed m enu and the common m enu, d iscu sse s the p ecu lia rity of the popp ed m enu and give s a conc re te VB samp le fo r how to m ade a popp ed m enu. Key word s:VB ; m enu; fo rm; p rocedu re ()上接第 27页 A pp l ica t ion of C itec t SCAD A in Hube i Prov in ce’s C ity SCAD A Pro jec t CAO H u i ( )C itch ina Co. , L td, Shangha i, 200120 , Ch ina ( A b stra c t: The a rtic le in troduce s the app lica tion and exce llence of C itec t SCADA Sup e rviso ry Con tro l ) A nd D a ta A cqu isition, wh ich ha s been app lied in H ube i P rovince. The au tho r a lso de sc ribe s the fram ewo rk and comm un ica tion s system of SCADA , such a s se rve r, R TU , DDN and GPR S e tc. Key word s: C itec t SCADA; R TU; na tu ra l ga s; ga s tube ne t Your requestcould not be processed becauseof a configurationerror: "Could not connect to LDAPserver." For assistance,contact your network support team. file:///C|/Users/Administrator/Desktop/新建文本文档.txt 涵盖各行业最丰富完备的资料文献,最前瞻权威的行业动态,是专业人士的不二选择。 file:///C|/Users/Administrator/Desktop/新建文本文档.txt2012/8/26 12:19:58