控件移动

Question

这个编程方法很好用：Private lngXs As Long
Private lngYs As LongPrivate Sub Form_Load()
    lngXs = -1
End SubPrivate Sub Picture1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    lngXs = X
    lngYs = Y
End SubPrivate Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    If lngXs >= 0 Then
        With Picture1
            .Move .Left - lngXs + X, .Top - lngYs + Y
        End With
    End If
End SubPrivate Sub Picture1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
    lngXs = -1
End Sub

Answer 1

如果仅仅要移动，用Un1的方法是可以的，只是在MouseMove事件中使用SetBounds函数即可，如果要自由缩放要使用透明窗口，我有示例代码，给我EMail， 我发一份给你.

Answer 2

我有该构件。在程序运行后，能对诸如TEdit, TButton, TPanel等可视构件进行拖动，放大和缩小，需要的话请E-mail给我：[email protected]

Answer 3

Michaelyfj网友，请给我一份：
MY EMAIL ：[email protected]

Answer 4

TO PJY:
    你准备给我多少分啊！少了我可不干