从移动ListView项目

这是一个简单，但非常罕见，一个例子，我们可以做的Visual Basic。移动（通过代码）ListView中的一个要素。

需要一个按钮，形成一个ListView和2：

现在，填补例如ListView中的一些数据，我们将在相同的Load事件：


ListView1.Items.Add("Carlos")
ListView1.Items.Add("Marcelo")
ListView1.Items.Add("Damian")
ListView1.Items.Add("Susana")
ListView1.Items.Add("Gerardo")
ListView1.Items.Add("Claudia")
ListView1.Items.Add("Marta")
ListView1.Items.Add("Liliana")
ListView1.Items.Add("Eliseo")
ListView1.Items.Add("Agustin")
ListView1.Items.Add("Camila")
ListView1.Items.Add("Lucas")
ListView1.Items.Add("Jorge")
ListView1.Items.Add("Mabel")
ListView1.Items.Add("Natalia")
ListView1.Items.Add("Gabriela")
ListView1.Items.Add("Paula")
ListView1.Items.Add("Matias")
ListView1.Items.Add("Martin")
ListView1.Items.Add("Juan")
ListView1.Items.Add("Maria")
ListView1.Items.Add("Abel")
ListView1.Items.Add("Pedro")

ListView1.FullRowSelect =真
ListView1.MultiSelect =假

ListView1.HideSelection =假

请注意，我们也seteado三个非常重要的属性：FullRowSelect = true来选择一个项目，该行被标记对面， 多选= False来只能选择一个项目，HideSelection = False来总是看到什么项目被选中。

然后在向上按钮的单击事件：

If ListView1.SelectedIndices.Count > 0 Then
Try
Dim temporal As String
temporal = ListView1.Items(ListView1.FocusedItem.Index - 1).Text

ListView1.Items（ListView1.FocusedItem.Index - 1）。文本= ListView1.FocusedItem.Text
ListView1.FocusedItem.Text =临时

ListView1.Items.Item（ListView1.FocusedItem.Index - 1）。=真正的选择
ListView1.Items.Item（ListView1.FocusedItem.Index - 1）。=真正的聚焦

当然作为异常捕捉
蜂鸣（）
完尝试
其他
MsgBox（“你必须从列表中选择一个项目。”）
如果完

和向下按钮单击事件：

If ListView1.SelectedIndices.Count > 0 Then
Try
Dim temporal As String
temporal = ListView1.Items(ListView1.FocusedItem.Index + 1).Text

ListView1.Items（ListView1.FocusedItem.Index + 1）。文本= ListView1.FocusedItem.Text
ListView1.FocusedItem.Text =临时

ListView1.Items.Item（ListView1.FocusedItem.Index + 1）。=真正的选择
ListView1.Items.Item（ListView1.FocusedItem.Index + 1。）=真正的聚焦

当然作为异常捕捉
蜂鸣（）
完尝试
其他
MsgBox（“你必须从列表中选择一个项目。”）
如果完

这是所有的，可以运行程序 ，证明自己的作品。 我离开你的运行progrm快照：

我希望像我一样，将是非常有益的。