Excel это не сложно
Добро пожаловать, Гость. Пожалуйста, войдите или зарегистрируйтесь.
16.04.2024, 21:46:21

Войти
Название темы должно отражать её содержание.
Темы типа "ПОМОГИТЕ!!!", "Срочно!", "Не получается сделать", "Нужна помощь" и т.п. будут удаляться без объяснения причин
33 240 Сообщений в 5 456 Тем от 6 756 Пользователей
Последний пользователь: Expert2024
*
Перейти на сайт Хитрости Надстройка MulTEx Обучающие тренинги Наша группа ВКонтакте
Правила форума Начало Помощь Поиск Календарь Войти Регистрация Выйти
+  Excel это не сложно
|-+  Основные форумы
| |-+  Вопросы по Excel и VBA
| | |-+  Странное поведение combobox
Страниц: [1]   Вниз
Печать
Автор Тема: Странное поведение combobox  (Прочитано 1702 раз)
0 Пользователей и 1 Гость смотрят эту тему.
A-Michael
Старожил
****

Репутация: +16/-0
Офлайн Офлайн

Сообщений: 495



Просмотр профиля E-mail
« : 26.03.2023, 15:12:49 »

И снова здравствуйте, уважаемые гуру VBA!
Столкнулся со странным, скажем так, поведением combobox на пользовательской форме. При инициализации формы устанавливаю курсор на combobox, и с ним же использую метод DropDown, дабы список разворачивался сразу при вызове формы. Он таки разворачивается, но за пределами формы.  Шокирован
Как говорится "Звезда в шоке"  Подмигивающий
Вот код:
Код: (vb)
Private Sub UserForm_Initialize()

Dim N_CntC As Integer
Dim C_Ctrl As Control

N_CntC = 1

For Each C_Ctrl In Controls
' Перебор контролов в форме UF_PRO
    If Left(C_Ctrl.Name, 3) = "CmB" Then
       Set PAO_Ctrl(N_CntC).Ch_Controls = Me.Controls(C_Ctrl.Name)
       N_CntC = N_CntC + 1
    End If
Next

' Установка курсора в комбобокс CMB_ORG
CmB_Org.SetFocus

End Sub

Private Sub CmB_Org_Enter()

CmB_Org.DropDown

End Sub


Я даже не знаю, как сформулировать вопрос. То ли это странный глюк Excel, то ли мои "шаловливые ручки", то ли недостойное поведение представителя славного семейства CONTROL?
Прошу прощения за низкое качество изображения, пришлось ужать его до безобразия, что бы соответсвовать требованиям форума.
Записан

Я - не волшебник, я ещё только учусь...
Страниц: [1]   Вверх
Печать
Перейти в:  

Powered by MySQL Powered by PHP Powered by SMF 1.1.21 | SMF © 2006-2011, Simple Machines Valid XHTML 1.0! Valid CSS!
Яндекс.Метрика Рейтинг@Mail.ru