#include #include #include #include Test() func Test() $gui = GUICreate("Test", 400, 300) $style = BitOR($LVS_DEFAULT, $WS_BORDER) $lv = GUICtrlCreateListView("", 10, 10, 380, 240, $LVS_DEFAULT) ; $lv = _GUICtrlListView_Create($gui, "", 10, 10, 380, 240, $LVS_DEFAULT) GUICtrlSetFont($lv, 12, $FW_DONTCARE, $GUI_FONTNORMAL, "Alef") $ex_style = BitOR($LVS_EX_FULLROWSELECT, $LVS_EX_BORDERSELECT) _GUICtrlListView_SetExtendedListViewStyle($lv, $ex_style) ; Add columns _GUICtrlListView_AddColumn($lv, "Column 1", 100) _GUICtrlListView_AddColumn($lv, "Column 2", 100) ; Add items _GUICtrlListView_AddItem($lv, "1,1", 0) _GUICtrlListView_AddSubItem($lv, 0, "1,2", 1) _GUICtrlListView_AddItem($lv, "2,1", 1) _GUICtrlListView_AddSubItem($lv, 1, "2,2", 1) _GUICtrlListView_AddItem($lv, "3,1", 2) _GUICtrlListView_AddSubItem($lv, 2, "3,2", 1) $btn = GUICtrlCreateButton("Test", 10, 260, 60, 30) GUISetState(@SW_SHOW) HotKeySet("^q", Quit) ; Loop until the user exits. while True switch GUIGetMsg() case $GUI_EVENT_CLOSE Exit case $btn $idx = _GUICtrlListView_GetSelectedIndices($lv) ConsoleWrite($idx & ' ' & VarGetType($idx) & @CRLF) $s = _GUICtrlListView_GetItemText($lv, $idx) ConsoleWrite('-> [' & $s & ']' & @CRLF) $idx = Number(_GUICtrlListView_GetSelectedIndices($lv)) ConsoleWrite($idx & ' ' & VarGetType($idx) & @CRLF) $s = _GUICtrlListView_GetItemText($lv, $idx) ConsoleWrite('-> [' & $s & ']' & @CRLF) endswitch wend GUIDelete() endfunc func Quit() Exit endfunc