VB程序员博客

如题。不用Time控件drag是件,查查left，top应该会触发mousemove事件的吧drag不行的啊有没有类似的事件，dragmove 一类的？抱歉，没vb在家。dragmove 在DragMode = vbAutomatic的时候，当鼠标按下去的时候有反应
但在移动控件的过程没反应的

DragMode =vbManual什么反应都没
你是怎么移动控件的？

谢谢老张啊，但不是我想要的效果，
我想要的是鼠标左键一直按住拖动的时候把位置显示出来显示的就是被拖动控件在拖动过程中实时的位值。你把它当成什么了？上述代码就是在窗体拖动一个Command1，Command1的左边界（Left)的变化显示在Text1中，上边（Top)界变化显示在Text2中
Text2 = "Height=" & Y - b一句应为Text2 = "Top=" & Y - b,Top误打成了HeightDing 老张。

楼主参考 老张 的代码，把窗体上所有可见的控件都加上 DragOver() 事件代码，就完全符合你的要求了。
控件拖动的时候，鼠标一直在控件上，也就是说控件和鼠标的相对位置在拖动的时候是不变的，
所有用老张的方法，得不到实时位置<

标签: , 控件, 移动, 行时