FlatX007
Откуда вы "взяли" библиотеку
GuiList.au3?
Пример:
Код:
![Выделить весь код](images/misc/selectcode.png)
#include <GuiConstantsEx.au3>
#include <GuiListBox.au3>
Dim $sData = "String 1|String 2|String 3|String 4"
$hGUI = GUICreate("Listbox strings delete demo", 300, 200)
$cListBox = GUICtrlCreateList("", 10, 10, 280, 146)
GUICtrlSetData($cListBox, $sData)
$cButton_Delete = GUICtrlCreateButton("Clear", 11, 166, 75, 23)
GUISetState(@SW_SHOW)
While 1
$msg = GUIGetMsg()
Switch $msg
Case $GUI_EVENT_CLOSE
Exit
Case $cButton_Delete
_GUICtrlListBox_DeleteAll($cListBox)
EndSwitch
WEnd
Func _GUICtrlListBox_DeleteAll($cControl)
Local $iCount = _GUICtrlListBox_GetCount($cControl)
If $iCount = -1 Then Return 0
Local $i
For $i = $iCount - 1 To 0 Step -1
_GUICtrlListBox_DeleteString($cControl, $i)
Next
Return 1
EndFunc
Цитата Creat0R:
переименовали в _GUICtrlListBox_ResetContent() »
|
Слона-то я и не приметил
![Smile](images/smilies/new/smile.gif)