Question

vb中怎么通过拖动控件移动窗口啊

Answer 1

Dim xCursor As Long, yCursor As Long
Private Sub Picture1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button And vbLeftButton Then
xCursor = X: yCursor = Y
End If
End Sub
Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button And vbLeftButton Then
Me.Move Me.Left - xCursor + X, Me.Top - yCursor + Y
End If
End Sub '

追问

第一句是什么

追答

声明变量啊

Answer 2

代码私信你了，看你私信。在这里发容易提交失效。