用拇指移动元素

时间:2015-02-06 09:47:33

标签: wpf vb.net

尝试使用拇指拖动增量移动元素(这是在元素类中) E.g:

Private Sub MVEthumb_DragDelta(ByVal sender As Object, ByVal e As System.Windows.Controls.Primitives.DragDeltaEventArgs)
    Me.Margin = New Thickness(Me.Margin.Left + e.HorizontalChange, Me.Margin.Top + e.HorizontalChange, 0, 0)
End Sub

不幸的是,这只会导致元素沿对角线移动(NWSE),而我需要它在所有方向上移动(而不仅仅是从NW移动到SE)。

非常感谢任何有关此问题的帮助,红色

1 个答案:

答案 0 :(得分:1)

输入错误 - 您将e.HorizontalChange添加到左侧和顶部。

Me.Margin = New Thickness(Me.Margin.Left + e.HorizontalChange, Me.Margin.Top + e.HorizontalChange, 0, 0)

应该是:

Me.Margin = New Thickness(Me.Margin.Left + e.HorizontalChange, Me.Margin.Top + e.VerticalChange, 0, 0)