| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 814 人关注过本帖
标题:如何完成picture控件上的图片拖放到窗体的任意位置呀?
只看楼主 加入收藏
跳舞的天使
Rank: 1
等 级:新手上路
帖 子:33
专家分:0
注 册:2006-4-13
收藏
 问题点数:0 回复次数:5 
如何完成picture控件上的图片拖放到窗体的任意位置呀?
我现在做毕设,要用VB设计个界面,完成用鼠标将picturebox控件上的图片拖放到窗体的任意位置,效果是图片的移动和复制!哪位大侠可以帮助小女子一下呀!很着急!
搜索更多相关主题的帖子: picture 控件 窗体 位置 
2006-04-13 11:43
griefforyou
Rank: 6Rank: 6
等 级:贵宾
威 望:27
帖 子:3336
专家分:0
注 册:2004-4-15
收藏
得分:0 
太简单了吧

天津网站建设 http://www./
2006-04-14 22:35
跳舞的天使
Rank: 1
等 级:新手上路
帖 子:33
专家分:0
注 册:2006-4-13
收藏
得分:0 

如果认为简单就给我个程序吧!我是初学者,有很多障碍,得一点一点地学呀,还希望大家多多帮助呀!谢谢啦!

2006-04-15 03:04
lnhsgj
Rank: 1
等 级:新手上路
帖 子:30
专家分:0
注 册:2006-4-8
收藏
得分:0 

Private x1, y1 As Long
Private Sub Picture1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
x1 = X
y1 = Y
End Sub

Private Sub Picture1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
Picture1.Left = Picture1.Left + (X - x1)
Picture1.Top = Picture1.Top + (Y - y1)
End Sub


2006-04-15 11:05
跳舞的天使
Rank: 1
等 级:新手上路
帖 子:33
专家分:0
注 册:2006-4-13
收藏
得分:0 
我要完成的是建立电动机的虚拟实验室,要搭建一个电动机传动的界面,界面上有要有电动机、电阻等图符,运行后用户可以将控件上的图符(如picturebox控件)拖出到窗体的任意位置,原图符控件不能消失,且要使移出的图符还可以随意移动,图符可以完成任意旋转,最后将拖出的图符用线连接起来。

大家帮我再出出主意吧!
2006-04-15 22:15
跳舞的天使
Rank: 1
等 级:新手上路
帖 子:33
专家分:0
注 册:2006-4-13
收藏
得分:0 

大家快来帮帮我吧!

2006-04-18 20:12
快速回复:如何完成picture控件上的图片拖放到窗体的任意位置呀?
数据加载中...
 
   



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

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