以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  鼠标形状的属性是哪个  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=58918)
--  作者：jiangxun
--  发布时间：2014/10/26 14:14:00
--  鼠标形状的属性是哪个
请问鼠标形状的属性是那个
--  作者：有点甜
--  发布时间：2014/10/26 14:48:00
--  
 什么意思，你想做什么。
--  作者：jiangxun
--  发布时间：2014/10/26 14:57:00
--  

我动态增加了控件，点击控件后，当鼠标移到文本控件下边中部附近时鼠标编程向下调整大小形状

If e.Button = MouseButtons.Left Then
    If (e.x > (e.Sender.Left + e.Sender.Width/2 - 2)) And (e.x < (e.Sender.Left + e.Sender.Width/2 + 2))  And (e.y > (e.Sender.Top + e.Sender.height - 2)) And (e.y < (e.Sender.Top + e.Sender.height + 2)) Then
        e.Sender.BaseControl.Cursor = Windows.Forms.Cursors.SizeNS
        e.Sender.Height = e.Sender.Height + e.y - vars("y")
       
    Else
        If (e.x > (e.Sender.Left + e.Sender.Width - 2)) And (e.x < (e.Sender.Left + e.Sender.Width + 2)) And (e.y > (e.Sender.Top + e.Sender.height/2 - 2)) And (e.y < (e.Sender.Top + e.Sender.height/2 + 2)) Then
            e.Sender.BaseControl.Cursor = Windows.Forms.Cursors.SizeNWSE
            e.Sender.Width = e.Sender.Width + e.x - vars("x")
           
        Else
            If e.Sender.Name.StartsWith("textbox") Then
                e.Sender.Left += e.x - vars("x")
                e.Sender.top += e.y - vars("y")
            End If
        End If
        If e.Button = MouseButtons.Left Then
            If e.Sender.Name.StartsWith("Test") Then
                e.Sender.Left += e.x - vars("x")
                e.Sender.top += e.y - vars("y")
            End If
        End If
    End If

End If
但是不行


 

[此贴子已经被作者于2014-10-26 14:57:57编辑过]
--  作者：有点甜
--  发布时间：2014/10/26 15:05:00
--  

System.Windows.Forms.Cursor.Current = System.Windows.Forms.Cursors.Cross

 

http://msdn.microsoft.com/zh-cn/library/vstudio/system.windows.forms.cursors.aspx