菜单的定制------------------------------

1．创建一个菜单:菜单一般由菜单条、菜单、菜单项、子菜单、弹出式菜单组成。
工具→菜单编辑器→Name名称=Chaidan,Caption标题=打开&D→确定
2．普通菜单的设计
1)给菜单命名:打开&D中的&D是用来设置热键Ait+D的
2)增加和删除:AIT+N下一个 增加,AIT+T删除
3)移动 标题 :向上向下箭头移动,向左向右设置多层子菜单最多可以4层
4)设置分离条:在多层菜单中两个菜单项之间设置一个菜单Name名称=QQ,标题=-
5)菜单的属性:可以在运行里用代码设置 Name名称.属性名=属性值
AIT+C复选Checked:在菜单前产生一个打勾标志
AIT+E有效Enabled:让菜单变灰色,这时点这个菜单无效
AIT+V可见Visible:让菜单在屏幕上隐藏起来
AIT+W列表 Index :让菜单可以用Load方法添加最近打开的文件名
3. 生成弹出式菜单(或浮动菜单):右键单击窗体或控件调用的方法
If Button = 2 Then object.PopupMenu menuname, flags, x, y, boldcommand
Button=2 表示右键按下
object 被省略时默认为当前带有焦点的对象
PopupMenu 当前鼠标位置或指定的坐标位置显示弹出式菜单
menuname 为Name名称
flags 显示的位置和行为的值,0在左边.响应左键,2左右键都响应,4在居中,8在右边
X,Y 是弹出菜单的位置，可以为数字，如果直接写为X,Y则是在当前鼠标位置弹出菜单
boldcommand指定弹出式菜单中的菜单控件的名字,省略时不显示

例:

'当文本框上出现鼠标按下的事件时
Private Sub RichTextBox1_MouseDown(Button As Integer, Shift As Integer, x As Single, Y As Single)
'MouseDown事件各种语法包含下列部分：
'button 返回一个Integer整数，用来标识该事件的产生是按下哪个按钮
'其中 左按钮（位 0），右按钮（位 2），以及中间按钮（位 4）
'shift 返回一个整数，标示是否同时有Shift,Ctrl,Alt键按下
'x, y 返回一个指定鼠标指针当前位置的数
'Button = 2 表示右键按下
If Button = 2 Then JBKJ.PopupMenu yccd, 0, x, Y
'PopupMenu方法用来弹出一个菜单
'语法是 object.PopupMenu menuname, flags, X, Y
'mnufile是我们在菜单编辑器中设计好的菜单Name名称
'X,Y是弹出菜单的位置，可以为数字，如果直接写为X,Y则是在当前鼠标位置弹出菜单

End Sub

VB实现窗口的弹出式菜单

[ 作者：佚名 || 文章录入：admin ] ------[本文为转载文章,没空搞源码,睡觉88]

　　在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'将剪贴板清空　
　　Clipboard.SetTextRichTexBox1.SelText '将RichTex控件上选择的内容复制到剪贴板
　　End Sub

'2．剪切功能的实现。

　　Private Sub MnuCut_Click()
　　Clipboard.Clear '将剪贴板清空
　Clipboard.SetTextRichBox1.SelText '将RichTextBox控件上选择的内容复制到剪贴板
　　SendKeys"{DELETE}",True '将RichTexBox控件上选择了的内容删除
　　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控件，按动鼠标器右键就可弹出下拉菜单，实现复制、剪切功能。





　　在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'将剪贴板清空
　　Clipboard.SetTextRichTexBox1.SelText '将控件上选择上的内容复制到剪贴板
　　End Sub

'2．剪切功能的实现。

　　Private Sub MnuCut_Click()
　　Clipboard.Clear '将剪贴板清空
　　Clipboard.SetTextRichBox1.SelText '将RichText控件上选择了的内容复制到剪贴板
　　SendKeys"{DELETE}",True '将RichTexBox控件上选择了的内容删除
　　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