drag items - basic.visual

Railfanner <railman@sasktel.net> wrote in news:2008102911503516807-
railman@sasktelnet:

> Listbox1 contines list a items
> Editbox1 empty
>
> I want to drag from listbox 1 to editbox1. I have set edfield2 to read
> in the Drop Object -- Me.AcceptFileDrop("text"). What do I do to
> Listbox 1 to allow me to drag? I have set the enable drag option.

The Me.AcceptFileDrop("text") in the EditField's Open event is fine.

Put something like
Drag.Text=ListBox1.List(Row)
in the DragRow event of the Listbox. Make sure the listbox's EnableDrag
property is set to true.

- Dale

Thanks