我动态增加了控件,点击控件后,当鼠标移到文本控件下边中部附近时鼠标编程向下调整大小形状
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编辑过]