2

我想在单个列表视图中拖放期间显示一条蓝线。这应该有助于识别拖动的行是在实际行之前还是之后被删除。（其他需要的事件，如 .DragEnter、.DragDrop 正在按预期工作）。

在没有 3rd 方列表视图控件的情况下，如何在 VB.NET 中绘制这样一条蓝线？
到目前为止，我发现了“GiveFeedback”事件：

Sub listView1_GiveFeedback(ByVal sender As Object, ByVal e As GiveFeedbackEventArgs) Handles listView1.GiveFeedback
    e.UseDefaultCursors = False
    Windows.Forms.Cursor.Current = Cursors.Cross

    '<--- Show the blue insertion line until row is dropped

End Sub

有人可以告诉我蓝色插入线的缺失代码吗？

4

3 回答 3

2

谢谢，为我指明了正确的方向！我在 .DragOver 事件中找到了所需的解决方案：

Sub ListView1_DragOver(sender As Object, e As System.Windows.Forms.DragEventArgs) Handles ListView1.DragOver
    Dim MousePointerCoordinates As Point = ListView1.PointToClient(Cursor.Position)
    Dim RowIndex As Integer = ListView1.InsertionMark.NearestIndex(MousePointerCoordinates)
    ListView1.InsertionMark.Index = RowIndex
End Sub

线条本身的颜色在 form.load 中定义

ListView1.InsertionMark.Color = Color.Blue
于 2013-10-22T16:37:56.723 回答
1

这应该有望为您指明正确的方向：

首先，设置ListView1.OwnerDraw = True

然后添加以下内容：

Private Sub ListView1_DrawItem(ByVal sender As Object, ByVal e As System.Windows.Forms.DrawListViewItemEventArgs) Handles ListView1.DrawItem
    e.DrawDefault = True

    'Do checks here if drag
    Dim Pos As Point = Me.ListView1.PointToClient(Cursor.Position)

    If Me.ListView1.GetItemAt(Pos.X, Pos.Y) Is e.Item Then
        e.Graphics.DrawLine(Pens.Blue, e.Bounds.Left, e.Bounds.Top, e.Bounds.Right, e.Bounds.Top)
    End If

End Sub

请注意这是粗略的，您需要添加代码以检查是否发生拖动。移动鼠标时，您还需要使列表视图（或至少列表视图项的区域）无效。

我建议您考虑创建一个继承自 listview 的新类，因为这将使您更容易管理代码

希望这有助于为您指明正确的方向...

于 2013-10-21T15:15:47.030 回答
0

我需要这样的东西，但有点不同。我想要实现的是画一条线，但根据索引的位置，这条线应该在特定项目之前或之后绘制。

示例：我有一个包含 5 个项目的列表视图。

  • 场景 1：将项目 4 移动到位置 2。线在项目 2 之前绘制。
  • 场景 2：将项目 1 移动到位置 5。线在项目 5 之后绘制。

这是我用来实现此目的的代码：

Private Sub lvDisplayed_DragOver(sender As Object, e As DragEventArgs) Handles lvDisplayed.DragOver
    Dim MousePointerCoordinates As Point = Me.lvDisplayed.PointToClient(Cursor.Position)
    Dim RowIndex As Integer = lvDisplayed.InsertionMark.NearestIndex(MousePointerCoordinates)
    Me.lvDisplayed.InsertionMark.AppearsAfterItem = Me.lvDisplayed.SelectedIndices(0) <= RowIndex
    Me.lvDisplayed.InsertionMark.Index = RowIndex
End Sub

而且您还需要设置InsertionMark.Color，我已将其设置为NEW。

Me.lvDisplayed.InsertionMark.Color = Color.DarkRed

希望这会有所帮助，因为我经常寻找这样的东西。

于 2015-08-27T09:45:33.753 回答