Eliminar item de una lista
Publicado: 08 Feb 2011, 04:42
Hola, estoy enviciado con AutoIt, me parece cada vez más interesante!!
En esta ocación estoy intentando manejar listas pero tengo problemas para eliminar items.... Siempre devuelve FALSE.
Adjunto un ejemplo super básico para ver en que estoy fallando y si de paso hay algún manejo que esté haciendo mal, acepto sugerencias....
Muchas gracias por la ayuda!!
Marcelo
En esta ocación estoy intentando manejar listas pero tengo problemas para eliminar items.... Siempre devuelve FALSE.
Adjunto un ejemplo super básico para ver en que estoy fallando y si de paso hay algún manejo que esté haciendo mal, acepto sugerencias....
Muchas gracias por la ayuda!!
Marcelo
Código: Seleccionar todo
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <ListViewConstants.au3>
#include <WindowsConstants.au3>
#include <GuiListView.au3>
#Region ### START Koda GUI section ### Form=c:\Fuentes\Autoit\Lista\Form1.kxf
$Form1 = GUICreate("Form1", 623, 449, 192, 114)
$ListView = GUICtrlCreateListView("", 56, 72, 498, 286)
$Button1 = GUICtrlCreateButton("Item", 112, 400, 75, 25)
$Button2 = GUICtrlCreateButton("Agregar", 272, 400, 75, 25)
$Button3 = GUICtrlCreateButton("Eliminar", 420, 400, 75, 25)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
_GUICtrlListView_InsertColumn($ListView, 0, "Column 1", 100)
_GUICtrlListView_AddItem($ListView, "Item 1")
_GUICtrlListView_AddItem($ListView, "Item 2")
_GUICtrlListView_AddItem($ListView, "Item 3")
_GUICtrlListView_AddItem($ListView, "Item 4")
_GUICtrlListView_AddItem($ListView, "Item 5")
_GUICtrlListView_AddItem($ListView, "Item 6")
_GUICtrlListView_AddItem($ListView, "Item 7")
_GUICtrlListView_AddItem($ListView, "Item 8")
_GUICtrlListView_AddItem($ListView, "Item 9")
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
$i = Int(_Guictrllistview_GetSelectedIndices($ListView))
$item = _GUICtrlListView_GetItem($ListView,$i)
MsgBox(0,"Item","Indice: " & $i & @CR & "Texto: " & $item[3])
Case $Button2
$Agregar = InputBox("Agregar ítem.", "Agregar:")
If @error <> 1 And $Agregar <> "" Then
_GUICtrlListView_AddItem($ListView,$Agregar)
EndIf
Case $Button3
$i = Int(_Guictrllistview_GetSelectedIndices($ListView))
$item = _GUICtrlListView_DeleteItem($ListView,$i)
MsgBox(0,"",$item)
EndSwitch
WEnd