Question

我想在拖动表单时显示拖动的控件。我有一个可拖动的控件列表（文本框和图片框）。只要用户拖动控件，即使用户不能放下它，我也要一直显示它。拖动图片框也有一个问题。它显示了控件的拖动图像，但是闪烁。

图片框拖动反馈的代码

Private Sub qrCode_GiveFeedback(ByVal sender As Object, ByVal e As GiveFeedbackEventArgs) Handles QRCodeDrag.GiveFeedback
    Dim bitmap As Bitmap
    bitmap = New Bitmap(QRCodeDrag.Width, QRCodeDrag.Height)
    QRCodeDrag.DrawToBitmap(bitmap, New Rectangle(Point.Empty, bitmap.Size))
    'bitmap.MakeTransparent(Color.White)

    Dim cursor As New Cursor(bitmap.GetHicon)
    Cursor.Current = cursor
End Sub

有什么想法吗？

Answer 1

我忘记添加

e.UseDefaultCursors = False

这解决了闪烁的问题

在拖动vb.net时显示被拖动的项目

1 个答案: