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年上半年计算机等级考试报名时间汇总

　　2011计算机等级考试二级VB考点及习题汇总

　　2011年计算机等级考试二级VB基础教程汇总

　　2011计算机等考二级VB辅导知识技巧汇总