标题:求救,点击图片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



参与讨论请移步原网站贴子:https://bbs.bccn.net/thread-198643-1-1.html




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

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