您的位置：程序门 -> vb -> 基础类

关于窗体拖动（急死人啦！！！！！！！！）

[收藏此页] [打印本页]选择字色：背景色：字体：[大][中][小]

关于窗体拖动（急死人啦！！！！！！！！）

发表于：2007-07-05 15:34:59 楼主

在做无标题窗体拖动！
为什么在sendmessage这句代码前要先释放鼠标？
其实这应该也算是api的问题了吧。

发表于：2007-07-05 15:41:431楼得分:0

参考：
http://topic.csdn.net/t/20021107/16/1157096.html

发表于：2007-07-05 15:42:312楼得分:0

不用api，也一样可以拖动无标题窗体。使用 form 的 mousedown、mouseup 和 mousemove 事件配合：

private moveme as boolean
private mox as long, moy as long

private sub form_mousedown（button as integer, shift as integer, x as single, y as single)
if button = 1 then
mox = x
moy = y
moveme = true
end if
end sub

private sub form_mousemove（button as integer, shift as integer, x as single, y as single)
if moveme then me.move me.left - mox + x, me.top - moy + y
end sub

private sub form_mouseup（button as integer, shift as integer, x as single, y as single)
moveme = false
end sub

发表于：2007-07-05 15:48:363楼得分:0

不用api我也会啊，不怎么难。其实我就想了解api和windows软件工作的原理。
所以请大家告诉我吧，这种东西网上难找，书上也不怎么介绍。。。

发表于：2007-07-05 16:07:264楼得分:0

api就是系统提供给开发人员的开发接口，不仅windows，很多软件，比如photoshop，都提供了api。

发表于：2007-07-05 16:13:465楼得分:0

...

大家为什么老是不回答我回的问题而要把问题扩散开去呢，我想一个一个的解决问题，能不能先

把我上面问的问题解决了？真的很想知道，谢谢各位老鸟了！！！告诉我吧，为什么在sendmessage这句代码前要先释放鼠标才能实现窗体的拖动？

下一篇：vb sql做登陆的问题
上一篇：文本框中的任何路径名文件自动运行打开起来!

其他资讯