VB怎样做用鼠标拖动窗体和其控件都可以移动窗体？
正在制作一个迷你程序，由于要求占用屏幕空间要小，所以各个控件之间的间隔是很小的(如图)。要是按照网上提供的移动窗体代码，只能准确点击到空白窗体的位置时才能移动窗体，我的要...
正在制作一个迷你程序，由于要求占用屏幕空间要小，所以各个控件之间的间隔是很小的(如图)。
要是按照网上提供的移动窗体代码，只能准确点击到空白窗体的位置时才能移动窗体，我的要求就是在窗体任何地方拖动都可以移动整个窗体。 展开
要是按照网上提供的移动窗体代码，只能准确点击到空白窗体的位置时才能移动窗体，我的要求就是在窗体任何地方拖动都可以移动整个窗体。 展开
4个回答
展开全部
果然很简单...方法我想到两种一种是使用子类化勾住自己的信息，如果有鼠标点击，那么就发送移动窗体的信息。如果有兴趣可以到我的博客，找找，我发过子类Hook相关的文。
或者呢，采取下面的方式，模块代码在下面的参考资料中。
如有疑问，留言。
参考资料： http://www.promiseforever.com/blog/show-529-1.html
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
展开全部
实在不行，每个控件都要加这个拖动事件，哈哈
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
展开全部
分别设置每个控件的MouseDown事件。
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
展开全部
设置每个控件的“left”和“top”就行了，一运行就看的出
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
更多回答（2）
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
