| 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
本新闻共 6页,当前在第 6页 1 2 3 4 5 6
|
设为首页
加入收藏
总编信箱
投稿或申请专栏请先 [登 陆]
