Re: Заполнение раскрывающегося списка

c_ListBox_0 - это константа, генерируемая по команде Создать список констант формы.
Это не обязательно конечно, сделано для удобства. Если вы ими пользуетесь то либо заведите сами, либо командой создайте.

Спасибо сказали: Шишкина Наталия1

Re: Заполнение раскрывающегося списка

Сразу вдогонку вопрос по той же теме.
Пользователь должен выбрать из списка строку.
Нужно получить значение выбранной строки.
Пишу:

Sub FormEvent_Button_0_OnObjectClick( Form, ObjName )   'Кнопка "Далее"

  MsgBox "Элементов в списке: " & Form.c_ListBox_0.Items.Count
  MsgBox "Выбрана строка: " & Form.c_ListBox_0.ItemIndex
    
  If Form.c_ListBox_0.ItemIndex<>"-1" Then   'Если выбран элемент списка, то
   
    For i=0 To Form.c_ListBox_0.Items.Count-1    
      If Form.c_ListBox_0.Selected(i) Then
      oboz_doc = Form.c_ListBox_0.Items 
      End If
    Next

  Form.Close(1)
      
  Else
  msgbox "Выберите строку"
  End If

End Sub

На строке
If Form.c_ListBox_0.Selected(i) Then
макрос зависает.
Обработка ошибок результата не даёт.

Re: Заполнение раскрывающегося списка

ItemIndex - индекс элемента (в Items )  на котором стоит курсор ( оно же выделение если выделен один элемент, MultiSelect=False)
SelectedItems - список строк выделенных, если MultiSelect=True

Спасибо сказали: Шишкина Наталия1

Re: Заполнение раскрывающегося списка

Извините, не поняла.
ItemIndex - это одновременно и индекс элемента и его значение?
У ListBox свойство MultiSelect=False.
Где в коде ошибка, подскажите, пожалуйста.

    For i=0 To Form.c_ListBox_0.Items.Count-1   'просматриваем список    
      If Form.c_ListBox_0.Selected(i) Then    'если срока выбрана, то
      oboz_doc = Form.c_ListBox_0.Items    'присваиваем переменной oboz_doc значение этой строки 
      End If
    Next

Re: Заполнение раскрывающегося списка

If Form.c_ListBox_0.ItemIndex<>-1 Then  Text = Form.c_ListBox_0.Items.Strings(Form.c_ListBox_0.ItemIndex)
Спасибо сказали: Шишкина Наталия1