Question

WPF中的一个问题，我用VB不是C#。。

如何拖动无边框的窗体，注意是WPF。。。不要C#。

Answer 1

Private mousetool As Boolean = False
Private oPointClicked As Point
Private Sub Form1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles MyBase.MouseMove
If Me.mousetool = True Then '如果移动
Dim oMoveToPoint As Point
' 以当前鼠标位置为基础(, 找出目标位置)
oMoveToPoint = Me.PointToScreen(New Point(e.X, e.Y))
oMoveToPoint.Offset(Me.oPointClicked.X * -1, _
(Me.oPointClicked.Y + _
SystemInformation.CaptionHeight + _
SystemInformation.BorderSize.Height) * -1)
' 移动窗体
Me.Location = oMoveToPoint
End If
End Sub
用这个类（VB）

追问

貌似不能用。。。注意是WPF

追答

额……我只会VB……

追问

自己解决了。。。

Answer 2

Private Sub Window_MouseMove(ByVal sender As System.Object, ByVal e As System.Windows.Input.MouseEventArgs)
If e.LeftButton = MouseButtonState.Pressed Then
DragMove()
End If
End Sub

Answer 3

解决了就好