how to delete a list item?

[MATISZON]

how to delete a list item?

Ex:

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <GUIListBox.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=c:\documents and settings\matiszon\pulpit\moj kod\autoit\datbot\form1.kxf
$Form1_1 = GUICreate("Form1", 633, 447, 192, 124)
$Input1 = GUICtrlCreateInput("", 8, 8, 385, 21)
$List1 = GUICtrlCreateList("", 8, 40, 385, 175)
GUICtrlSetData(-1, "")
$Button1 = GUICtrlCreateButton("Dodaj", 401, 6, 65, 25, $WS_GROUP)
$Button2 = GUICtrlCreateButton("Usuń", 401, 34, 65, 25, $WS_GROUP)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
        Case $Button1
            dodajlink()
        Case $Button2
            usunlink()
    EndSwitch
WEnd

Func dodajlink()
If GUICtrlRead($Input1) <> "" Then
GUICtrlSetData($List1, GUICtrlRead($Input1))
EndIf
EndFunc

Func usunlink()
    MsgBox(0, "DELETE", GUICtrlRead($List1)&" Has ben deleted")
    ;how to delete a list item?
EndFunc

[Melba23]

MATISZON,

Here you go:

Func usunlink()
    $sName = GUICtrlRead($List1)
    _GUICtrlListBox_DeleteString($List1, _GUICtrlListBox_GetCaretIndex($List1))
    MsgBox(0, "DELETE", $sName & " has been deleted")
EndFunc

M23

[MATISZON]

Thanks How are the thief

Thanx It work.

Edited October 17, 2009 by MATISZON

[ShadowElf]

I have a problem

the list

$List1 = GUICtrlCreateListView("Codbar|Produs|Cant|PV|Total", 22, 120, 553, 260)
    GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 0, 80)
    GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 1, 240)
    GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 2, 50)
    GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 3, 50)
    GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 4, 50)
    GUICtrlSetFont(-1, 12, 400, 0, "MS Sans Serif")

the button

$sterge = GUICtrlCreateButton("Sterge", 505, 470, 65, 57)
    GUICtrlSetOnEvent(-1, "usunlink")

The function

Func usunlink()
    $sName = GUICtrlRead($List1)
    _GUICtrlListBox_DeleteString($List1, _GUICtrlListBox_GetCaretIndex($List1))
    MsgBox(0, "DELETE", $sName & " has been deleted")
EndFunc

But still not work

The popup message appears and say that "43 has beem deleted" or "44 has been deleted" etc (depends how much inserted items i have in list)

But the script don't remove what I select from list

[vortexed]

Say I have a list box that I am populating from 2 different arrays when a user clicks on a checkbox item (total of 2 checkboxes) what would be the best approach for me to delete data from the list box after the user unchecks the checkbox?

[BrewManNH]

This thread is 5 years old, and doesn't directly have anything to do with your question other than the whole deleting word. Open a new thread instead of necroposting to one this old.