Блог

Главная - Вопросы по программированию - Изменение выбранного индекса в выпадающем списке — ошибка, необходимая для объекта

Изменение выбранного индекса в выпадающем списке — ошибка, необходимая для объекта

#vba #visio

#vba #visio

Вопрос:

У меня есть ряд полей со списком, которые я использую для изменения текста на некоторых других объектах в Visio. Я хотел бы добавить кнопку сброса, которая очищает весь текст, а также возвращает индекс всех полей со списком обратно в 0. Я могу очистить текст нормально, но когда я пытаюсь установить индекс любого поля со списком обратно в 0, я получаю

Ошибка времени выполнения ‘424’ Требуется объект.

 C1.SelectedIndex = 0

Я не могу понять, чем он недоволен, так как у меня не было проблем с настройкой поля со списком с помощью следующего кода:

 Dim index As Integer

    C1.AddItem (" ")
For index = 22 To 53
    C1.AddItem ("J" amp; CStr(index))
Next index
    C1.AddItem ("J66")
    C1.AddItem ("J67")

Я совершенно новичок в VBA, и любая помощь будет с благодарностью принята. Спасибо!

Комментарии:

1. C1.ListIndex = 0

2. Изменение на C1.ListIndex = 0, к сожалению, выдает ту же ошибку.

3. В моем основном документе я настроил все поля со списком, как показано в OP. Затем, сразу под этим в том же документе, у меня есть код для кнопки сброса: Private Sub ResetButton_Click() C1.SelectedIndex = 0 End Sub

4. Вы не изменили его на ListIndex ? SelectedIndex В VBA нет. Используете ли вы формы? или выпадающие списки Active-X?

5. Изменение на ListIndex исправило это, недопустимый идентификатор листа был несвязанной ошибкой. Большое спасибо за помощь!