您的位置：首页 → 技术开发 → .Net 专栏 → 控件的拖动和缩放技术教程

控件的拖动和缩放技术教程

时间：2009/5/29 11:26:00来源：本站整理作者：我要评论(0)

控件的拖动和缩放技术教程一、光标的指示

　　当光标移动到要拖动或缩放的控件上时，应显示相应的动作箭头。定义一个枚举的变量来标识对应的状态。

　　Enum EnumMousePointPosition

　　MouseSizeNone = 0 '无

　　MouseSizeRight = 1 '拉伸右边框

　　MouseSizeLeft = 2 '拉伸左边框

　　MouseSizeBottom = 3 '拉伸下边框

　　MouseSizeTop = 4 '拉伸上边框

　　MouseSizeTopLeft = 5 '拉伸左上角

　　MouseSizeTopRight = 6 '拉伸右上角

　　MouseSizeBottomLeft = 7 '拉伸左下角

　　MouseSizeBottomRight = 8 '拉伸右下角

　　MouseDrag = 9 '鼠标拖动

　　End Enum

　　Dim m_MousePointPosition As EnumMousePointPosition

　　在MouseMove事件中读取进入控件的光标位置，用下面函数判断光标的状态。

　　m_MousePointPosition = MousePointPosition(sender.Size, e)

　　按对应的状态显示光标形状

　　Select Case m_MousePointPosition

　　Case EnumMousePointPosition.MouseSizeNone

　　Me.Cursor = Cursors.Arrow       '箭头

　　Case EnumMousePointPosition.MouseDrag

　　Me.Cursor = Cursors.SizeAll     '四方向

　　Case EnumMousePointPosition.MouseSizeBottom

　　Me.Cursor = Cursors.SizeNS      '南北

　　Case EnumMousePointPosition.MouseSizeTop

　　Me.Cursor = Cursors.SizeNS      '南北

　　Case EnumMousePointPosition.MouseSizeLeft

　　Me.Cursor = Cursors.SizeWE      '东西

　　Case EnumMousePointPosition.MouseSizeRight

　　Me.Cursor = Cursors.SizeWE      '东西

　　Case EnumMousePointPosition.MouseSizeBottomLeft

　　Me.Cursor = Cursors.SizeNESW    '东北到南西

　　Case EnumMousePointPosition.MouseSizeBottomRight

　　Me.Cursor = Cursors.SizeNWSE    '东南到西北

　　Case EnumMousePointPosition.MouseSizeTopLeft

　　Me.Cursor = Cursors.SizeNWSE    '东南到西北

 

相关阅读 director动画技术教程C++中接口与实现分离技术教程数据库加密技术教程Linux服务器远程控制技术教程php缓存技术教程 PHP中9大缓存技术总结动画缩放调为05x的坏处双点医院缩放游戏画面方法 双点医院怎么缩放游戏画面“煮豆燃豆萁，豆在釜中泣。本是同根生，相煎何太急。”造成此事

文章评论

查看所有0条评论>>

发表评论

我来说两句...

提交评论