wmt1708

摘要： 单击鼠标时 '得到需要拖拽的对象 ，修改此处 Dim item As Rectangle = sender '获取鼠标当前位置 mouseVerticalPosition = e.GetPosition(Nothing).Y mouseHorizontalPosition = e.GetPosition(Nothing).X ... 阅读全文