Поведение, используемое по умолчанию для списка, позволяет выбрать только один предмет. Вы можете, однако, сделать возможным для пользователя выбрать множества предметов..

Для обеспечения выбора множества предметов из списка

  • Установите свойство списка MultiSelect в значение (.T.).

Для обработки выбранных предметов, скопируйте их в массив, или внедрите их еще где-нибудь в вашем приложении, проходя по списку предметов и обрабатывая те, у которых свойство Selected равно (.T.). Приведенный ниже код должен быть включен в процедурных код события InteractiveChange элемента listbox для отображения выбранного списка в combobox, cboSelected, а число выбранных предметов - в textbox, txtNoSelected:

  CopyCode imageCopy Code
nNumberSelected = 0  && переменная, для накопления числа выбранных предметов
THISFORM.cboSelected.Clear && очистить combo box
FOR nCnt = 1 TO THIS.ListCount
   IF THIS.Selected(nCnt)
      nNumberSelected = nNumberSelected + 1
      THISFORM.cboSelected.Additem (THIS.List(nCnt))
   ENDIF
ENDFOR
THISFORM.txtNoSelected.Value = nNumberSelected

Смотрите также