Gui, Add, Listbox, hwndhListbox r25
Gui, Show
Sel := 0
Loop
{
Control, Add, % ++Sel " строка", , ahk_id %hListbox%
Sleep 300
}
Кстати есть ли аналогичные команды этой
Control, AddА то что-то она у меня не работает или я не правильно как то делаю.
Полная документация на официальном сайте:
Control, Cmd [, Value, Control, WinTitle, WinText, ExcludeTitle, ExcludeText]
Add, String: Adds String as a new entry at the bottom of a ListBox, ComboBox (and possibly other types).
Control, AddА то что-то она у меня не работает или я не правильно как то делаю.
]]>Ничего непонятно.
Я уже сам разобрался.
Gui, Add, Listbox, hwndhListbox gDelete, 1 строка|2 строка|3 строка
Gui, Show
return
Delete:
SendMessage, 0x188, 0, 0, , ahk_id %hListbox% ; If (ErrorLevel = 0xffffffff) Not Selected
Control, Delete, % ++ErrorLevel, , ahk_id %hListbox%
returnСпасибо, работает.
]]>Элемент управления ListBox позволяет отобразить список позиций, из которых пользователь может выбрать нужную щелчком мыши.
...
Кроме функций отображения и выбора, ListBox также реализует возможности, позволяющие эффективно добавлять элементы в ListBox и выполнять поиск текста в элементах списка.
В принципе этот элемент управления не предназначен для удаления отдельных пунктов.
Что вы имеете ввиду?
Gui, Add, Listbox, hwndhListbox gDelete, 1 строка|2 строка|3 строка
Gui, Show
return
Delete:
SendMessage, 0x188, 0, 0, , ahk_id %hListbox% ; If (ErrorLevel = 0xffffffff) Not Selected
Control, Delete, % ++ErrorLevel, , ahk_id %hListbox%
return
---
Только у меня одна проблема, у меня переменная List содержит другое значение выдаваемое RegRead, а этот код стирает все пункты сразу.
И в догонку еще один вопрос, как сделать чтобы например я выделил один пункт мышкой, жму удалить и удалится C:\Wndows, а если выделю другой пункт то удалится C:\Windows\System32, а если третий то уже другое действие.
Ничего непонятно.
]]>List := "1 строка|2 строка|3 строка"
Gui, Add, Button, gDelete, Удалить
Gui, Add, Listbox, ym+30 xm h500 w500 vMyList, %List%
Gui, Show
return
Delete:
GuiControlGet, MyList
If MyList=
{
Msgbox, 0x10, Заголовок, Не выбран пункт
return
}
StringReplace, List, List, %MyList%,
StringReplace, List, List, ||, |, All
GuiControl,, MyList, |
GuiControl,, MyList, %List%Только у меня одна проблема, у меня переменная List содержит другое значение выдаваемое RegRead, а этот код стирает все пункты сразу.
]]>