移動從一個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  -  1）。選擇=真
 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（“你必須從列表中選擇一個項目。”）
結束如果

就是這樣，他們可以運行和測試，它是如何工作的。 我離開了程序運行的漁獲：

我希望，像我一樣，他們會非常有用。