نقل العناصر من 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 = صحيح
ListView1.MultiSelect = خطأ

ListView1.HideSelection خطأ =

ملاحظة أننا أيضا seteado ثلاث خصائص مهمة جدا: FullRowSelect = يتم وضع علامة صحيح لعنصر من خلال تحديد الصف بأكمله، مولتيسيليكت = خطأ أن ذلك فقط يمكنك تحديد عنصر وHideSelection = خطأ أن نرى دائما ما يتم اختيار البند .

ثم في حال زر فوق UP:

 إذا 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 ("يجب تحديد عنصر من القائمة.")
 نهاية إذا

وانقر على زر أسفل الحدث:

 إذا 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 ("يجب تحديد عنصر من القائمة.")
 نهاية إذا

هذا كل شيء، فإنها يمكن تشغيل واختبار كيف يعمل. أترك صيد تشغيل البرنامج:

وآمل أن، مثلي، وأنها ستكون مفيدة للغاية.