By
Dan_555
Hi, here are few functions for the ListBox.
I have searched the forum, but most of the functions are for listview, so i took one example code from melba23 (clear selection) and
wrote few more functions. (Because my current project needs them).
These functions work only on a Multi-selection ListBox .
The functions do: Clear Selection, Delete Selected items, Invert Selection, Move selected items up and down.
The example code has 2 Listboxes. The selected items on the left ListBox can be moved up and down. The right Listbox has buttons for the other functions.
#include <GUIConstantsEx.au3>
#include <GuiListBox.au3>
#include <WindowsConstants.au3>
Global $hForm1 = GUICreate("Listbox test", 349, 287)
$LB_1 = GUICtrlCreateList("", 6, 40, 157, 244, BitOR($LBS_NOTIFY, $LBS_MULTIPLESEL, $WS_HSCROLL, $WS_VSCROLL, $LBS_DISABLENOSCROLL))
$LB_2 = GUICtrlCreateList("", 179, 40, 157, 244, BitOR($LBS_NOTIFY, $LBS_MULTIPLESEL , $WS_HSCROLL, $WS_VSCROLL, $LBS_DISABLENOSCROLL))
$BL_1 = GUICtrlCreateButton("Up", 20, 3, 35, 18)
$BL_2 = GUICtrlCreateButton("Down", 60, 3, 35, 18)
$BR_1 = GUICtrlCreateButton("Up", 200, 3, 35, 18)
$BR_2 = GUICtrlCreateButton("Down", 240, 3, 35, 18)
$BR_3 = GUICtrlCreateButton("Reverse Sel", 272, 22, 68, 17)
$BR_4 = GUICtrlCreateButton("Clear Sel", 217, 22, 52, 17)
$BR_5 = GUICtrlCreateButton("Delete", 175, 22, 40, 17)
$BR_6 = GUICtrlCreateButton("Populate", 290, 3, 50, 18)
GUISetState(@SW_SHOW)
For $x = 0 To 50
If $x <= 10 Then GUICtrlSetData($LB_1, $x & " test", 0)
GUICtrlSetData($LB_2, $x & " Test", 0)
Next
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $BL_1
$a = Listbox_ItemMoveUD($LB_1, -1)
If $a > -1 Then WinSetTitle($hForm1, "", "Moved items: " & $a)
Case $BL_2
$a = Listbox_ItemMoveUD($LB_1, 1)
If $a > -1 Then WinSetTitle($hForm1, "", "Moved items: " & $a)
Case $BR_1
Listbox_ItemMoveUD($LB_2, -1)
Case $BR_2
Listbox_ItemMoveUD($LB_2, 1)
Case $BR_3
Listbox_ReverseSelection($LB_2)
Case $BR_4
Listbox_ClearSelection($LB_2)
Case $BR_5
Listbox_DeleteSelectedItems($LB_2)
Case $br_6 ;Populate
GUICtrlSetData($LB_2, "") ; Clears the listbox
For $x = 0 To 50
GUICtrlSetData($LB_2, $x & " Test", 0)
Next
EndSwitch
WEnd
;note $hLB_ID - is the Listbox id
Func Listbox_DeleteSelectedItems($hLB_ID)
local $aSel = _GUICtrlListBox_GetSelItems($hLB_ID)
Local $i
For $i = $aSel[0] To 1 Step -1
_GUICtrlListBox_DeleteString($hLB_ID, $aSel[$i])
Next
EndFunc ;==>Listbox_DeleteSelectedItems
Func Listbox_ClearSelection($hLB_ID)
Local $aSel = _GUICtrlListBox_GetSelItems($hLB_ID) ;Code from Melba23 - Autoit Forum
For $i = 1 To $aSel[0]
_GUICtrlListBox_SetSel($hLB_ID, $aSel[$i], False)
Next
EndFunc ;==>Listbox_ClearSelection
Func Listbox_ReverseSelection($hLB_ID)
Local $i
Local $aCou = _GUICtrlListBox_GetCount($hLB_ID)
Local $cSel = _GUICtrlListBox_GetCaretIndex($hLB_ID) ;Save the caret
For $i = 0 To $aCou
_GUICtrlListBox_SetSel($hLB_ID, $i, Not (_GUICtrlListBox_GetSel($hLB_ID, $i)))
Next
_GUICtrlListBox_SetCaretIndex($hLB_ID, $cSel) ;Restore the caret
EndFunc ;==>Listbox_ReverseSelection
Func Listbox_ItemMoveUD($hLB_ID, $iDir = -1)
;Listbox_ItemMoveUD - Up/Down - Works only on multiple selection listbox ($LBS_MULTIPLESEL)
;$iDir: -1 up, 1 down
;Return values -1 nothing to do, 0 nothing moved, >0 performed moves
Local $iCur, $iNxt, $aCou, $aSel, $i, $m = 0 ;Current, next, Count, Selection, loop , movecount
$aSel = _GUICtrlListBox_GetSelItems($hLB_ID) ;Put selected items in an array
$aCou = _GUICtrlListBox_GetCount($hLB_ID) ;Get total item count of the listbox
WinSetTitle ($hForm1,"",$aSel[0])
Select
Case $iDir = -1 ;Move Up
For $i = 1 To $aSel[0]
If $aSel[$i] > 0 Then
$iNxt = _GUICtrlListBox_GetText($hLB_ID, $aSel[$i] - 1) ;Save the selection index - 1 text
_GUICtrlListBox_ReplaceString($hLB_ID, $aSel[$i] - 1, _GUICtrlListBox_GetText($hLB_ID, $aSel[$i])) ;Replace the index-1 text with the index text
_GUICtrlListBox_ReplaceString($hLB_ID, $aSel[$i], $iNxt) ;Replace the selection with the saved var
$m = $m + 1
EndIf
Next
For $i = 1 To $aSel[0] ;Restore the selections after moving
If $aSel[$i] > 0 Then
_GUICtrlListBox_SetSel($hLB_ID, $aSel[$i] - 1, 1)
EndIf
Next
Return $m
Case $iDir = 1 ;Move Down
If $aSel[0] > 0 Then
For $i = $aSel[0] To 1 Step -1
If $aSel[$i] < $aCou - 1 Then
$iNxt = _GUICtrlListBox_GetText($hLB_ID, $aSel[$i] + 1)
_GUICtrlListBox_ReplaceString($hLB_ID, $aSel[$i] + 1, _GUICtrlListBox_GetText($hLB_ID, $aSel[$i]))
_GUICtrlListBox_ReplaceString($hLB_ID, $aSel[$i], $iNxt)
$m = $m + 1
EndIf
Next
EndIf
For $i = $aSel[0] To 1 Step -1 ;Restore the selections after moving
If $aSel[$i] < $aCou - 1 Then
_GUICtrlListBox_SetSel($hLB_ID, $aSel[$i] + 1, 1)
EndIf
Next
Return $m
EndSelect
Return -1
EndFunc ;==>Listbox_ItemMoveUD
By Dan_555
By zuladabef
By PeterVerbeek
By Rabu
By Tony007