2011年计算机等考二级VB辅导(28)

用VB、VFP设计右键弹出式菜单

导读:凡是用过WINDOWS95或WINDOWS98的用户，非常熟悉单击鼠标右键会出现一个弹出式菜单，那么如何在应用系统中也实现上述功能，增加用户界面的友善性。笔者分别用VB和VFP实现了用鼠标右键实现弹出式菜单的效果。

用VISUAL BASIC6.0实现弹出式菜单。

建立含有如下控件的窗体：

控件NAME CAPTION INDEX

弹出式菜单窗体FORMENU 弹出式窗口实例1

菜单项MENUS 编辑

子菜单项MENUS1 窗口移动0

子菜单项MENUS1 窗口最小化1

子菜单项MENUS1 窗口最大化2

子菜单项MENUS1 - 3 &&分割线

子菜单项MENUS1 退出4

(2)程序清单：

Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long

Private Const WM_SYSCOMMAND = &H112

Private Const SC_MOVE = &HF010&

Private Const SC_MINIMIZE = &HF020&

Private Const SC_MAXIMIZE = &HF030& >

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)

If Button = 2 Then

Me.PopupMenu FORMENU!MENUS

End If

End Sub