-
本版专家分：501结帖率 100%
-
- 签到王者 累计签到获取，不积跬步，无以至千里，继续坚持！
-
- GitHub 绑定GitHub第三方账户获取
-
- 进士 2019年总版新获得的技术专家分排名前十
-
-
金牌
2020年6月 总版技术专家分月排行榜第一
2020年5月 总版技术专家分月排行榜第一
2020年4月 总版技术专家分月排行榜第一
2020年3月 总版技术专家分月排行榜第一
-
-
窗体的控件可以随意拖放，而且所有容器支持控件拖放（前提），
现在我想通过SendMessage发送消息实现该控件的拖放，
请问如何实现？
比如，窗体中的某个按钮（Button）在一个面板（Panel）上，
我现在知道该按钮（Button）的句柄，Panel的句柄可要可不要（我认为），
我想用SendMessage发送消息，使得按钮（Button）拖动到另一个面板（Panel）上，这个面板（Panel）的句柄也是可要可不要（我认为）。
本人的想法是这样的：
1.先给按钮（Button）发送鼠标左键按下的消息 WM_LBUTTONDOWN
2.然后再发送鼠标移动的消息 WM_MOUSEMOVE 把鼠标移到另一个面板（Panel）上
3.最后再发送鼠标左键释放消息 WM_LBUTTONUP
问题是发送鼠标移动消息的时候，什么反应也没有，不知道 WM_MOUSEMOVE 这个消息是如何发送的，而且我查看过帮助，发送该消息时，可以再带个参数 MK_LBUTTON ，这样可以在移动的时候同时也按住鼠标左键，是这样吗？
本人还想过另一种方法：
就是把按钮剪贴到剪贴板上，然后再从剪贴板复制到另一个面板上，这样会有什么问题吗？不过这样就需要知道目标面板（Panel）的句柄，而根据现有的条件，本人有可能无法获得目标Panel的句柄，因为是别人写的程序，里面的Panel很多，而且也没有相关的字符串标识（text,name或caption没有），但如果是鼠标拖动的话，可以找到位置（因为有相对位置）。
还望各位高手指点一下如何实现，或者给点思路和意见，分不够可以再加！
-
本版专家分：501
-
- 签到王者 累计签到获取，不积跬步，无以至千里，继续坚持！
-
- GitHub 绑定GitHub第三方账户获取
-
- 进士 2019年总版新获得的技术专家分排名前十
-
-
金牌
2020年6月 总版技术专家分月排行榜第一
2020年5月 总版技术专家分月排行榜第一
2020年4月 总版技术专家分月排行榜第一
2020年3月 总版技术专家分月排行榜第一
-
-
怎么没有人回答吗？
有没有高手帮忙帮忙？
-
本版专家分：166865
-
-
微软MVP
2005年1月 荣获微软MVP称号
2004年1月 荣获微软MVP称号
-
-
红花
2007年5月 VB大版内专家分月排行榜第一
2007年4月 VB大版内专家分月排行榜第一
2005年12月 VB大版内专家分月排行榜第一
2004年2月 VB大版内专家分月排行榜第一
2004年1月 VB大版内专家分月排行榜第一
2003年11月 VB大版内专家分月排行榜第一
2003年10月 VB大版内专家分月排行榜第一
-
-
黄花
2007年6月 VB大版内专家分月排行榜第二
2006年3月 VB大版内专家分月排行榜第二
2006年2月 VB大版内专家分月排行榜第二
2006年1月 VB大版内专家分月排行榜第二
2004年9月 VB大版内专家分月排行榜第二
2004年8月 VB大版内专家分月排行榜第二
2004年3月 VB大版内专家分月排行榜第二
2003年12月 VB大版内专家分月排行榜第二
2003年9月 VB大版内专家分月排行榜第二
2003年7月 VB大版内专家分月排行榜第二
2003年6月 VB大版内专家分月排行榜第二
2003年5月 VB大版内专家分月排行榜第二
-
-
蓝花
2005年11月 VB大版内专家分月排行榜第三
2004年7月 VB大版内专家分月排行榜第三
-
-
用不着api：
用VB实现拖放功能
拖放是用鼠标拖动一个文件到其它对象的活动。在图形操作过程中，拖放是最常用的功能之一，下面我们来看看怎样用VB实现拖放功能。
首先介绍与拖放有关的控件：
1.属性:DragMode决定拖动操作的初始化是人工方式还是自动方式 DragIcon确定在拖动过程中显示的指针的图标形状
2.方法:Drag开始，结束或取消拖动控件
3.事件:MouseDown事件发生于用户按下鼠标按钮时。DragOver事件发生于拖动操作完成时。DragDrop事件发生于拖动操作正在进行时。
然后编写一个小程序，这个程序能实现在窗口中或窗口间拖动图标的功能。建立窗口Form1和Form2，在窗口中都加入Image1，其中Form1下的Image1.picture为你想显示的图标。
Form1下程序代码为：
Option Explicit
Dim dragx As Single
Dim dragy As Single
Const BEGIN_DRAG=1
Private Sub Form_DragDrop(Source As Control， X As Single， Y As Single)
Image1.Picture=Source ；Sourse为被拖动的控件
Form2.Image1.Picture=LoadPicture(″″)
Image1.Move(X－dragx)，(Y－dragy)； X，Y为鼠标所在目标窗体或控件的当前坐标
End Sub
Private Sub Form_Load()
Load Form2
Form2.Show 0
End Sub
Private Sub Image1_MouseDown(Button As Integer，Shift As Integer，
X As Single，Y As Single)
dragx=X
dragy=Y
Image1.Drag BEGIN_DRAG ；开始拖动操作
Image1.DragIcon = LoadPicture(″按下鼠标时想显示的光标″)
End Sub
Form2下程序代码为：
Option Explicit
Dim dragx As Single
Dim dragy As Single
Const BEGIN_DRAG=1
Private Sub Form_DragDrop(Source As Control，X As Single，Y As Single)
Image1.Picture=Source
Form1.Image1.Picture=LoadPicture(″″)
Image1.Move(X－dragx)，(Y－dragy)
End Sub
Private Sub Image1_MouseDown(Button As Integer， Shift As Integer，
X As Single，Y As Single)
dragx=X
dragy=Y
Image1.Drag BEGIN_DRAG
Image1.DragIcon=LoadPicture(″按下鼠标时想显示的光标″)
End Sub
本程序在VB5.0，Window95环境下通过。
-
本版专家分：501
-
- 签到王者 累计签到获取，不积跬步，无以至千里，继续坚持！
-
- GitHub 绑定GitHub第三方账户获取
-
- 进士 2019年总版新获得的技术专家分排名前十
-
-
金牌
2020年6月 总版技术专家分月排行榜第一
2020年5月 总版技术专家分月排行榜第一
2020年4月 总版技术专家分月排行榜第一
2020年3月 总版技术专家分月排行榜第一
-
-
我想再说明一下：
我要移动的控件不是自己程序的控件
而是其他程序（别人写好的，而且开发语言是未知的）窗体里的控件
我通过Windows API获得了该控件的句柄
现在我想实现该控件的拖放
拖放的过程及结果也是在其他程序的窗体里
所以自己的程序的各种鼠标事件（MouseDown等等）应该是不适用的
那样只能控制自己程序窗体的控件
而不是其他程序窗体里的控件
我不知道大家明白我的意思吗？
我想通过自己的程序去控制别人的程序
移动的控件在别人的程序里
所以我认为只能通过发送消息来处理
但我发送消息后并没有能实现
鼠标左键按下和释放是可以的
就是鼠标移动的时候没反应
希望高手们帮我看看到底如何发送鼠标移动消息
-
本版专家分：501
-
- 签到王者 累计签到获取，不积跬步，无以至千里，继续坚持！
-
- GitHub 绑定GitHub第三方账户获取
-
- 进士 2019年总版新获得的技术专家分排名前十
-
-
金牌
2020年6月 总版技术专家分月排行榜第一
2020年5月 总版技术专家分月排行榜第一
2020年4月 总版技术专家分月排行榜第一
2020年3月 总版技术专家分月排行榜第一
-
-
多谢楼上的兄弟，虽然你们结果不是我想要的
这个问题现在是本人做的项目的一个难点
希望更多的高手来帮忙解决这个问题
-
本版专家分：13822 -
不知樓主所說的是不是--------要像VB裡面設計模式時那樣的拖放功能.
如果是的話,我這收藏了一個,希望能幫得到你~????
-
本版专家分：16792
-
-
蓝花
2016年9月 MS-SQL Server大版内专家分月排行榜第三
2016年3月 MS-SQL Server大版内专家分月排行榜第三
-
-
我不大明白你到底要实现的是什么，是过程还是结果，如果只是结果改变一下控件的Container属性就可以了
Option Explicit
Private Sub Command1_Click()
Set Command3.Container = Picture1
Command3.Move Command3.Container.ScaleWidth - Command3.Width / 2, Command3.Container.ScaleHeight - Command3.Height / 2
End Sub
Private Sub Command2_Click()
Set Command3.Container = Frame1
Command3.Move Frame1.Width - Command3.Width / 2, Frame1.Height - Command3.Height / 2
End Sub
-
本版专家分：16792
-
-
蓝花
2016年9月 MS-SQL Server大版内专家分月排行榜第三
2016年3月 MS-SQL Server大版内专家分月排行榜第三
-
-
对不起刚才没看全你的要求，先取消我前面的发言
-
本版专家分：501
-
- 签到王者 累计签到获取，不积跬步，无以至千里，继续坚持！
-
- GitHub 绑定GitHub第三方账户获取
-
- 进士 2019年总版新获得的技术专家分排名前十
-
-
金牌
2020年6月 总版技术专家分月排行榜第一
2020年5月 总版技术专家分月排行榜第一
2020年4月 总版技术专家分月排行榜第一
2020年3月 总版技术专家分月排行榜第一
-
-
to ch21st(风尘鸟.shannon)
没关系的
这个问题我觉得相当棘手
希望能号召更多的高手来研究一下这个问题
多谢你的热情帮助
-
本版专家分：443 -
procedure TForm1.Button2MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
ReleaseCapture;
Button2.Perform(WM_SYSCOMMAND,$f012,0);
end;
-
本版专家分：5734 -
看看这个《VB中用API实现文件拖放》
http://www.yesky.com/SoftChannel/72342371928637440/20030908/1726758.shtml
等级：
-
- 签到王者 累计签到获取，不积跬步，无以至千里，继续坚持！
-
- GitHub 绑定GitHub第三方账户获取
-
- 进士 2019年总版新获得的技术专家分排名前十
-
-
金牌
2020年6月 总版技术专家分月排行榜第一
2020年5月 总版技术专家分月排行榜第一
2020年4月 总版技术专家分月排行榜第一
2020年3月 总版技术专家分月排行榜第一
- springboot+springshiro实现简单的登陆注册模块
实现了登陆注册功能，并加入权限管理。以及一些安全认证措施，验证码，简单的csrf防范等。终有不足还望赐教。
- 无锁编程之自旋锁的C++实现
根据《多处理器编程的艺术》一书第七章“自旋锁与争用”编写的C++代码，演示了10种锁的实现。代码为本人学习研究所用，欢迎高手赐教。
- JSP影视资讯+论坛综合网开源代码
AJAX 实现异步调用，聊天室、验证用户、类似QQ等待图标功能模块； OSCACHE 实现缓存功能，另不频繁修改资源页面得到更快响应； FILEUPLOAD 实现文件上传； 自行设计的文本分割功能模块以及特色CSS样式，靠大家慢慢...
- 导出devexpress插件的GridControl控件中GridView表格中的数据到excel
使用说明： 只能导出导出devexpress插件的GridControl控件中GridView表格中的数据，表格中有什么数据导出什么数据，列顺序也不变。... 只是我初学C#的一个总结，代码没有进行优化，有不足之处还请各位高手赐教，谢谢
- STM32F103+ST7565R实现串行口
利用STM32F103和ST7565R实现串行口的驱动程序。背光直接接3.3V.字符滚动功能未能实现。若有实现的请赐教。
- MFC的能实现四则运算的简易计算器
或许存在个别问题，若有，欢迎指出！但我一直没想出如何加上括号运算的代码，所以大家若有想法，愿不惜赐教
- 来自于力扣的算法题的快排解法的一个 新手的解法,欢迎赐教
给你一个整数数组 nums，请你将该数组升序排列。 示例 1： 输入：nums = [5,2,3,1] 输出：[1,2,3,5] 示例 2： 输入：nums = [5,1,1,2,0,0] 输出：[0,0,1,1,2,5] ...来源：力扣（LeetCode） ...欢迎大牛来赐教
- 3维台球桌面版应用程序
默认安装到D盘，可以选择自己喜欢的磁盘，还在完善阶段，高手赐教。
- 求解多解数独的C语言代码
并非所有数独均只有一个解 该程序将为求解多解数独 欢迎各位高手赐教提高其效率
- c# windows mobile GPS源码
c#windows mobile 智能移动设备 PDA GPS应用 获取经度、维度、海拔 转换为十进制坐标系,请用带GSP手机测试，提示：室内无法获取经纬度，请到室外空旷的地方定位测试。 请用Microsoft Visual ...还请各位高手赐教。
- 动态规划最长递增子序列
动态规划最长递增子序列 已经实现 请大家赐教
- Matlab的双隐层的BP神经网络该如何创建-ANNBP2hiddenlayers.m
Matlab的双隐层的BP神经网络该如何创建-ANNBP2hiddenlayers.m 要求： 两输入、双隐含层（第一隐含层神经元个数可在4-20范围内变化，第二隐含层可在5-10范围内变化） ...请高手赐教！ 本人QQ ：41402066
- scrollView滑动，实现使用3张图片浏览全部的图片，对scrollView的优化
scrollView滑动，实现使用3张图片浏览全部的图片，对scrollView的优化,但是不能对图片进行缩放，想了很久都没做做到我想要的结果，所以直接把缩放的代码删除了，能实现的大神，还请赐教
- 百度图片批量自动下载python
百度图片批量下载，可以input关键词，修改，欢迎大家交流！需要requests库使用！ 如果有更好办法还望赐教
- 办公室收文登记 1.0特别版（内含注册机）
边写、边改，不久便诞生了这个小程序，现在的她在功能基本上实现了我当初的一些想法.一朋友见到 这个程序后建议我把它发布出来，想想也许真有人同我有着同样的需求，于是简单地加了 个注册模块，想在网上发布出来。...
- C# 调用vlc libvlc.dll
本软件是调用vlc动态库libvlc.dll实现的简单播放器，实现了播放器的一些常用的播放功能，遗憾的是没有能够实现循环播放，我的qq是543753343，希望有此方面的爱好者完成该功能，望赐教！ 我用的是vlc 0.9.9版本，由于...
- 电信宽带账号密码猜解器
没事琢磨了一个宽带PPPOE拨号程序，通过调用系统拨号连接，可对本地区PPPOE账号进行...没办法，只能一个一个猜，因为系统拨号连接只能同时供一个线程调用，不然用多线程就快多了。怎样才能加快猜解速度呢？请高手赐教！
- 情人节源码分享可以哄女友的 小白没技术含量不喜勿喷望大神赐教
情人节表白的网页源码，可以供大家参考一下，源码中有很多不足之处，希望能有大神不吝赐教，万分感谢。只是一些小代码，希望大家不要喷。本人初学者，打算来学习学习。
- QT C\S相互通信
1.客户端连接上服务端，服务端接收连接并发生hello tcp. 2.客户端通过已建立的连接，发数据给服务端，服务端接收并显示。...1已经实现，求教2怎么实现，总是出错，各种尝试都试了，愧于QT不会，忘大侠赐教。 谢谢！
- 交友小程序例子
交友小程序，支持关注、聊天、筛选匹配对象等功能。目前只提供前端源码供小伙伴赐教