[Capiton]

Подскажите,как программно выделить несколько позиций в элементе list_box диалогового окна.

[E-degtyarev]

multiple_select = true или имеется ввиду что-то другое?

[Disney]

Если нужно несколько позиций, почему бы не использовать вместо List_box элемент toggle?

[Capiton]

multiple_select разрешает или запрещает возможность выбора нескольких элементов в принципе (вручную) и не устаневливает какой и сколько элементов будут выбраны.
toggle использовать в моём случае не рационально т.к. колличество элементов списка не постоянно и может быть довольно большим.

Для выбора всех элементов в списке у меня в диалоге предусмотрена кнопка "Выделить все", но заставить работаь её пока не могу

[Vov.Ka]

так выделяем три первых позиции

Код:

[Выделить все]

(set_tile "a_list_box" "0 1 2")

[AlexV]

Сообщение от Vov.Ka так выделяем три первых позиции Код: [Выделить все] (set_tile "a_list_box" "0 1 2")

ето lisp чтоль? с dcl...

[Кулик Алексей aka kpblc]

Конечно lisp! Конечно, dcl!

[AlexV]

Сообщение от Кулик Алексей aka kpblc Конечно lisp! Конечно, dcl!

А я VBA-шный listbox пытался мучать..

[Кулик Алексей aka kpblc]

Так там тоже вроде можно поставить нечто типа Multiselect = True или нет?

[AlexV]

Сообщение от Кулик Алексей aka kpblc Так там тоже вроде можно поставить нечто типа Multiselect = True или нет?

Оно конечно можно.. Тогда можно выделять несколько позиций одновременно мышью. А вот программно как? listbox.listindex=N... - так можно выделить одну позицию, а несколько одновременно?

[Кулик Алексей aka kpblc]

А в чем собственно проблема-то?

Код:

[Выделить все]

Private Sub UserForm_Click()
Dim lCounter As Long
  With Me
    With .ListBox1
      For lCounter = 1 To 5
        .AddItem "value #" + CStr(lCounter), lCounter - 1
      Next
    End With
  End With
  
  ' Теперь выделение
  With Me.ListBox1
    .Selected(0) = True
    .Selected(2) = True
  End With
End Sub

[Capiton]

Сообщение от Vov.Ka (set_tile "a_list_box" "0 1 2")

Нет. Так не выделяется ничего. Вы сами пробовали?

[Александр Ривилис]

Или не задано multiple_select или какой-то глюк AutoCAD. Такой код работал начиная еще с AutoCAD R12.

[Vov.Ka]

Сообщение от Capiton Нет. Так не выделяется ничего.

должно выделяться, если не верите мне, то поверьте хотя бы Александру Ривилису

покажите код, а там разберемся

[VVA]

Сообщение от Capiton Нет. Так не выделяется ничего. Вы сами пробовали?

Так и не будет. Вместо "a_list_box" нужно вписать key своего list_box'a с учетом регистра. Подозреваю, что ты этого не сделал, а скопировал напрямую код с форума .