2011年计算机等考二级VB辅导知识技巧总结(28)

会计考友

　用VB、VFP设计右键弹出式菜单　　导读:凡是用过WINDOWS95或WINDOWS98的用户，非常熟悉单击鼠标右键会出现一个弹出式菜单，那么如何在应用系统中也实现上述功能，增加用户界面的友善性。笔者分别用VB和VFP实现了用鼠标右键实现弹出式菜单的效果。
  X/ ~' t! K- S8 {! U" x4 e　　用VISUAL BASIC6.0实现弹出式菜单。
6 z. L6 f+ [9 ~# y6 ^) t# Z. z　　建立含有如下控件的窗体：
: m3 z% \4 Y- H! a2 R3 \　　控件NAME CAPTION INDEX
+ T" c$ l  p5 ~& M7 N　　弹出式菜单窗体FORMENU 弹出式窗口实例1
　　菜单项MENUS 编辑
, p, ?( h' F& A2 v( V: j  P4 G　　子菜单项MENUS1 窗口移动0
　　子菜单项MENUS1 窗口最小化1
1 P- j3 s6 K; }5 y- C, L3 g! J　　子菜单项MENUS1 窗口最大化2
" O" a  m3 ~' h6 Y6 J　　子菜单项MENUS1 - 3 &&分割线
　　子菜单项MENUS1 退出4
& g' t# ?+ c2 t; T* E　　(2)程序清单：
0 \& w0 m/ T! I/ G' C　　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
- F; s1 P' T* f: k4 S　　Private Const WM_SYSCOMMAND = &H112
, N' O6 i) e* ~2 W　　Private Const SC_MOVE = &HF010&
2 ^8 P$ ^& p. u　　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)
' G, \  p8 E5 d2 ~0 N- n8 D　　If Button = 2 Then
# w/ N# u2 ~; W　　Me.PopupMenu FORMENU!MENUS
　　End If
　　End Sub

会计考友

Private Sub MENUS1_Click(Index As Integer)　　Dim X As Long
　　Select Case Index
4 x' d1 `9 {) S/ s　　Case 0
　　X = SendMessage((FORMENU.hwnd), WM_SYSCOMMAND, SC_MOVE, 0&)
　　Case 1
. L, g* U" W/ e9 w% E/ Y6 m3 H　　X = SendMessage((FORMENU.hwnd), WM_SYSCOMMAND, SC_MINIMIZE, 0&)
　　Case 2
3 g/ t. }8 t- f0 \6 ~: r　　X = SendMessage((FORMENU.hwnd), WM_SYSCOMMAND, SC_MAXIMIZE, 0&)
+ {: X! B$ [1 X: Y; V" f　　Case 3
+ o7 E* K5 ]1 o3 ~! m　　Case 4
/ i' E, B5 v( I0 ^4 b3 l- ]　　Unload FORMENU
　　End Select
　　End Sub
7 ]+ p4 [( J. k" ]( k　　用VISUAL FOXPRO 6.0实现弹出式菜单。
6 u7 t7 x3 `. B1 Y' z8 \! t　　建立含有如下控件的窗体POPMENU.SPR:
1 |2 r+ w  ~* B　　控件NAME CAPTION
& P" h* `" A2 j　　窗体FORM1 弹出式菜单实例2
! O0 i  @4 F* {) U　　命令按钮COMMAND1 单击鼠标右键演示弹出式菜单
2 q3 M+ N% d) Y7 m( t　　(2)建立弹出式菜单MENUS.MPR:
　　菜单项窗口移动
; _9 }7 `7 s0 d3 P3 g　　菜单项窗口最小化
　　菜单项窗口最大化
+ M  j/ V, }, S6 {- E! `% U　　在COMMAND1控件的RIGHTCLICK事件中输入:
　　DO MENUS.MPR &&调用弹出式菜单
　　运行环境:WINDOWS98,VISUAL BASIC 6.0、VISUAL FOXPRO 6.0 FOR WINDOWS.