正在阅读:编程必学:控件的拖动和缩放技术全解编程必学:控件的拖动和缩放技术全解

2004-12-09 10:11 出处:CSDN 作者:liubin57416 责任编辑:linjixiong

  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

察看评论详细内容 我要发表评论
作者笔名 简短内容 发表时间
:
键盘也能翻页,试试“← →”键

关注我们

最新资讯离线随时看 聊天吐槽赢奖品