Dragging And Dropping Row Of ListBox In PowerBuilder
Important: Unchecked Sorted Properties Of ListBox
Declare Instance Variable:
1 2 | Integer ii_index String is_text |
Create New Event pbm_lbuttondown
1 | This.PostEvent("ue_getdata") |
Create New Event pbm_lbuttonup
1 | This.PostEvent("ue_adddata") |
Create Event ue_getdata .. pbm_custom01
1 2 3 | ii_index = This.SelectedIndex() is_text = This.SelectedItem() This.SetRedraw(False) |
Create Event ue_adddata.. pbm_custom02
1 2 3 4 5 6 7 8 9 | If ii_index <= 0 Then Return Int li_dropindex li_dropindex = This.SelectedIndex() This.DeleteItem(ii_index) This.InsertItem(is_text,li_dropindex) This.SelectItem(li_dropindex) This.SetRedraw(True) |
Find Projects On Github click here
Good Luck!