图片框在窗口内随意移动位置

雨天真美

图片框在窗口内随意移动位置

就是鼠标按住这个图片框，可以随意移动位置（不乱跳），之前有个例程源码怎么也找不到了，谁有这个例程 发一下  谢谢

福仔

  

子程序名	返回值类型	公开	备 注
_图片框1_鼠标左键被按下	逻辑型
参数名	类 型	参考	可空	数组	备 注
横向位置	整数型
纵向位置	整数型
功能键状态	整数型

SendMessageA (图片框1.取窗口句柄 (), #WM_NCLBUTTONDOWN, #HTCAPTION, 0)

.版本 2<br /> <br /> .子程序 _图片框1_鼠标左键被按下, 逻辑型<br /> .参数 横向位置, 整数型<br /> .参数 纵向位置, 整数型<br /> .参数 功能键状态, 整数型<br /> <br /> SendMessageA (图片框1.取窗口句柄 (), #WM_NCLBUTTONDOWN, #HTCAPTION, 0)

雨天真美

福仔 发表于 2019-3-3 09:37
[e=1]
.版本 2

需要那种就是调整边距的那种那种代码哦 不是api呢  

福仔

雨天真美 发表于 2019-3-3 09:40
需要那种就是调整边距的那种那种代码哦 不是api呢

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_窗口1

子程序名	返回值类型	公开	备 注
_图片框1_鼠标左键被按下	逻辑型
参数名	类 型	参考	可空	数组	备 注
横向位置	整数型
纵向位置	整数型
功能键状态	整数型

' SendMessageA (图片框1.取窗口句柄 (), #WM_NCLBUTTONDOWN, #HTCAPTION, 0)

子程序名	返回值类型	公开	备 注
_窗口1_创建完毕

变量名	类 型	静态	数组	备 注
hWnd	整数型

hWnd ＝ 图片框1.取窗口句柄 ()
SetPropA (hWnd, “proc”, SetWindowLongA (hWnd, #GWL_WNDPROC, 到整数 (&WndProc)))

子程序名	返回值类型	公开	备 注
WndProc	整数型
参数名	类 型	参考	可空	数组	备 注
hWnd	整数型
uMsg	整数型
wParam	整数型
lParam	整数型

变量名	类 型	静态	数组	备 注
rc	RECT
rcTmp	RECT
x	整数型
y	整数型
nTmp	整数型

判断 (uMsg ＝ #WM_NCHITTEST )  ' 击中测试,所有的鼠标消息都先触发这个消息,然后由这个消息区分是在客户区还是非客户区
nTmp ＝ 5
GetWindowRect (hWnd, rc)
x ＝ 位与 (lParam, 65535)  ' 低位是X坐标
' 位与,两个都为1就返回1,65535是低16位都是1,所以高16位必须都为0,任何数与0与都得0
' 自己了解去吧
y ＝ 右移 (lParam, 16)  ' 高位是Y坐标
' 右移,这个就简单了,就是把一个数按位往右边移动,移动后前面用0补位
' ------------这里是右下角,从窗口右边减去设置的值范围内都算是右下角
rcTmp ＝ rc
rcTmp.Left ＝ rc.Right － nTmp  ' 这里是计算鼠标到那个矩形内,窗口右边底边 - 设置的值,就是右下角
rcTmp.Top ＝ rc.Bottom － nTmp
如果真 (PtInRect (rcTmp, x, y))
返回 ( #HTBOTTOMRIGHT )  ' 在右下角,返回这个消息,告诉窗口我鼠标现在在非客户区的右下角位置

' 能看懂一个就能看懂全部,后面都是一样,只是修改了矩形的位置,后面就不做备注了
' 这些常量也算好记的,分开来看 HT开头
' 左顶右底 分别是 LEFT TOP RIGHT BOTTOM
' 如果在左边 那就是 HT + LEFT = #HTLEFT  顶边 HT + TOP = #HTTOP,  底边 HT + BOTTOM = #HTBOTTOM
' 右下角 HT + BOTTOM + RIGHT = #HTBOTTOMRIGHT, 左上角 HT + TOP + LEFT = #HTTOPLEFT
' 左边顶边右底底边都直接使用英文单词,右下  左下 这些是先指定底边 在指定左右,左上左下同理
rcTmp ＝ rc
rcTmp.Top ＝ rc.Bottom － nTmp
rcTmp.Right ＝ rc.Left ＋ nTmp
如果真 (PtInRect (rcTmp, x, y))
返回 ( #HTBOTTOMLEFT )  ' 左下角

rcTmp ＝ rc
rcTmp.Right ＝ rc.Left ＋ nTmp
rcTmp.Bottom ＝ rc.Top ＋ nTmp
如果真 (PtInRect (rcTmp, x, y))
返回 ( #HTTOPLEFT )  ' 左上角

rcTmp ＝ rc
rcTmp.Left ＝ rc.Right － nTmp
rcTmp.Bottom ＝ rc.Top ＋ nTmp
如果真 (PtInRect (rcTmp, x, y))
返回 ( #HTTOPRIGHT )  ' 右上角

' ----------如果按照我这样写左顶右底的话,那就必须在判断4个角后在判断这4个
rcTmp ＝ rc
rcTmp.Right ＝ rc.Left ＋ nTmp  ' 不指定顶边和底边,如果在左上或左下之前判断这个,那不会触发左上或左下
rcTmp.Top ＝ rc.Top ＋ nTmp  ' 稍微修改一下顶边和底边的位置才能在左上或左下之前判断
rcTmp.Bottom ＝ rc.Bottom － nTmp  ' 后面的也一样,后面我就不写备注了,也不指定位置了,我做的是先判断4个角,后判断4个边
如果真 (PtInRect (rcTmp, x, y))
返回 ( #HTLEFT )  ' 左边

rcTmp ＝ rc
rcTmp.Bottom ＝ rc.Top ＋ nTmp
如果真 (PtInRect (rcTmp, x, y))
返回 ( #HTTOP )  ' 顶边

rcTmp ＝ rc
rcTmp.Left ＝ rc.Right － nTmp
如果真 (PtInRect (rcTmp, x, y))
返回 ( #HTRIGHT )  ' 右边

rcTmp ＝ rc
rcTmp.Top ＝ rc.Bottom － nTmp
如果真 (PtInRect (rcTmp, x, y))
返回 ( #HTBOTTOM )  ' 底边

' rcTmp ＝ rc
' rcTmp.Left ＝ rc.Right － 30
' rcTmp.Bottom ＝ rc.Top ＋ 30
. ' 如果真 (PtInRect (rcTmp, x, y))  ' 发现这种方式来模拟按钮没有效果,只有最大化有效果,不过带来的问题也是不小,具体自己测试吧
' 返回 (#HTCLOSE)  ' 关闭按钮
' 返回 (#HTMAXBUTTON)  ' 最大化按钮
' 返回 (#HTMINBUTTON)  ' 最小化按钮

rcTmp ＝ rc
rcTmp.Bottom ＝ rc.Top ＋ 30
如果真 (PtInRect (rcTmp, x, y))
返回 ( #HTCAPTION )  ' 在标题栏中,模拟一个标题栏,有30个像素

判断 (真)  ' 其他自己做,或者CallWindowProcW() 让系统处理,我这里就全部都属于客户区
返回 ( #HTCLIENT )  ' 客户区
返回 (CallWindowProcA (GetPropA (hWnd, “proc”), hWnd, uMsg, wParam, lParam))  ' 这里是让系统处理这个消息




返回 (CallWindowProcA (GetPropA (hWnd, “proc”), hWnd, uMsg, wParam, lParam))

.版本 2<br /> <br /> .程序集 窗口程序集_窗口1<br /> <br /> .子程序 _图片框1_鼠标左键被按下, 逻辑型<br /> .参数 横向位置, 整数型<br /> .参数 纵向位置, 整数型<br /> .参数 功能键状态, 整数型<br /> <br /> ' SendMessageA (图片框1.取窗口句柄 (), #WM_NCLBUTTONDOWN, #HTCAPTION, 0)<br /> <br /> <br /> .子程序 _窗口1_创建完毕<br /> .局部变量 hWnd, 整数型<br /> <br /> hWnd ＝ 图片框1.取窗口句柄 ()<br /> SetPropA (hWnd, “proc”, SetWindowLongA (hWnd, #GWL_WNDPROC, 到整数 (&WndProc)))<br /> <br /> <br /> .子程序 WndProc, 整数型<br /> .参数 hWnd, 整数型<br /> .参数 uMsg, 整数型<br /> .参数 wParam, 整数型<br /> .参数 lParam, 整数型<br /> .局部变量 rc, RECT<br /> .局部变量 rcTmp, RECT<br /> .局部变量 x, 整数型<br /> .局部变量 y, 整数型<br /> .局部变量 nTmp, 整数型<br /> <br /> .判断开始 (uMsg ＝ #WM_NCHITTEST)  ' 击中测试,所有的鼠标消息都先触发这个消息,然后由这个消息区分是在客户区还是非客户区<br />     nTmp ＝ 5<br />     GetWindowRect (hWnd, rc)<br />     x ＝ 位与 (lParam, 65535)  ' 低位是X坐标<br />     ' 位与,两个都为1就返回1,65535是低16位都是1,所以高16位必须都为0,任何数与0与都得0<br />     ' 自己了解去吧<br />     y ＝ 右移 (lParam, 16)  ' 高位是Y坐标<br />     ' 右移,这个就简单了,就是把一个数按位往右边移动,移动后前面用0补位<br /> <br />     ' ------------这里是右下角,从窗口右边减去设置的值范围内都算是右下角<br />     rcTmp ＝ rc<br />     rcTmp.Left ＝ rc.Right － nTmp  ' 这里是计算鼠标到那个矩形内,窗口右边底边 - 设置的值,就是右下角<br />     rcTmp.Top ＝ rc.Bottom － nTmp<br />     .如果真 (PtInRect (rcTmp, x, y))<br />         返回 (#HTBOTTOMRIGHT)  ' 在右下角,返回这个消息,告诉窗口我鼠标现在在非客户区的右下角位置<br />     .如果真结束<br /> <br />     ' 能看懂一个就能看懂全部,后面都是一样,只是修改了矩形的位置,后面就不做备注了<br />     ' 这些常量也算好记的,分开来看 HT开头<br />     ' 左顶右底 分别是 LEFT TOP RIGHT BOTTOM<br />     ' 如果在左边 那就是 HT + LEFT = #HTLEFT  顶边 HT + TOP = #HTTOP,  底边 HT + BOTTOM = #HTBOTTOM<br />     ' 右下角 HT + BOTTOM + RIGHT = #HTBOTTOMRIGHT, 左上角 HT + TOP + LEFT = #HTTOPLEFT<br />     ' 左边顶边右底底边都直接使用英文单词,右下  左下 这些是先指定底边 在指定左右,左上左下同理<br /> <br />     rcTmp ＝ rc<br />     rcTmp.Top ＝ rc.Bottom － nTmp<br />     rcTmp.Right ＝ rc.Left ＋ nTmp<br />     .如果真 (PtInRect (rcTmp, x, y))<br />         返回 (#HTBOTTOMLEFT)  ' 左下角<br />     .如果真结束<br /> <br /> <br />     rcTmp ＝ rc<br />     rcTmp.Right ＝ rc.Left ＋ nTmp<br />     rcTmp.Bottom ＝ rc.Top ＋ nTmp<br />     .如果真 (PtInRect (rcTmp, x, y))<br />         返回 (#HTTOPLEFT)  ' 左上角<br />     .如果真结束<br /> <br />     rcTmp ＝ rc<br />     rcTmp.Left ＝ rc.Right － nTmp<br />     rcTmp.Bottom ＝ rc.Top ＋ nTmp<br />     .如果真 (PtInRect (rcTmp, x, y))<br />         返回 (#HTTOPRIGHT)  ' 右上角<br />     .如果真结束<br /> <br /> <br />     ' ----------如果按照我这样写左顶右底的话,那就必须在判断4个角后在判断这4个<br />     rcTmp ＝ rc<br />     rcTmp.Right ＝ rc.Left ＋ nTmp  ' 不指定顶边和底边,如果在左上或左下之前判断这个,那不会触发左上或左下<br />     rcTmp.Top ＝ rc.Top ＋ nTmp  ' 稍微修改一下顶边和底边的位置才能在左上或左下之前判断<br />     rcTmp.Bottom ＝ rc.Bottom － nTmp  ' 后面的也一样,后面我就不写备注了,也不指定位置了,我做的是先判断4个角,后判断4个边<br />     .如果真 (PtInRect (rcTmp, x, y))<br />         返回 (#HTLEFT)  ' 左边<br />     .如果真结束<br /> <br />     rcTmp ＝ rc<br />     rcTmp.Bottom ＝ rc.Top ＋ nTmp<br />     .如果真 (PtInRect (rcTmp, x, y))<br />         返回 (#HTTOP)  ' 顶边<br />     .如果真结束<br /> <br />     rcTmp ＝ rc<br />     rcTmp.Left ＝ rc.Right － nTmp<br />     .如果真 (PtInRect (rcTmp, x, y))<br />         返回 (#HTRIGHT)  ' 右边<br />     .如果真结束<br /> <br />     rcTmp ＝ rc<br />     rcTmp.Top ＝ rc.Bottom － nTmp<br />     .如果真 (PtInRect (rcTmp, x, y))<br />         返回 (#HTBOTTOM)  ' 底边<br />     .如果真结束<br /> <br /> <br />     ' rcTmp ＝ rc<br />     ' rcTmp.Left ＝ rc.Right － 30<br />     ' rcTmp.Bottom ＝ rc.Top ＋ 30<br />     .' 如果真 (PtInRect (rcTmp, x, y))  ' 发现这种方式来模拟按钮没有效果,只有最大化有效果,不过带来的问题也是不小,具体自己测试吧<br />         ' 返回 (#HTCLOSE)  ' 关闭按钮<br />         ' 返回 (#HTMAXBUTTON)  ' 最大化按钮<br />         ' 返回 (#HTMINBUTTON)  ' 最小化按钮<br />     .如果真结束<br /> <br />     rcTmp ＝ rc<br />     rcTmp.Bottom ＝ rc.Top ＋ 30<br />     .如果真 (PtInRect (rcTmp, x, y))<br />         返回 (#HTCAPTION)  ' 在标题栏中,模拟一个标题栏,有30个像素<br /> <br />     .如果真结束<br /> <br />     .判断开始 (真)  ' 其他自己做,或者CallWindowProcW() 让系统处理,我这里就全部都属于客户区<br />         返回 (#HTCLIENT)  ' 客户区<br />     .默认<br />         返回 (CallWindowProcA (GetPropA (hWnd, “proc”), hWnd, uMsg, wParam, lParam))  ' 这里是让系统处理这个消息<br />     .判断结束<br /> <br /> .默认<br /> <br /> .判断结束<br /> <br /> <br /> <br /> 返回 (CallWindowProcA (GetPropA (hWnd, “proc”), hWnd, uMsg, wParam, lParam))

只能用API,不然你自己封装成一个子程序...然后认为没有调用API......
例子 https://bbs.125.la/forum.php?mod=viewthread&tid=14205525

雨天真美

福仔 发表于 2019-3-3 10:02
[e=1]
.版本 2

就是想用这种形式来写 当鼠标按下时 通过横向位置 和纵向位置的变动来调整，但是逻辑理不顺，图片框移动乱跳。。。。。

福仔

雨天真美 发表于 2019-3-3 10:09
就是想用这种形式来写 当鼠标按下时 通过横向位置 和纵向位置的变动来调整，但是逻辑理不顺，图片框 ...

那你慢慢理一下思路吧,我的话Windows有提供这样的命令我就用Windows提供的,懒得自己算,而且你这个要算起来也不是那么简单

补充内容 (2019-3-3 10:15):
反正我给你的这个代码移动和调整尺寸都是和调整窗口移动窗口一样的

Sui

我给你个思路

利用精易的窗口_取坐标 去除窗口的位置 然后在利用鼠标_取位置 获得鼠标的位置 然后在互相减去 获得 图片框对窗口的相对位置 然后在移动就行
望采纳

327038214

666，不错支持~