| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 2501 人关注过本帖
标题:求救,点击图片picturebox移动窗体的问题。。。
只看楼主 加入收藏
goodwellxp
Rank: 1
等 级:新手上路
帖 子:13
专家分:0
注 册:2007-12-6
收藏
 问题点数:0 回复次数:3 
求救,点击图片picturebox移动窗体的问题。。。
请教高手,我在窗体里面放了个picturebox控件,想当鼠标点中控件不松手的时候,移动鼠标时,整个窗体随之移动。请问在picturebox里的mousedown里应该怎样写代码?
谢谢
搜索更多相关主题的帖子: picturebox 窗体 鼠标 求救 控件 
2008-01-24 23:22
fairy4
Rank: 4
等 级:贵宾
威 望:10
帖 子:738
专家分:267
注 册:2007-11-1
收藏
得分:0 
Public X, Y As Integer
    Private Sub PictureBox1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseDown
        X = e.X : Y = e.Y
    End Sub

    Private Sub PictureBox1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseMove
        If X = e.X And Y = e.Y Then Exit Sub
        If e.Button = Windows.Forms.MouseButtons.Left Then
            Me.Left = Me.Left + e.X - X
            Me.Top = Me.Top + e.Y - Y
        End If
    End Sub

一个人只有一个心脏,却有两个心房。一个住着快乐;一个住着悲伤。不要笑得太大声,不然会吵醒旁边的悲伤
2008-01-25 08:36
goodwellxp
Rank: 1
等 级:新手上路
帖 子:13
专家分:0
注 册:2007-12-6
收藏
得分:0 
谢谢,我去试试
2008-01-26 11:28
goodwellxp
Rank: 1
等 级:新手上路
帖 子:13
专家分:0
注 册:2007-12-6
收藏
得分:0 
成功了,谢谢
2008-01-26 12:00
快速回复:求救,点击图片picturebox移动窗体的问题。。。
数据加载中...
 
   



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

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