在 DragDrop VB.NET 2010 中将光标更改为反馈

Question

正在开发 DragDrop 应用程序。我有一个类对象（作为对象构建），它有一个为 DragDrop 启用的 GroupBox。

在课堂上，我已经设置了它，以便光标在进入组框、离开组框、鼠标在组框内按下并且拖/放工作时会发生变化。我还在类对象中设置了一个标签，并更改了该标签中的文本。基本上，标签中的文本按预期发生变化，包括当我拖动对象时出现的“反馈”，但光标顽固地保持为指针。这就是当我调试该类时或在构建该类后它作为主程序的一部分运行时的情况。

这是班级中设置的替补。

Private Sub GroupBoxSourceMouseDown(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GroupBoxSource.MouseDown
    GroupBoxSource.DoDragDrop(GroupBoxSource.Text, DragDropEffects.Copy)
    lbl1.Text = "DOWN"
End Sub

Private Sub GroupBoxSourceMouseMove(ByVal sender As Object, ByVal e  AsSystem.Windows.Forms.MouseEventArgs) Handles GroupBoxSource.MouseMove
    If bolDragDropMouseDown Then
        ' Initiate dragging.
        'GroupBoxSource.DoDragDrop(GroupBoxSource.Text, DragDropEffects.Copy)
    End If
    bolDragDropMouseDown = False
    lbl1.Text = "MOVE"
End Sub

Private Sub GroupBoxSourceMouseEnter(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GroupBoxSource.MouseEnter
    Windows.Forms.Cursor.Current = Cursors.Hand
    lbl1.Text = "ENTER"
End Sub

Private Sub GroupBoxSourceMouseLeave(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GroupBoxSource.MouseLeave
    Windows.Forms.Cursor.Current = Cursors.Arrow
    lbl1.Text = "LEAVE"
End Sub

Private Sub GroupBoxSourceDragDropFeedback(ByVal sender As Object, ByVal e As GiveFeedbackEventArgs) Handles GroupBoxSource.GiveFeedback
    Windows.Forms.Cursor.Current = Cursors.SizeAll
    lbl1.Text = "FEEDBACK"
End Sub

现在进入不寻常的阶段。我决定在主程序（在表单上定义了类对象）的 FormLoad 期间将光标更改为手形，但没有任何变化。无奈之下，我设置了一个 1mS 计时器，并对其进行了编码，将光标更改为一只手，果然，光标现在是一只手，但当我移动光标时，瞬间会弹回到指针，所以看起来好像是其他东西导致了光标恢复到其默认值。

Answer 1

您必须在 GiveFeedback 事件处理程序中设置 e.UseDefaultCursor = False 才能使光标更改可见。如果没有它，拖放操作将始终使用默认光标。

当鼠标悬停在控件上时获得的光标由 Control.Cursor 属性设置。更改 Cursor.Current 属性没有任何效果，该属性会导致当您移动鼠标时光标立即变回来。

Answer 2

要轻松更改光标，请单击表单并调出属性。然后转到光标并将其更改为您想要的任何内容。