طلب ممكن مثال عن السحب والافلات

كود :
Option Explicit



'' 2 ListBox



Private Sub Form_Load()



    List1.AddItem "عبدالله"

    List1.AddItem "محمد"

    List1.AddItem "جمال"

    List1.AddItem "مصطفى"

    

    List1.OLEDropMode = vbOLEDropManual

    List2.OLEDropMode = vbOLEDropManual

    

End Sub



Private Sub List1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)

    List1.OLEDrag

End Sub



Private Sub List1_OLEStartDrag(Data As DataObject, AllowedEffects As Long)

    AllowedEffects = vbDropEffectMove

    Data.SetData List1

End Sub



Private Sub List2_OLEDragDrop(Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, X As Single, Y As Single)

    Dim strList As String

    If Not Data.GetFormat(vbCFText) Then Exit Sub

    strList = Data.GetData(vbCFText)

    If Not strList = List2.Text Then

        List2.AddItem strList

        List1.RemoveItem List1.ListIndex

    End If

End Sub







Private Sub List2_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)

    List2.OLEDrag

End Sub



Private Sub List2_OLEStartDrag(Data As DataObject, AllowedEffects As Long)

    AllowedEffects = vbDropEffectMove

    Data.SetData List2

End Sub





Private Sub List1_OLEDragDrop(Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, X As Single, Y As Single)

    Dim strList As String

    If Not Data.GetFormat(vbCFText) Then Exit Sub

    strList = Data.GetData(vbCFText)

    If Not strList = List1.Text Then

        List1.AddItem strList

        List2.RemoveItem List2.ListIndex

    End If

End Sub