| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 1265 人关注过本帖, 1 人收藏
标题:如何控制一个picturebox在另一个picturebox上跟随者鼠标移动而移动
只看楼主 加入收藏
wolf死神
Rank: 2
等 级:论坛游民
帖 子:25
专家分:27
注 册:2011-3-22
结帖率:66.67%
收藏(1)
已结贴  问题点数:20 回复次数:6 
如何控制一个picturebox在另一个picturebox上跟随者鼠标移动而移动
如何控制一个picturebox在另一个picturebox上跟随者鼠标移动而移动,鼠标按下选中,然后随着鼠标移动而移动,松开鼠标,就停止移动!
搜索更多相关主题的帖子: 移动 
2011-05-04 18:20
wube
Rank: 12Rank: 12Rank: 12
等 级:贵宾
威 望:23
帖 子:1820
专家分:3681
注 册:2011-3-24
收藏
得分:7 
是要换鼠标图案吧?然后再让点中的图跟着动?鼠标在图上图案会变~其实预设有可选​​~Picture1.MousePointer

或自订图形~
Picture1.MouseIcon =LoadPicture("Path")


Private Sub Picture1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
     'Get到鼠标原始位置
End Sub
再到~
Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
     '鼠标现在位置-鼠标原始位置=图案移动位置
End Sub

大概是这样做吧~

不要選我當版主
2011-05-04 19:28
zhuiis
Rank: 4
等 级:业余侠客
威 望:1
帖 子:201
专家分:286
注 册:2008-11-8
收藏
得分:7 
在 Form1 通用区定义变量:Dim Mx as long,My as long

1.需要移动的 picture2 控件要画在 picture1 控件中
picture2 的鼠标向下事件写入如下代码:
Private Sub Picture2_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Mx=x
My=y
End Sub
picture2 的鼠标移动事件写入如下代码:
Private Sub Picture2_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
if button=1 then
 if Mx-x>0 then picture2.left=picture2.left-Abs(Mx-x)'向左移
 if Mx-x<0 then picture2.left=picture2.left+Abs(Mx-x)'向右移
 if My-y>0 then picture2.top=picture2.top-Abs(My-y)'向上移
 if My-y<0 then picture2.top=picture2.top+Abs(My-y)'向上移
end if
End Sub

我没有测试,你明白我的意思就行。
2011-05-04 23:02
wube
Rank: 12Rank: 12Rank: 12
等 级:贵宾
威 望:23
帖 子:1820
专家分:3681
注 册:2011-3-24
收藏
得分:0 
也许你是在Frame里面拖动~
还要再加写一行~让PictureBox不会被鼠标拖到失踪~
Picture1.Container = Frame1

不要選我當版主
2011-05-04 23:27
wolf死神
Rank: 2
等 级:论坛游民
帖 子:25
专家分:27
注 册:2011-3-22
收藏
得分:0 
回复 2楼 wube
你好!
例如:picture1 box 和picture2 box  我的目的是鼠标左击picture box2 ,相当于mousedown 事件在picture2 box上,鼠标不松开,移动鼠标,希望在picture1 box上 随着鼠标的移动picture2 box 跟着鼠标移动,mousemove 事件在picture1 box上。
2011-05-05 14:20
wolf死神
Rank: 2
等 级:论坛游民
帖 子:25
专家分:27
注 册:2011-3-22
收藏
得分:0 
例如:picture1 box 和picture2 box  我的目的是鼠标左击picture box2 ,相当于mousedown 事件在picture2 box上,鼠标不松开,移动鼠标,希望在picture1 box上 随着鼠标的移动picture2 box 跟着鼠标移动,mousemove 事件在picture1 box上。
2011-05-05 14:21
Artless
Rank: 19Rank: 19Rank: 19Rank: 19Rank: 19Rank: 19
等 级:贵宾
威 望:103
帖 子:4211
专家分:28888
注 册:2009-4-8
收藏
得分:7 
图片附件: 游客没有浏览图片的权限,请 登录注册

无知
2011-05-05 23:48
快速回复:如何控制一个picturebox在另一个picturebox上跟随者鼠标移动而移动
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.036416 second(s), 8 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved