File: ...\Samples\Solution\Controls\Lists\Ladd.scx

Этот пример демонстрирует добавление и удаление пунктов list box. Если пользователь ввел текст в text box и нажал ENTER, то текст из text box добавляется в list box и курсор вернется в text box, чтобы пользователь мог ввести другое значение.

Для того, чтобы пользователь смог добавить пункт в list box, воспользуйтесь методом AddItem. В примере, код помещенный в событие KeyPress text box, добавляет текст из text box в list box и очищает text box после нажатия пользователем ENTER:

 CopyCode imageКопировать код
PARAMETERS nKeyCode, nShiftCtrlAlt
IF nKeyCode = 13     && Enter Key
   THISFORM.lstAdd.AddItem (This.Value)
   THIS.Value = ""
ENDIF

Следующий код, помещенный в событие DblClick list box, посылает значение пункта list box, на который пользователь дважды кликнул, в text box и удаляет этот пункт из list box:

 CopyCode imageКопировать код
THISFORM.txtAddText.Value = This.List(This.ListIndex)
THIS.RemoveItem (This.ListIndex)

См. также