Set the Anchor Index
#Include <GuiList.au3>
_GUICtrlListSetAnchorIndex($h_listbox, $i_index)
Parameters
$h_listbox | control id/control hWnd |
$i_index | Specifies the index of the new anchor item. |
Return Value
If the message succeeds, the return value is zero.
Remarks
DOES NOT WORK WITH SINGLE-SELECTION LIST BOXES
Related
_GUICtrlListGetAnchorIndex
Example
#include <GUIConstants.au3>
#include <GuiList.au3>
Opt ('MustDeclareVars', 1)
Dim $msg, $ret, $listbox, $button, $label
GUICreate("ListBox Set Anchor Index Demo", 400, 250, -1, -1)
$listbox = GUICtrlCreateList("", 125, 40, 180, 120, BitOR($LBS_SORT, $WS_BORDER, $WS_VSCROLL, $LBS_NOTIFY, $LBS_MULTIPLESEL))
GUICtrlSetData($listbox, "test1|more testing|even more testing|demo|test2|test3|test4|test5|test6|test7|test8|test9|test10")
$button = GUICtrlCreateButton("Set Anchor", 150, 160, 120, 40)
$label = GUICtrlCreateLabel("Anchor Index:", 150, 210, 120)
GUISetState()
While 1
$msg = GUIGetMsg()
Select
Case $msg = $GUI_EVENT_CLOSE
ExitLoop
Case $msg = $button
$ret = _GUICtrlListSetAnchorIndex ($listbox, 5)
If ($ret == $LB_ERR) Then
MsgBox(16, "Error", "Unknown error from _GUICtrlListGetAnchorIndex")
Else
$ret = _GUICtrlListGetAnchorIndex ($listbox)
If ($ret == $LB_ERR) Then
MsgBox(16, "Error", "Unknown error from _GUICtrlListGetAnchorIndex")
Else
GUICtrlSetData($label, "Anchor Index: " & $ret)
EndIf
EndIf
EndSelect
WEnd