精华区文章阅读

发信人: zhaowei (还珠格格), 信区: VisualBasic
标  题: Visual Basic中的界面设计原则和编程技巧5
发信站: 紫丁香 (Tue Jun  1 18:17:02 1999), 转信

   弹出式菜单的实现(PopupMenu Method)

   VB中在菜单设计窗口(Menu Design Window) 中设计的菜单是下
   拉式菜单。下拉式菜单是用户在任何时候都可以在顶端菜单条
   上选择后拉出的菜单，而弹出式菜单则是在程序界面的一定区
   域内点按鼠标键后出现的菜单。在某些情况下，弹出式菜单会
   使系统功能的实现更加简洁和高效，使用起来更加得心应手。

   Widnows程序的弹出式菜单一般是当用户在程序的桌面上点按鼠
   标键时出现的。弹出式菜单多用于实现系统的附加或增强功
   能。弹出式菜单的内容，可以随点按鼠标键的位置不同而变
   化。由于弹出的菜单要覆盖屏幕的一部分，所以应尽量缩短菜
   单里的文字。

   在VB中，弹出式菜单的实现要用到下拉式菜单设计的技术和
   PopupMenu方法。具体的做法是：

   在菜单设计窗口(Menu Design Window)里设计好相应窗体的弹
   出式菜单。要注意的是，要弹出的菜单必须至少有一个子菜
   单；因而这个菜单不能有快捷键，并且Checked属性必须是
   False。再把弹出式菜单的Visible属性改为False。

   在具有设计好的弹出式菜单的窗体的Form_Click中加入以下代
   码(假设弹出式菜单的Name属性是mnuExample)：

   Sub Form_Click()

   PopupMenu mnuExample

   End Sub

   如果要求只有按下鼠标左键或者右键才能激活菜单，就必须在
   Form_MouseDown里加入如下代码：

   Sub Form_MouseDown(Button As Integer,Shift As Integer,x
   As Single,y As Single)

   If Button=2 then Button=2 表示鼠标右键

   PopupMenu mnuExample

   End If

   PopupMenu 的完整句法是：

   [Form.]PopupMenu menuname[flags[,x[,y]]]

--
----------------------
        %-%      身  人
      % * * %    不  在
      %  .  % /   由江
         \\--/     己湖                    �
-----------------------

※ 来源:．紫丁香 bbs.hit.edu.cn．[FROM: 202.118.243.47]

VB 版 (精华区)