例49：弹出式菜单的使用

1. 建立一个EXE工程，在窗体上放一个popupmenu控件。
2. 设计菜单项如图46：

图46

1. 右键单击popupmenu，点查看代码，添加代码在鼠标右击事件中：

Sub Form1_PopupMenu1_WM_Command(hWndForm As hWnd,wID As ULong)

   Select Case wID

      Case Form1_PopupMenu1_Menu1 ' File

      Case Form1_PopupMenu1_Menu2 ' open

                       MsgBox("open")

      Case Form1_PopupMenu1_Menu3 ' exit

                       MsgBox("exit")

   End Select

End Sub

4.运行程序，当鼠标右击窗体时将弹出菜单，如图47。

图47