[网络] 如何实现类似QQ中的鼠标右击头像弹出弹出菜单

参考popupmenu


本示例显示当用户在窗体上单击鼠标右键时在光标处出现的一个弹出式菜单。要检验此示例，创建一个窗体，它包含一个称为 mnuFile（mnuFile 必需至少有一个 submenu）的 Menu 控件。将本例代码粘贴到一个窗体的声明部分，然后按 F5 键。

Private Sub Form_MouseDown (Button As Integer, Shift As Integer, X As Single, Y As Single)
   If Button = 2 Then
      PopupMenu mnuFile
   End If
End Sub