Drag&Drop в элементе ListBox

'Данный пример покажет, как можно воспользоваться Drag&Drop при переносе
'элементов из одного ListBox в другой. Расположите на форме 2 элемента
'ListBox. Установите свойства элементов OLEDragMode = 1 'Automatic и
'OLEDropMode = 1 'Manual. Попробуйте после запуска программы перетащить
'элемент из 1- го ListBox'а в другой.

Private Sub Form_Load()
List1.AddItem "11"
List1.AddItem "22"
List1.AddItem "33"
List1.AddItem "44"
List1.AddItem "55"
End Sub

Private Sub List1_OLEStartDrag(Data As DataObject, AllowedEffects As Long)
Dim i As Integer
Dim strdata As String

For i = 0 To List1.ListCount - 1
If List1.Selected(i) = True Then
strdata = strdata & List1.List(i) & vbCrLf
End If
Next i
Data.SetData strdata
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 intin As Integer
Dim intstart As Integer

intstart = 1
intin = InStr(Data.GetData(1), vbCrLf)
Do
On Error Resume Next
List2.AddItem Replace(Mid(Data.GetData(1), intstart, _
(InStr(intstart + 1, Data.GetData(1), vbCrLf) - _
intstart) + 1), vbCr, "")
If Err = 5 Then
List2.AddItem Replace(Mid(Data.GetData(1), intstart + 1), _
vbCrLf, "")
Exit Do
End If
intstart = intin + 2
intin = InStr(intstart, Data.GetData(1), vbCrLf)
Loop Until intin = 0
End Sub

Обсудить статью на форуме

Если Вас заинтересовала или понравилась информация программирование на Visual Basic - "Drag&Drop в элементе ListBox", Вы можете поставить закладку в социальной сети или в своём блоге на данную страницу:

Так же Вы можете задать вопрос по работе этого модуля или примера через форму обратной связи, в сообщение обязательно указывайте название или ссылку на статью!