إعادة ترتيب العناصر في listbox

السلام عليكم

الطريقة كالتالي:

قم بأخذ قيمة المادة المختارة في الـ Listbox

ثم قم بحذف تلك المادة.

ثم قم بإدخالها في الفهرس الذي يعلوها برقم

بشرط أن لا تكون المادة هي المادة الاولى.

المادة التي قبلها ستكون بعدها بشكل تلقائي ( لا تحتاج إلى برمجة معينه ) لانها عملية منطقية.

شاهد النصوص البرمجية التي تحقق لك ذلك.

  With ListBox1

			'Get the SelectedIndex
			Dim getSelectedIndex As Integer = .SelectedIndex

			'If the first item then exit.
			If getSelectedIndex = 0 Then Return

			'Get the Selected item's Value. 
			Dim TempValue As Object = .Items.Item(getSelectedIndex)

			'Remove it from the list box items.
			.Items.Remove(TempValue)

			'Reinsert it to the upper index of its position.
			.Items.Insert(getSelectedIndex - 1, TempValue)

			'Destroy the TempValue object.
			TempValue = Nothing

		End With

بالتوفيق إن شاء الله.

جزاك الله خير