ElseIf e.Y > -1 * Band + Size.Height Then Return EnumMousePointPosition.MouseSizeBottom Else Return EnumMousePointPosition.MouseDrag End If End If Else Return EnumMousePointPosition.MouseSizeNone End If End Function Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim Button As New Button Controls.Add(Button) AddHandler Button.MouseDown, AddressOf MyMouseDown AddHandler Button.MouseMove, AddressOf MyMouseMove AddHandler Button.MouseLeave, AddressOf MyMouseLeave End Sub End Class |
正在阅读:编程必学:控件的拖动和缩放技术全解编程必学:控件的拖动和缩放技术全解
2004-12-09 10:11
出处:CSDN
责任编辑:linjixiong
键盘也能翻页,试试“← →”键