鼠标拖拽过程
摘要:
单击鼠标时 '得到需要拖拽的对象 ,修改此处 Dim item As Rectangle = sender '获取鼠标当前位置 mouseVerticalPosition = e.GetPosition(Nothing).Y mouseHorizontalPosition = e.GetPosition(Nothing).X ... 阅读全文
posted @ 2009-03-22 00:31 wmt 阅读(326) 评论(0) 推荐(0) 编辑