1. 用VISUAL BASIC6.0實(shí)現(xiàn)彈出式菜單。

2. 建立含有如下控件的窗體：

    

控件NAME CAPTION INDEX

彈出式菜單窗體FORMENU 彈出式窗口實(shí)例1

菜單項(xiàng)MENUS 編輯

子菜單項(xiàng)MENUS1 窗口移動(dòng)0

子菜單項(xiàng)MENUS1 窗口最小化1

子菜單項(xiàng)MENUS1 窗口最大化2

子菜單項(xiàng)MENUS1 - 3 &&分割線

子菜單項(xiàng)MENUS1 退出4

(2)程序清單：顯示效果如圖1所示。

　　　　　　　　　圖1

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

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實(shí)現(xiàn)彈出式菜單。顯示效果如圖2所示。

　　　　　　　　　圖2

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

    

   控件NAME CAPTION

   窗體FORM1 彈出式菜單實(shí)例2

   命令按鈕COMMAND1 單擊鼠標(biāo)右鍵演示彈出式菜單

   (2)建立彈出式菜單MENUS.MPR:

   菜單項(xiàng)窗口移動(dòng)

   菜單項(xiàng)窗口最小化

   菜單項(xiàng)窗口最大化

2. 在COMMAND1控件的RIGHTCLICK事件中輸入:

    

DO MENUS.MPR &&調(diào)用彈出式菜單

　　運(yùn)行環(huán)境:WINDOWS98,VISUAL BASIC 6.0、VISUAL FOXPRO 6.0 FOR WINDOWS.

筆者