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

　　Private Sub MENUS1_Click(Index As Integer)

　　Dim X As Long

　　Select Case Index

　　Case 0

　　X = SendMessage((FORMENU.hwnd), WM_SYSCOMMAND, SC_MOVE, 0&)

　　Case 1

　　X = SendMessage((FORMENU.hwnd), WM_SYSCOMMAND, SC_MINIMIZE, 0&)

　　Case 2

　　X = SendMessage((FORMENU.hwnd), WM_SYSCOMMAND, SC_MAXIMIZE, 0&)

　　Case 3

　　Case 4

　　Unload FORMENU

　　End Select

　　End Sub

　　用VISUAL FOXPRO 6.0实现弹出式菜单。

　　建立含有如下控件的窗体POPMENU.SPR:

　　控件NAME CAPTION

　　窗体FORM1 弹出式菜单实例2

　　命令按钮COMMAND1 单击鼠标右键演示弹出式菜单

　　(2)建立弹出式菜单MENUS.MPR:

　　菜单项窗口移动

　　菜单项窗口最小化

　　菜单项窗口最大化

　　在COMMAND1控件的RIGHTCLICK事件中输入:

　　DO MENUS.MPR &&调用弹出式菜单

　　运行环境:WINDOWS98,VISUAL BASIC 6.0、VISUAL FOXPRO 6.0 FOR WINDOWS.

　　2011年上半年计算机等级考试报名时间汇总

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

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

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