RealAudio1

最新推荐文章于 2022-11-24 21:42:55 发布

天锋

最新推荐文章于 2022-11-24 21:42:55 发布

阅读量1k

点赞数

分类专栏： VB 文章标签： timer

本文链接：https://blog.csdn.net/yugui/article/details/1421166

版权

VB 专栏收录该内容

9 篇文章 0 订阅

订阅专栏

我晕了，兄弟，我是来告诉你好消息的，右键菜单我没找到方法，就得用上面那位朋友的方法，做右键事件，不过最好不要用MSGBOX，因为如果那样的话，窗体上如果有TIMER会停止响应的，所以用RealAudio1.AboutBox，另外就是左上角的那两个按钮的问题了，这个控件有一个属性是DRAGMODE 默认是0，变成1就没那东西了，晕死我了，无意中一改发现没了，哈哈 zhuanyou兄弟: 实在不行的话就用sendkey函数在下面三处加上 SendKeys "{ESC}" ，但觉得不够完美。 ------------------------------------------------- Private Sub RealAudio1_OnLButtonDown(ByVal nFlags As Long, ByVal nX As Long, ByVal nY As Long) SendKeys "{ESC}" End Sub Private Sub RealAudio1_OnMouseMove(ByVal nFlags As Long, ByVal nX As Long, ByVal nY As Long) SendKeys "{ESC}" End Sub Private Sub RealAudio1_OnRButtonDown(ByVal nFlags As Long, ByVal nX As Long, ByVal nY As Long) MsgBox "右键禁止" 'RealAudio右键选单一出来就被这个警告窗口给搞掉了 SendKeys "{ESC}" End Sub