从一个ListView项

这是我们如何在 Visual Basic中做简单，但非常罕见的例子。净移动（代码） 在 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 = TRUE
ListView1.MultiSelect =假

ListView1.HideSelection =假

请注意，我们也seteado三个重要的属性：FullRowSelect = True来选择项目，选择整行， 多选= 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 - 1）=真正的选择
 ListView1.Items.Item（ListView1.FocusedItem.Index - 1）=真正的重点

由于前捕捉异常
蜂鸣（）
结束尝试
其他
 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）。所选= TRUE
 ListView1.Items.Item（ListView1.FocusedItem.Index + 1）。放眼= TRUE

由于前捕捉异常
蜂鸣（）
结束尝试
其他
 MSGBOX（“你必须从列表中选择一个项目。”）
结束如果

这一切，他们可以运行并测试它的工作原理。 我离开正在运行的追赶PROGRM：

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