ย้ายรายการจากที่หนึ่ง ListView

นี่คือตัวอย่างง่ายๆ แต่เห็นน้อยมากจากวิธีที่เราทำใน Visual Basic. ย้าย (ในรหัส) รายการใน listview

ต้องการแบบฟอร์มที่มี ListView และสองปุ่ม:

ตอนนี้เติม ListView กับข้อมูลบางอย่างเช่นและจะอยู่ในการโหลดเหตุการณ์ของเดียวกัน:

 ListView1.Items.Add ("คาร์ลอ")
 ListView1.Items.Add ("Marcelo")
 ListView1.Items.Add ("เดเมียน")
 ListView1.Items.Add ("ซูซาน")
 ListView1.Items.Add ("เจอราร์ด")
 ListView1.Items.Add ("คลอเดีย")
 ListView1.Items.Add ("Marta")
 ListView1.Items.Add ("Liliana")
 ListView1.Items.Add ("เอลีชา")
 ListView1.Items.Add ("ออกัสติน")
 ListView1.Items.Add ("Camila")
 ListView1.Items.Add ("ลูคัส")
 ListView1.Items.Add ("Jorge")
 ListView1.Items.Add ("Mabel")
 ListView1.Items.Add ("Natalia")
 ListView1.Items.Add ("กาเบรียล")
 ListView1.Items.Add ("พอลล่า")
 ListView1.Items.Add ("Matias")
 ListView1.Items.Add ("มาร์ติน")
 ListView1.Items.Add ("John")
 ListView1.Items.Add ("มาเรีย")
 ListView1.Items.Add ("อาเบล")
 ListView1.Items.Add ("ปีเตอร์")

ทรู ListView1.FullRowSelect =
ListView1.MultiSelect = False

ListView1.HideSelection = False

โปรดทราบว่าเรายัง seteado สามคุณสมบัติที่สำคัญมาก: FullRowSelect = True สำหรับรายการโดยการเลือกทั้งแถวมีการทำเครื่องหมาย, MultiSelect = เท็จเพื่อให้เฉพาะคุณสามารถเลือกรายการและ HideSelection = False ไปมักจะเห็นสิ่งที่รายการจะถูกเลือก .

จากนั้นในเหตุการณ์คลิกปุ่ม UP:

 หาก ListView1.SelectedIndices.Count> 0 แล้ว
 ลอง
 เวลา Dim As String
 = 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 ("คุณต้องเลือกจากรายการ.")
 End If

และปุ่มเหตุการณ์ลงคลิก:

 หาก ListView1.SelectedIndices.Count> 0 แล้ว
 ลอง
 เวลา Dim As String
 = temp ข้อความ 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

ที่มันจะสามารถทำงานและทดสอบวิธีการทำงาน ฉันออกจากการจับการทำงานของโปรแกรม:

ผมหวังว่าเช่นฉันพวกเขาจะมีประโยชน์มาก