ComboBox - глюк списка (новый) :)

[Space]

Ну тут я уже не виноват! Какая логика? В зависимости от значения в cbx1 для cbx2 читается список из файла (заменено простым AddItem в cbx2_GotFocus). Описание глюка в прожке.

[Space]

интересно то, что список cbx2 показывается ещё до cbx1_LostFocus(!), т.к. закрытие его в cbx1_LostFocus проходит успешно (ComboListVisible cbx2, False). Это затрудняет коррекцию глюка. Всякие Refresh (вообще корявый метод) не помогают (и перебор контролов, фреймов с Refresh - не выход), да и открытие списка неверного размера уже само по себе глюк! С попытками коррекции глюка:

[Хакер]

Ну тут я уже не виноват! Какая логика?

Да всё та же логика-то. Нефиг менять контент комбобокса в то время, когда он показан.

[jangle]

Действительно комбоманьяк!

Cдвинь текстбокс ниже зоны выпадающего списка cbx2 и добать ME.refresh

Код: Выделить всё

Private Sub cbx2_GotFocus()
Dim i As Long
Debug.Print "cbx2_GotFocus"
    If cbx1.Text = "1" Then
     cbx2.Clear
     cbx2.AddItem "a"
     Me.Refresh
    Else
     cbx2.Clear
     cbx2.AddItem "aa"
     cbx2.AddItem "bb"
    End If
End Sub

[Space]

Хакер, а где его менять.
Jangle, это не выход. Если для каждого комбика отводить на форме столько места, то представляешь, как всё это будет выглядеть? Лучше уж на его место положить TextBox+CommandButton+ListBox.

[Хакер]

Хакер, а где его менять. Мда, очень остроумно.

При смене выбора в cbx1? Нужели так туго с «взять и подумать»?

[Space]

при смене выбора в cbx1 накладнее, чем в GotFocus. Это надо менять при каждом нажатии клавиш. Обидно ведь

[Хакер]

Ты заблуждаешься. Сильно. Постоянно. Насчёт многих вещей.

К тому же, причём здесь нажатия клавишь?

[Space]

при вводе в Text

[Хакер]

Ты же говорил, у тебя звук проигрывается при работе с ComboBox!?

[Space]

нет, ты чё. У мя связанные списки Страна-Область-Город-Улица. Если происходит ввод в Стране, то при каждом Change будут читаться списки из файлов Область-Город-Улица. Хотя я тут вижу одно небольшое преимущество, возможно, я использую этот вариант, хоть он и более тормозной...

[Хакер]

Ну ты же писал, что будет воспроизводится звук «Ta-da!». Писал?

[Space]

нет, где это ты взял???

[Хакер]

А где ты взял, что менять контент я тебе советую «при вводе в Text»? Там же и я.

[alibek]

Space, тебя уже предупреждали насчет персонального запрета писать о глюках комбобокса.
Этот момент все ближе и ближе.

[jangle]

Jangle, это не выход. Если для каждого комбика отводить на форме столько места, то представляешь, как всё это будет выглядеть? Лучше уж на его место положить TextBox+CommandButton+ListBox.

Ну если хочется извратиться, перерисовывай TextBox. Нафига в твоем коде это?

Код: Выделить всё

    'cbx2.Clear 'не помогает
    'cbx2.Refresh 'не помогает
    'ComboListVisible cbx2, True 'не помогает
    'ComboListVisible cbx2, False 'не помогает

Ты разве Combo списком перекрываешь? Я уже писал же об этом. Отрисовывай тот контрол, который был перекрыт.
Для этого используй функцию UpdateWindow, которая требует немедленной перерисовки клиентской области в обход общей очереди сообщений.
Или, что намного проще, просто добавь три строчки, результат будет тот же.

Код: Выделить всё

Private Sub cbx2_GotFocus()
Dim i As Long
Debug.Print "cbx2_GotFocus"
    If cbx1.Text = "1" Then
     cbx2.Clear
     cbx2.AddItem "a"

     Me.Text1.Visible = False
     Me.Refresh
     Me.Text1.Visible = True

    Else
     cbx2.Clear
     cbx2.AddItem "aa"
     cbx2.AddItem "bb"
    End If
End Sub

[Space]

Alibek, какой момент? Не надо мя пугать!