【发布时间】:2018-07-27 15:09:55
【问题描述】:
我想在我的表单中拖动时显示拖动的控件。我有一个可拖动的控件列表(文本框和图片框)。我想一直显示拖动的控件,只要控件被拖动,即使用户不能放下它。我也有拖动图片框的问题。它显示控件的拖动图像,但它会闪烁。
图片框拖动反馈代码
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
有什么想法吗?
【问题讨论】:
标签: vb.net drag-and-drop