fanmei

最近看了很多书，也问了很多人，但还是不知道类似QQ上的鼠标右击头像弹出诸如发送及时信息，聊天记录，查看好友资料等菜单！恳请各位给予指点！

Nothing

参考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