编程开发论坛 - Powered by Discuz! Board

标题: [网络] 如何实现类似QQ中的鼠标右击头像弹出弹出菜单 [打印本页]

作者: fanmei 时间: 2007-5-8 20:03 标题: 如何实现类似QQ中的鼠标右击头像弹出弹出菜单

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

作者: Nothing 时间: 2007-5-8 20:59

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

欢迎光临编程开发论坛 (http://bbs.lihuasoft.net/)