Новости:

Название темы должно отражать суть задачи.
Темы типа "ПОМОГИТЕ!!!", "Срочно!" и т.п. будут удаляться без объяснения причин

Главное меню

Странное поведение combobox

Автор A-Michael, 26.03.2023, 15:12:49

« назад - далее »

A-Michael

И снова здравствуйте, уважаемые гуру VBA!
Столкнулся со странным, скажем так, поведением combobox на пользовательской форме. При инициализации формы устанавливаю курсор на combobox, и с ним же использую метод DropDown, дабы список разворачивался сразу при вызове формы. Он таки разворачивается, но за пределами формы.  :o
Как говорится "Звезда в шоке"  ;)
Вот код:
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?
Прошу прощения за низкое качество изображения, пришлось ужать его до безобразия, что бы соответсвовать требованиям форума.
Я - не волшебник, я ещё только учусь...

Яндекс.Метрика Рейтинг@Mail.ru