تغيير ترتيب العناصر داخل Listbox باستخدام خاصية السحب و الافلات?

السلام عليكم...

المثال التالي لا يعتمد على طريقة السحب و الإفلات (Drag-and-Drop) لكنه يستعمل أحداث الفأرة (MouseDown و MouseUp) لإنجاز العملية.

اضبط الخاصية MouseIcon للـ ListBox على أي أيقونة تمثل عملية السحب (فقط للفت انتباه المستخدم).

انسخ الكود

' في قسم التصريحات العام
Private StartIndex As Long
Private Sub List1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = vbLeftButton Then
List1.MousePointer = 99 ' تغيير شكل مؤشر الفأرة
StartIndex = List1.ListIndex ' الاحتفاظ برقم البند المسحوب
End If
End Sub
Private Sub List1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim TempItem As String
Dim SourceItem As String
Dim Index As Long
If Button = vbLeftButton Then
List1.MousePointer = 0 ' استعادة الشكل الافتراضي لمؤشر الفأرة
If (StartIndex <> -1) And (StartIndex <> List1.ListIndex) Then
SourceItem = List1.List(StartIndex) ' الاحتفاظ بنص البند المسحوب
For Index = List1.ListIndex To StartIndex Step Sgn(StartIndex - List1.ListIndex)
TempItem = List1.List(Index) ' الاحتقاظ بنص البند الذي ستتم إزاحته إلى الأسف
ل
List1.List(Index) = SourceItem ' تبديل النص
SourceItem = TempItem ' نقل نص البند المزاح إلى المتغير الآخر لأن المتغير ا
لأول سيتم استعماله مع البند التالي
Next Index
End If
End If
End Sub

ملاحظة مهمة: لاحظ أن اتجاه حلقة For يعتمد على اتجاه السحب (إلى الأعلى أو إلى الأسفل) و ذلك باستعمال عبارة Step مع جملة For، و قيمة التعبير الموجود أمام عبارة Step تكون قيمته إما 1 أو -1، حيث الدالة Sgn (و هي من دوال Visual Basic) تعطي إما 1 (إذا كانت القيمة موجبة) أو -1 (إذا كانت القيمة سالبة):

* إذا كان السحب إلى الأعلى فإن StartIndex أكبر من List1.ListIndex و بالتالي فإن الدالة Sgn ستعيد 1.

* إذا كان السحب إلى الأسفل فإن StartIndex أصغر من List1.ListIndex و بالتالي فإن الدالة Sgn ستعيد -1.

بالنسبة إلى حفظ محتويات القائمة فيمكنك حفظها في ملف نصي عادي (Text) ثم تحميلها من الملف عند الحاجة إليها.

نرجو الاستفادة و السلام.

تغيير ترتيب العناصر داخل Listbox باستخدام خاصية السحب و الافلات?

مواضيع مشابهة

عدد الزوار حالياً