以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  控件随鼠标动  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=72560)

--  作者:cyl123
--  发布时间:2015/8/1 9:48:00
--  控件随鼠标动
请教,如何代码设置控件随鼠标动?
--  作者:逛逛
--  发布时间:2015/8/1 10:21:00
--  
http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=49697&replyID=&skin=1
--  作者:cyl123
--  发布时间:2015/8/1 10:31:00
--  
如何让一个控件直接再窗口加入,置顶,随鼠标移动,不授其他控件影响。
--  作者:有点蓝
--  发布时间:2015/8/1 11:21:00
--  
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目3.table


--  作者:cyl123
--  发布时间:2015/8/1 11:35:00
--  
不满足要求呀,例子只能是窗口没有其他控件有用。但加入面板后,在面板上移动就无效了

当然,也不能在面板上设置mousemove实现。
[此贴子已经被作者于2015/8/1 11:36:55编辑过]

--  作者:有点蓝
--  发布时间:2015/8/1 11:47:00
--  
你把e.Form.Panel.MouseMove 这句换一下
e.Form.Controls("面板名").baseControl.MouseMove
[此贴子已经被作者于2015/8/1 11:47:53编辑过]

--  作者:cyl123
--  发布时间:2015/8/1 11:52:00
--  
错误
图片点击可在新窗口打开查看此主题相关图片如下:qq截图20150801115219.png
图片点击可在新窗口打开查看

--  作者:有点蓝
--  发布时间:2015/8/1 12:15:00
--  
要指定类型,你换成这样
Dim f As Windows.Forms.Panel = e.Form.Controls("Panel1").baseControl
AddHandler f.MouseMove ,AddressOf Form_MouseMove

--  作者:大红袍
--  发布时间:2015/8/2 10:45:00
--  
 
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:可移动的控件_例子.table