private sub form1_load(byval sender as system.object, byval e as system.eventargs) handles mybase.load dim i as int32 for i = 0 to 9 listbox1.items.add("item " & i) next listbox2.allowdrop = true end sub
private sub listbox1_mousedown(byval sender as object, byval e as system.windows.forms.mouseeventargs) handles listbox1.mousedown dim itemindex as integer itemindex = listbox1.indexfrompoint(e.x, e.y) if itemindex >= 0 then listbox1.dodragdrop(listbox1.items(itemindex), dragdropeffects.copy) end if end sub
private sub listbox2_dragenter(byval sender as object, byval e as system.windows.forms.drageventargs) handles listbox2.dragenter if (e.data.getdatapresent(dataformats.text)) then e.effect = dragdropeffects.copy else e.effect = dragdropeffects.none end if end sub
private sub listbox2_dragdrop(byval sender as object, byval e as system.windows.forms.drageventargs) handles listbox2.dragdrop dim sitem as string sitem = e.data.getdata(dataformats.text).tostring listbox2.items.add(sitem) listbox1.items.removeat(listbox1.findstring(sitem)) end sub
