自定義調整大小鼠標位置不同，然後光標位置

Question

我想調整一個自定義窗口，所以windowstyle=none。
對於我不要想使用一些Open-Sourelib。 所以我通過google找到這個article。 後，我改變了代碼一點，因爲我想用一個按鈕，而不是一個矩形調整大小的代碼如下所示：

Private bottomResize As Boolean = False 
    Private initBtmY As Double 

    Private Sub BottomResizeRect_MouseEnter _ 
    (ByVal sender As Object, ByVal e As _ 
    System.Windows.Input.MouseEventArgs) _ 
    Handles btResizeAndFold.MouseEnter 

     bottomResize = False 
     'Console.WriteLine("Mouse Enter called") 
    End Sub 

    Dim boing As Boolean = False 
    Private Sub BottomResizeRect_MouseLeftButtonDown _ 
    (ByVal sender As Object, ByVal e As _ 
    System.Windows.Input.MouseButtonEventArgs) _ 
    Handles btResizeAndFold.PreviewMouseLeftButtonDown 
     bottomResize = True 
     boing = True 
     'Console.WriteLine("Mouse left down called") 

     'Get the initial Y coordinate 
     'cursor location on our window 
     initBtmY = e.GetPosition(Me).Y 
    End Sub 

    Private Sub BottomResizeRect_MouseLeftButtonUp _ 
    (ByVal sender As Object, 
    ByVal e As System.Windows.Input.MouseButtonEventArgs) _ 
    Handles btResizeAndFold.PreviewMouseLeftButtonUp 
     'Console.WriteLine("Mouse left up called") 
     bottomResize = False 
     btResizeAndFold.ReleaseMouseCapture() 
    End Sub 

    Private Sub BottomResizeRect_MouseMove _ 
    (ByVal sender As Object, ByVal e As _ 
    System.Windows.Input.MouseEventArgs) _ 
    Handles btResizeAndFold.PreviewMouseMove 
     'Get the new Y coordinate cursor location 

     Dim newBtmY As Double = e.GetPosition(Me).Y 
     'Get the change between the initial and 
     'new cursor location 
     Dim diff As Double = initBtmY - newBtmY 
     'Minimum window height 
     Dim minHeight As Integer = 200 
     Dim differnceConstant = 5 

     If bottomResize = True And (diff > differnceConstant Or diff < (differnceConstant * -1)) Then 
      'Let our rectangle capture the mouse 
      btResizeAndFold.CaptureMouse() 

      Dim newHeight = e.GetPosition(Me).Y - diff 

      If newHeight > minHeight Then 
       Me.Height = newHeight 
      End If 

     End If 
    End Sub 

現在的問題是，如果我嘗試按調整我的窗口鼠標左鍵然後拖動鼠標，我的窗口高度的增加/減少與我的鼠標光標的移動不同步，所以問題是：如何使鼠標同步的移動對窗口的增長

Answer 1

取代按鈕，您可以使用Thumb，它提供適合您的要求的DragDelta事件：

https://wpf.2000things.com/2012/12/19/715-using-the-thumb-control-to-drag-objects-on-a-canvas/

這樣你不需要捕捉鼠標（你不應該把CaptureMouse放在PreivewMouseMove中，它會做很多）。

而只是將高度設置爲當前高度+三角洲Y.