主题：[求助]行拖动问题

老师，你的方法正确，只要不重新生成图片，速度快多了。

老师，还有一个问题您没解决哟。

没办法，必须保存才能得到磁盘大小。

以下代码未能达到设计要求，请求改正。

以下代码写BeforeDropRow（接收到拖动过来的行时触发）事件中，生成listview时行的text值为行的index+1.

想实现：在拖动行后判断，listview中的行的顺序是否发生了改变，如果改变则显示spl.Panel1，否则则隐藏。

Dim lvw As WinForm.ListView = e.Form.Controls("图片略缩图")

Dim spl As WinForm.SplitContainer = e.Form.Controls("SplitContainer7")

Dim yn As Boolean = False   ''判断其顺序是否发生了改变

If lvw.Rows.Count > 0 Then   ''如果行数大于1

    'For Each  vr As WinForm.ListViewRow In lvw.Rows

For i As Integer = 0 To lvw.Rows.Count -1

        If lvw.Rows(i).Index + 1 <> lvw.Rows(i).text Then    ''如果当前行的文本值与当前行的id不相等,则说明已改变顺序

            yn = True

            Exit For

        End If

    Next

End If

spl.Panel1.Collapsed = Not  yn    '''如果顺序发生了改变,则显示确认工具栏,反之则隐藏.