如何将listview的显示项上移，下移，置顶，置尾？

Question

Dim itemX As ListItem
    ListView1.ListItems.Clear
    rs.Open "select  * from " + tv1.SelectedItem.Text, conn
    For icol = 0 To rs.Fields.Count - 1
        Set itemX = ListView1.ListItems.Add(, , icol + 1)
        itemX.SubItems(1) = rs.Fields(icol).Name
        itemX.SubItems(2) = rs.Fields(icol).Type
        itemX.SubItems(3) = rs.Fields(icol).DefinedSize
        itemX.SubItems(4) = Iif(rs.Fields(icol).Attributes And adFldIsNullable , "Y", "N")
    Next icol
    rs.Close

Answer 1

Private Sub Command1_Click()
    Dim itemx As ListItem
    Set itemx = ListView1.SelectedItem
    If itemx Is Nothing Then Exit Sub
    If itemx.Index >= ListView1.ListItems.Count Then Exit Sub
    ListView1.ListItems.Item(itemx.Index + 1).Selected = True
    ListView1.SetFocus
End SubPrivate Sub Command2_Click()
    Dim itemx As ListItem
    Set itemx = ListView1.SelectedItem
    If itemx Is Nothing Then Exit Sub
    If itemx.Index <= 1 Then Exit Sub
    ListView1.ListItems.Item(itemx.Index - 1).Selected = True
    ListView1.SetFocus
End SubPrivate Sub Command3_Click()
    ListView1.ListItems.Item(1).Selected = True
    ListView1.SetFocus
End SubPrivate Sub Command4_Click()
    ListView1.ListItems.Item(ListView1.ListItems.Count).Selected = True
    ListView1.SetFocus
End SubPrivate Sub Form_Load()
    Dim itemx As ListItem
    With ListView1
        .ColumnHeaders.Add , , "序号"
        .ColumnHeaders.Add , , "文件路径及名称"
        .FullRowSelect = True
        .GridLines = True
        Set itemx = .ListItems.Add(, , "1")
        itemx.SubItems(1) = "c:\db.txt"
        Set itemx = .ListItems.Add(, , "2")
        itemx.SubItems(1) = "c:\1.bmp"
        Set itemx = .ListItems.Add(, , "3")
        itemx.SubItems(1) = "c:\db.txt"
        Set itemx = .ListItems.Add(, , "4")
        itemx.SubItems(1) = "c:\1.bmp"
        Set itemx = .ListItems.Add(, , "5")
        itemx.SubItems(1) = "c:\db.txt"
        Set itemx = .ListItems.Add(, , "6")
        itemx.SubItems(1) = "c:\1.bmp"
        .View = lvwReport
    End With
    
    Command1.Caption = "下移"
    Command2.Caption = "上移"
    Command3.Caption = "置顶"
    Command4.Caption = "置底"
End Sub

Answer 2

'Next
Private Sub Command1_Click()
    Dim strTemp As String
    If ListView1.ListItems.Count = 0 Then Exit Sub
    If ListView1.SelectedItem.Index < ListView1.ListItems.Count Then
        strTemp = ListView1.SelectedItem.Text
        ListView1.SelectedItem.Text = ListView1.ListItems(ListView1.SelectedItem.Index + 1).Text
        ListView1.ListItems(ListView1.SelectedItem.Index + 1).Text = strTemp
        ListView1.ListItems(ListView1.SelectedItem.Index + 1).Selected = True
        ListView1.SelectedItem.EnsureVisible
    End If
End Sub'Previous
Private Sub Command2_Click()
    Dim strTemp As String
    If ListView1.ListItems.Count = 0 Then Exit Sub
    If ListView1.SelectedItem.Index <> 1 Then
        strTemp = ListView1.SelectedItem.Text
        ListView1.SelectedItem.Text = ListView1.ListItems(ListView1.SelectedItem.Index - 1).Text
        ListView1.ListItems(ListView1.SelectedItem.Index - 1).Text = strTemp
        ListView1.ListItems(ListView1.SelectedItem.Index - 1).Selected = True
        ListView1.SelectedItem.EnsureVisible
    End If
End Sub'First
Private Sub Command3_Click()
    Dim strTemp As String
    If ListView1.ListItems.Count = 0 Then Exit Sub
    If ListView1.SelectedItem.Index <> 1 Then
        strTemp = ListView1.SelectedItem.Text
        ListView1.SelectedItem.Text = ListView1.ListItems(1).Text
        ListView1.ListItems(1).Text = strTemp
        ListView1.ListItems(1).Selected = True
        ListView1.SelectedItem.EnsureVisible
    End If
End Sub'Last
Private Sub Command4_Click()
    Dim strTemp As String
    If ListView1.ListItems.Count = 0 Then Exit Sub
    If ListView1.SelectedItem.Index <> ListView1.ListItems.Count Then
        strTemp = ListView1.SelectedItem.Text
        ListView1.SelectedItem.Text = ListView1.ListItems(ListView1.ListItems.Count).Text
        ListView1.ListItems(ListView1.ListItems.Count).Text = strTemp
        ListView1.ListItems(ListView1.ListItems.Count).Selected = True
        ListView1.SelectedItem.EnsureVisible
    End If
End SubPrivate Sub Form_Load()
    ListView1.ColumnHeaders.Add , , "Fields"
    ListView1.ListItems.Add , , "123"
    ListView1.ListItems.Add , , "456"
    ListView1.ListItems.Add , , "789"
    ListView1.HideSelection = False
End Sub简单的写了一下，你自己完善吧。^_^

Answer 3

知道了，终于知道了原来只是把TEXT值改变下，在把焦点定位，高！

Answer 4

原来只是把TEXT值改变下，在把焦点定位，高！都懂了
顶一下算了