服务器之家

服务器之家 > 正文

WinForm实现鼠标拖动控件跟随效果

时间:2022-02-22 13:31     来源/作者:MYsce

本文实例为大家分享了winform实现鼠标拖动控件跟随效果的具体代码,供大家参考,具体内容如下

1. 运行初始窗口如下:

WinForm实现鼠标拖动控件跟随效果

2. 拖动后效果如下:

WinForm实现鼠标拖动控件跟随效果

3. 代码如下:

?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
public partial class form1 : form
{
  /*
   * 理解了下面的几个概念,就能完全明白相对坐标的变化.
   * mouseeventargs e 为事件鼠标参数,因此,e.location 指示了位于事件源上的光标坐标
   * cursor.position 获取的是相对于用户屏幕的光标坐标
   * pointtoclient() 方法可将屏幕坐标 cursor.position 换算成工作区的坐标
   * 因此,换算后的 cursor.position 减去 e.location 得到的始终是事件源的 location
  */
 
  /// <summary>
  /// 鼠标按下为true
  /// </summary>
  private bool mousedown;
 
  /// <summary>
  /// 鼠标在事件源的位置
  /// </summary>
  private int curx = 0;
  private int cury = 0;
 
  public form1()
  {
    initializecomponent();
  }
 
  private void controls_mousedown(object sender, mouseeventargs e)
  {
    curx = e.x;
    cury = e.y;
    mousedown = true;
    if (sender is textbox)
    {
      ((textbox)sender).cursor = cursors.arrow;
    }
  }
 
  private void controls_mousemove(object sender, mouseeventargs e)
  {
    if (mousedown)
    {
      // 获取当前屏幕的光标坐标
       point ptemp = new point(cursor.position.x, cursor.position.y);
      // 转换成工作区坐标
       ptemp = this.pointtoclient(ptemp);
      // 定位事件源的 location
      control control = sender as control;
      control.location = new point(ptemp.x - curx, ptemp.y - cury);       
    }
  }
 
  private void controls_mouseup(object sender, mouseeventargs e)
  {
    mousedown = false;
    if (sender is textbox)
    {
      ((textbox)sender).cursor = cursors.ibeam;
    }
  }
}

以上就是本文的全部内容,希望对大家的学习有所帮助,也希望大家多多支持服务器之家。

原文链接:https://blog.csdn.net/MYsce/article/details/72670446

标签:

相关文章

热门资讯

蜘蛛侠3英雄无归3正片免费播放 蜘蛛侠3在线观看免费高清完整
蜘蛛侠3英雄无归3正片免费播放 蜘蛛侠3在线观看免费高清完整 2021-08-24
2022年最旺的微信头像大全 微信头像2022年最新版图片
2022年最旺的微信头像大全 微信头像2022年最新版图片 2022-01-10
背刺什么意思 网络词语背刺是什么梗
背刺什么意思 网络词语背刺是什么梗 2020-05-22
yue是什么意思 网络流行语yue了是什么梗
yue是什么意思 网络流行语yue了是什么梗 2020-10-11
2020微信伤感网名听哭了 让对方看到心疼的伤感网名大全
2020微信伤感网名听哭了 让对方看到心疼的伤感网名大全 2019-12-26
返回顶部