한 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 ( "Liliana")
 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 = False로

ListView1.HideSelection = False로

참고 우리는 또한 seteado 세 매우 중요한 속성 : FullRowSelect = 전체 행을 선택하여 항목에 대한 사실이 표시되어, MultiSelect = False로 그래서만이 항목을 선택할 수 있으며 HideSelection은 = False를 항상 선택되어 어떤 항목을 볼 수 .

다음 UP 버튼 클릭 이벤트에서 :

 ListView1.SelectedIndices.Count> 0 그럼 만약
 시도
 문자열로 희미 시간
 임시직 = 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 ( "당신이 목록에서 항목을 선택해야합니다.")
 END IF

그리고 아래쪽 버튼 클릭 이벤트 :

 ListView1.SelectedIndices.Count> 0 그럼 만약
 시도
 문자열로 희미 시간
 임시직 = ListView1.Items (ListView1.FocusedItem.Index + 1). 텍스트 </ code>를

 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 ( "당신이 목록에서 항목을 선택해야합니다.")
 END IF

바로 그거야, 그들은 실행할 수 있고 그것이 어떻게 작동하는지 테스트합니다. 나는 프로그램의 실행 캐치를 남겨주 :

나는 나처럼, 그들은 매우 유용할 것입 바랍니다.