移动从一个ListView的项目

这是一个简单，但非常罕见的例子，我们如何在Visual Basic。NET移动（代码）在ListView项目。

需要一个一个ListView和两个按钮的形式：

现在，例如一些数据填充ListView和在相同的Load事件：

 ListView1.Items.Add（“卡洛斯”）
 ListView1.Items.Add（“马塞洛”）
 ListView1.Items.Add（“达米安”）
 ListView1.Items.Add（“苏珊”）
 ListView1.Items.Add（“杰拉德”）
 ListView1.Items.Add（“克劳迪娅”）
 ListView1.Items.Add（“玛塔”）
 ListView1.Items.Add（“莉莉安娜”）
 ListView1.Items.Add（“以利沙”）
 ListView1.Items.Add（“奥古斯丁”）
 ListView1.Items.Add（“卡米拉”）
 ListView1.Items.Add（“卢卡斯”）
 ListView1.Items.Add（“豪尔赫”）
 ListView1.Items.Add（“美宝”）
 ListView1.Items.Add（“纳塔利娅”的）
 ListView1.Items.Add（“加布里埃拉”）
 ListView1.Items.Add（“保”）
 ListView1.Items.Add（“马蒂亚斯”）
 ListView1.Items.Add（“马丁”）
 ListView1.Items.Add（“约翰”）
 ListView1.Items.Add（“玛丽亚”）
 ListView1.Items.Add（“亚伯”）
 ListView1.Items.Add（“彼得”）

ListView1.FullRowSelect =真
ListView1.MultiSelect = FALSE

ListView1.HideSelection =假

请注意，我们也seteado三个非常重要的属性：FullRowSelect =真正为项目选择整行被标记，多选= false，这样，只有你可以选择一个项目，HideSelection = FALSE总是看到被选中的项目 。

然后在向上按钮的Click事件：

如果ListView1.SelectedIndices.Count> 0，则
尝试
昏暗的时间为字符串
 TEMP = ListView1.Items（ListView1.FocusedItem.Index  -  1）。文本

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

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

作为例外赶上前
音（）
最终的结局
其他
 MSGBOX（“你必须从列表中选择一个项目。”）
结束如果

向下按钮的Click事件：

如果ListView1.SelectedIndices.Count> 0，则
尝试
昏暗的时间为字符串
 TEMP = ListView1.Items（ListView1.FocusedItem.Index + 1）。文字</代码>

 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（“你必须从列表中选择一个项目。”）
结束如果

就是这样，他们可以运行和测试，它是如何工作的。 我离开了程序运行的渔获：

我希望，像我一样，他们会非常有用。