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

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

#