label控件没有句柄如何在picturebox中用鼠标拖动

Question

窗体和按钮等控件可以用鼠标拖动，但是label没有句柄是不是就没法用sendmessage移动。怎么版？

Answer 1

//当然，如果是自己的程序的话，就可以很容易的实现了
下面的代码适合所有有mouse事件的控件Dim PrevX As Long, PrevY As LongPrivate Sub Label1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
PrevX = X: PrevY = Y
End SubPrivate Sub Label1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 1 Then Label1.Move Label1.Left + X - PrevX, Label1.Top + Y - PrevY
End Sub

Answer 2

使用MOVE方法就可以了，楼主不要想得太复杂了。
楼上蓝啤的思路和我一样，不罗嗦了。