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
[计算机二级考什么]2011年计算机等考二级VB辅导(28)
http://m.kwkids.com/jianzhulei/46145.html
推荐访问: