I have a listbox. I am trying to DragReorderRows.
However, every time I move an item to a new position, it automatically drops to be the last position.
I have checked the LBtest; it works fine; but not mine
- DragReorderRaws:
for i as integer = 0 to me.ListCount -1
me.cellTag(i,1) = i+1
next
me.Invalidate
- ListboxOpen:
Me.ColumnAlignment(0)=ListBox.AlignLeft
Me.ColumnType(0)=ListBox.TypeEditableTextField
Me.AcceptTextDrop
me.EnableDragReorder = true
I donot have ‘CellTextPaint’
Thank you in advance for any suggestions or guidance.