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輔導知識技巧匯總