怎样才能使ListView控件中的项目的选中的光标进行上下移动呢?

[wujingyi88888]

怎样才能使ListView控件中的项目的选中的光标进行上下移动呢?

[DengXingJie]

直接上下用方向鍵啊

[wujingyi88888]

我是想通过单击按钮来实现将选中选项的光标的进行上下移动,这个怎么弄呢?

[wujingyi88888]

ding

[zq972]

Private Sub cmdUP_Click() '向上
Dim tmp As Integer
tmp = lv.SelectedItem.Index
If tmp <> 1 Then
lv.ListItems(tmp - 1).Selected = True

End If
lv.SetFocus
End Sub
Private Sub cmdDown_Click() '向下
Dim tmp As Integer
tmp = lv.SelectedItem.Index
If tmp <> lv.ListItems.Count Then
lv.ListItems(tmp + 1).Selected = True
End If
lv.SetFocus
End Sub

[shu_yun]

向下
If ListView2.SelectedItem.Index < ListView2.ListItems.Count Then
Set ListView2.SelectedItem = ListView2.ListItems(ListView2.SelectedItem.Index + 1)
End If
向上
If ListView2.SelectedItem.Index <>1 Then
Set ListView2.SelectedItem = ListView2.ListItems(ListView2.SelectedItem.Index -1)
End If

[fyming]

Private Sub cmdUp_Click()
On Error Resume Next

Dim str As String
Dim i As Long

With lstSort
If .ListIndex = 0 Then Exit Sub
i = .ListIndex
str = .List(i - 1)
.List(i - 1) = .List(i)
.List(i) = str
.ListIndex = i - 1
End With

End Sub

Private Sub cmdDown_Click()
On Error Resume Next

Dim str As String
Dim i As Long

With lstSort
If .ListIndex = .ListCount - 1 Then Exit Sub
i = .ListIndex
str = .List(i + 1)
.List(i + 1) = .List(i)
.List(i) = str
.ListIndex = i + 1
End With

End Sub