ListBox: (2) fmMultiSelectExtended - как?

[Bagathur]

Сижу вот уже второй день листаю справку по Listbox Control с его Properties и Methods, но так и не понял как с ним работать при 3ьем типе мультиселекта.
Вроде написано что вместо .value и .text используется .selected, но как это применить в коде? В случае когда выделен только один элемент вроде что-то получается, правда не совсем то, чего я хочу, но когда выделено несколько элементов - просто беда.
Написано что выделенные данные воспринимаются как массив - но как их записывать в другой массив, где уже есть значения? и как удалять все выделенные элементы?
С мультиселект Single работало .RemoveItem Index, а что использовать здесь? Ту же команду с циклом по извлечению Index для каждого из элементов, которые Selected? Или есть есть одна команда применимая сразу ко всем выделенным элементам?

[Viper]

Вся разница будет заключаться в том, что выделенные элементы от невыделенных можно отличить при помощи свойства Selected. Его то и надо использовать для получения выделенных элементов

[Bagathur]

А нет какой нибудь команды типа
For AllSelected Add To Array или AllSelected: if vbNormal then Open?
Неужели чтобы работать с выделенными элементами списка необходимо перебирать их все, проверяя свойство Selected, и только потом производить действия?

[alibek]

Да, ты понял правильно. Именно так и нужно.
Только я не понял, зачем нужно перебирать элементы и только потом делать что-нибудь.
Перебирай и сразу же делай.

[Bagathur]

Есть ли однострочная простая команда, которая сразу возвращает номер выделенного элемента (для 0 случая селекта)? Или, возможно, сразу его удаляет?
Сейчас делаю по алгоритму "запомнить значение выделенного элемента - сравнить весь список с выделенным - при совпадении запомнить номер (номера) - удалить элемент списка с запомненным номером".

[Viper]

Тебе нужно удалить выделенные элементы или что?

Если сделать нужно именно это, то по циклу проверяй каждый элемент на его выделенность (Selected(Index) = True) и, если он выделен, сразу же и удаляй. Есть нюанс. Цикл нужно начинать с последнего элемента и идти к перрвому.

[Bagathur]

Цикл нужно начинать с последнего элемента и идти к перрвому.

Я мб и ньюб, но даже я это знаю!
Сталкивался уже пару раз с тем, что в цикле
For i=0 To (ListBox.Listcount-1)
при удалении элементов внутри цикла в один прекрасный момент получается так, что i > Listcount, а момент когда i = Listcount пропущен.
Я просто думал что есть какая-то команда для работы одновременно со ВСЕМИ выделенными элементами multiselect.

[Bagathur]

Я понял, что мне было нужно: Listbox.Listindex! Жаль что я только что узнал о том, что это такое.

Код: Выделить всё

i = -1
Do While i < (ПутиФайлов.ListCount - 1)
i = i + 1
Select Case xwFiles
   Case 1
If Right(ПутиФайлов.List(i, 0), 4) <> ".doc" Then
ПутиФайлов.RemoveItem i
i = i - 1
End If
  (...)
   End Select
Loop


Так я "убегаю" от ошибки когда i уже больше Listcount, но ещё не было ему равно.

[Viper]

а не проще так:

Код: Выделить всё

For i = ListBox.Listcount-1 To 0  Step -1
' типа код
Next i

?

[Bagathur]

Проще, но хуже, потому что не сам придумал, а авторских прав нету
Спасибо, Випер.

[Viper]

Проще, но хуже, потому что не сам придумал, а авторских прав нету
Спасибо, Випер.

ну поставвь копирайт! типа Viper©