Private ctrlIsResizing As Boolean = False

    '控件的大小矩形

    Private ctrlRectangle As System.Drawing.Rectangle = New System.Drawing.Rectangle()

    Private ctrl As Control '操作的控件

    Private frm As Form '控件的父親窗體

    '構造函數

    Public Sub New(ByVal c As Control, ByVal frm As Form)

        ctrl = c

        Me.frm = frm

        '標題欄和橫向滾動條以及邊框的寬

        Me.Htap = Me.frm.Height - Me.frm.ClientRectangle.Height

        '縱向滾動條和邊框的寬

        Me.Wtap = Me.frm.Width - Me.frm.ClientRectangle.Width

        AddHandler ctrl.MouseDown, AddressOf MouseDown

        AddHandler ctrl.MouseMove, AddressOf MouseMove

        AddHandler ctrl.MouseUp, AddressOf MouseUp

    End Sub

    '鼠標按下后的處理

    Private Sub MouseDown(ByVal sender As Object, ByVal e As MouseEventArgs)

        If frm Is Nothing Then

            Return

        End If

        MessageBox.Show(e.Y.ToString)

        MessageBox.Show((Me.ctrl.Height - 10).ToString)

        MessageBox.Show(e.X.ToString)

        MessageBox.Show((Me.ctrl.Width - 10).ToString)

        '設置第一次有效單擊的范圍

        If e.X < Me.ctrl.Width - 10 OrElse e.Y < Me.ctrl.Height - 10 Then

            Me.IsMoving = True

            '指定要繪制的虛線框的坐標（相對屏幕）

            Me.ctrlLeft = Me.frm.DesktopLocation.X + Me.Wtap + Me.ctrl.Left

            Me.ctrlTop = Me.frm.DesktopLocation.Y + Me.Htap + Me.ctrl.Top

[1] [2] [3]  下一頁