对控件添加右键菜单的问题

oyq5612

如何对已插入的控件添加右键菜单功能
直接上图上附件。

zjdh

悬浮按钮.rar (24.42 KB, 下载次数: 8)

2016-7-5 13:29 上传

点击文件名下载附件

oyq5612

zjdh 发表于 2016-7-5 13:29

这个难道不能与移动并存吗
Private Sub Label1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    Dim hWnd As Long
    hWnd = FindWindow(vbNullString, Me.Caption)
   ReleaseCapture
    SendMessage hWnd, WM_NCLBUTTONDOWN, HTCAPTION, 0&
End Sub


为什么会提示未定义呢

oyq5612

无解吗？

zjdh

不懂礼貌的X，不想理你！！

JX_shangrila

论坛上经常碰到这样的情况，提问者提了一个问题，坛友（老师）花时间和精力圆满的解决了提问者的问题。
本来该问题应该结题了。可提问者不但毫无感激之意还变本加厉地提出新的问题来让老师解决；这样的提问
实际上就是钓鱼式的提问，是论坛上所有老师都深恶痛嫉的！