Di chuyển các mục từ 1 listview

Đây là một ví dụ đơn giản, nhưng rất hiếm thấy, làm thế nào chúng ta làm trong thị giác cơ bản. Net để di chuyển (code) các mục trong một listview.

Cần một hình thức với một listview và hai nút:

Bây giờ, hãy điền vào listview với một số dữ liệu ví dụ và trong sự kiện Load của cùng:

 ListView1.Items.Add ("Carlos")
 ListView1.Items.Add (Marcelo)
 ListView1.Items.Add ("Damian)
 ListView1.Items.Add (Susan)
 ListView1.Items.Add ("Gerard")
 ListView1.Items.Add ("Claudia")
 ListView1.Items.Add ("Marta")
 ListView1.Items.Add ("Liliana)
 ListView1.Items.Add (Elisha)
 ListView1.Items.Add (Augustine)
 ListView1.Items.Add ("Camila)
 ListView1.Items.Add (Lucas)
 ListView1.Items.Add ("Jorge")
 ListView1.Items.Add ("Mabel")
 ListView1.Items.Add (Natalia)
 ListView1.Items.Add (Gabriella)
 ListView1.Items.Add ("Paula")
 ListView1.Items.Add ("Matias")
 ListView1.Items.Add (Martin)
 ListView1.Items.Add ("John")
 ListView1.Items.Add ("Maria")
 ListView1.Items.Add (Abel)
 ListView1.Items.Add ("Peter")

ListView1.FullRowSelect = True
ListView1.MultiSelect = False

ListView1.HideSelection = False

Lưu ý rằng chúng tôi cũng seteado ba đặc tính rất quan trọng: FullRowSelect = True cho một mục bằng cách chọn toàn bộ hàng được đánh dấu, multiselect = False để chỉ bạn có thể chọn một mục và HideSelection = False luôn luôn nhìn thấy những đồ vật được chọn .

Sau đó, trong sự kiện click nút UP:

 Nếu ListView1.SelectedIndices.Count> 0 Sau đó,
 Thử
 Dim thời gian As String
 temp = ListView1.Items (ListView1.FocusedItem.Index - 1). Tiêu đề

 ListView1.Items (ListView1.FocusedItem.Index - 1). Tiêu đề = ListView1.FocusedItem.Text
 ListView1.FocusedItem.Text = tạm thời

 ListView1.Items.Item (ListView1.FocusedItem.Index - 1). Chọn = True
 ListView1.Items.Item (ListView1.FocusedItem.Index - 1). Tập trung = True

 Catch ex Như trường hợp ngoại lệ
 Beep ()
 End Try
 Khác
 MsgBox ("Bạn phải chọn một mục từ danh sách.")
 Cuối Nếu

và nút nhấp chuột xuống sự kiện:

 Nếu ListView1.SelectedIndices.Count> 0 Sau đó,
 Thử
 Dim thời gian As String
 tạm thời ListView1.Items (ListView1.FocusedItem.Index + 1). Tiêu đề </ code>

 ListView1.Items (ListView1.FocusedItem.Index + 1). Tiêu đề = ListView1.FocusedItem.Text
 ListView1.FocusedItem.Text = tạm thời

 ListView1.Items.Item (ListView1.FocusedItem.Index + 1). Chọn = True
 ListView1.Items.Item (ListView1.FocusedItem.Index + 1) Tập trung =. Đúng

 Catch ex Như trường hợp ngoại lệ
 Beep ()
 End Try
 Khác
 MsgBox ("Bạn phải chọn một mục từ danh sách.")
 Cuối Nếu

Đó là, họ có thể chạy và kiểm tra nó hoạt động như thế nào. Tôi để lại một nắm bắt hoạt động của Chương trình:

Tôi hy vọng rằng, giống như tôi, họ sẽ rất hữu ích.