[VB6] Как организовать свой контрол с выпадающим окошком (типа комбобокса) / Visual Basic

ReSQL.ru

Мобильная версия Контакт Правила FAQ Помощь

Гость

Войти | Регистрация | Профиль | Очистить

Новые сообщения | Избранное

Форумы | Пользователи | Статистика | Мод. лог | Поиск

Цитировать

Написать

Автор*:

Ввести пароль для входа

Тема*:

Сообщение

Данное сообщение тематическое

Сообщение содержит картинки или видео 18+

Автор:

ВНИМАНИЕ! На данном подфоруме действуют строгие правила. Удостоверьтесь, что ваше сообщение соответствует им!

Форум или тема закрыты для гостей. Необходима авторизация!

Загрузить последнюю сохраненную версию

Вложение:

Вставить как галерею

Максимальный размер вложений: 4,0 МБ, аудио/видео: 8,0 МБ. Картинки большего размера ужимаются, если возможно.

Введите код, изображенный на картинке. Если код нечитаемый, кликните картинку, чтобы загрузить другой вариант.

Отправляя сообщение, я выражаю свое согласие с правилами форума и принимаю пользовательское соглашение.

Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр

Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / [VB6] Как организовать свой контрол с выпадающим окошком (типа комбобокса)

46 сообщений из 46, показаны все 2 страниц

все

[VB6] Как организовать свой контрол с выпадающим окошком (типа комбобокса)

#36855118

Shocker.Pro

Участник

Откуда: ->|<- :адуктО

Сообщения: 23 134

Рейтинг: 0 / 0

_{Ну раз никто глупых вопросов не задает, тогда задам я}

В общем задача понятна должна быть, но тезисы обрисую:

1) Есть юзерконтрол. У него должна быть некая функция, которая обеспечивает появление дополнительного окошка, в которое в идеале динамически грузится другой юзерконтрол с произвольным функционалом.

2) Окошко не должно ограничиться границами контейнера, на котором расположен базовый юзерконтрол (иначе можно было бы просто изменять размеры юзерконтрола)

3) Окошко должно реагировать на края экрана и выпадать сверху, если снизу оно не помещается до края экрана.

4) Окошко должно исчезнуть, если произошел клик мимо него (простая потеря фокуса не годится, так как если просто кликнуть по пустой части формы, активный контрол фокус не теряет), а также потеря фокуса основным контролом или базовым приложением.

Как я понимаю, п.2,3,4 без АПИ реализовать не удастся, подскажите плиз - какими функциями нужно воспользоваться.

...

Рейтинг:

0 / 0

20.09.2010, 12:17

| Ответить | Цитировать | Написать

[VB6] Как организовать свой контрол с выпадающим окошком (типа комбобокса)

#36855213

Antonariy

Участник

Откуда: ☭

Сообщения: 80 221

Рейтинг: 0 / 0

Что самое смешное…

...

Рейтинг:

0 / 0

20.09.2010, 12:48

| Ответить | Цитировать | Написать

[VB6] Как организовать свой контрол с выпадающим окошком (типа комбобокса)

#36855239

Shocker.Pro

Участник

Откуда: ->|<- :адуктО

Сообщения: 23 134

Рейтинг: 0 / 0

Antonariy,

Упс...
старый склеротик...
тогда не разобрал, не до этого было....

ща займусь.

...

Рейтинг:

0 / 0

20.09.2010, 12:54

| Ответить | Цитировать | Написать

[VB6] Как организовать свой контрол с выпадающим окошком (типа комбобокса)

#36855450

Shocker.Pro

Участник

Откуда: ->|<- :адуктО

Сообщения: 23 134

Рейтинг: 0 / 0

Antonariy,

А ты его после того не дорабатывал? Чтоб уж последнюю версию смотреть...

...

Рейтинг:

0 / 0

20.09.2010, 14:00

| Ответить | Цитировать | Написать

[VB6] Как организовать свой контрол с выпадающим окошком (типа комбобокса)

#36855477

Antonariy

Участник

Откуда: ☭

Сообщения: 80 221

Рейтинг: 0 / 0

Вот она.

...

Рейтинг:

0 / 0

20.09.2010, 14:11

| Ответить | Цитировать | Написать

[VB6] Как организовать свой контрол с выпадающим окошком (типа комбобокса)

#36855520

Shocker.Pro

Участник

Откуда: ->|<- :адуктО

Сообщения: 23 134

Рейтинг: 0 / 0

Ругается на отсутствие cUxTheme.dll
Это для чего? в той версии такого не было

...

Рейтинг:

0 / 0

20.09.2010, 14:25

| Ответить | Цитировать | Написать

[VB6] Как организовать свой контрол с выпадающим окошком (типа комбобокса)

#36855625

Antonariy

Участник

Откуда: ☭

Сообщения: 80 221

Рейтинг: 0 / 0

c UxTheme это класс, а ругается наверное на отсутствие uxtheme.dll — "Библиотека тем UxTheme (Microsoft)". У меня XP SP3 и она есть в System32.
Она нужна для того, чтобы кнопка комбобокса рисовалась в соответствии с текущем стилем винды.

...

Рейтинг:

0 / 0

20.09.2010, 15:22

| Ответить | Цитировать | Написать

[VB6] Как организовать свой контрол с выпадающим окошком (типа комбобокса)

#36855789

Shocker.Pro

Участник

Откуда: ->|<- :адуктО

Сообщения: 23 134

Рейтинг: 0 / 0

Antonariy,

Я в данный момент на 2000к и стили мне не нужны, так как выпадания будут вызываться специфическими кнопками, поэтому пока ковыряю старую версию.

Пытаюсь курить код, тяжело, ибо стихи АПИ - нет беглости, а пока изучишь каждую функцию, забудешь с чего начинал. Так структуру примерно разобрал, просто много непонятно, почему именно так. К примеру, почему события Click и DblClick сделаны через отдельный класс? А вот само время жизни окна находится внутри цикла, в котором нет DoEvents - как же он обходится?

...

Рейтинг:

0 / 0

20.09.2010, 16:11

| Ответить | Цитировать | Написать

[VB6] Как организовать свой контрол с выпадающим окошком (типа комбобокса)

#36855928

Shocker.Pro

Участник

Откуда: ->|<- :адуктО

Сообщения: 23 134

Рейтинг: 0 / 0

Shocker.ProК примеру, почему события Click и DblClick сделаны через отдельный класс?
Кстати, для чего они вообще нужны?
По идее - требуется, чтобы по возникновению какого-то события в выпавшем фрагменте, сам выпавший фрагмент закрылся. Для этого, как я понимаю, нужно выставить fStop в True, но это делается через сообщения, почему? Только из-за того, чтобы работало на модальной форме?

...

Рейтинг:

0 / 0

20.09.2010, 16:58

| Ответить | Цитировать | Написать

[VB6] Как организовать свой контрол с выпадающим окошком (типа комбобокса)

#36856173

Antonariy

Участник

Откуда: ☭

Сообщения: 80 221

Рейтинг: 0 / 0

Shocker.ProК примеру, почему события Click и DblClick сделаны через отдельный класс?
Кстати, для чего они вообще нужны?Нужны для того, чтобы создать у контрола событие аналогичное Click у комбобокса. Зачем нужен даблклик? Затем, что по клику у дерева, например, распахиваются узлы, будет неприятно, если дропдаун закроется до того, как нужный узел будет найден. В отдельном классе просто потому что так сложилось. Можно и через сам юзерконтрол.

Shocker.ProДля этого, как я понимаю, нужно выставить fStop в TrueНет, в старой версии это была заплатка от краша при потере фокуса, в последней версии она не нужна, как и условие If fStop. Вообще большинство "почему именно так" это заплатки от вылета программы в астрал. Делаю какое-то действие, получаю вылет, нахожу событие или их последовательность, приводящую к вылету, ищу пути обхода. В одних местах это перевод фокуса, в других — уничтожение окна.

Shocker.Pro А вот само время жизни окна находится внутри цикла, в котором нет DoEvents - как же он обходится?GetMessage ожидает событий, блокируя поток. Пока их нет, цикл стоит.

...

Рейтинг:

0 / 0

20.09.2010, 19:10

| Ответить | Цитировать | Написать

[VB6] Как организовать свой контрол с выпадающим окошком (типа комбобокса)

#36858281

Shocker.Pro

Участник

Откуда: ->|<- :адуктО

Сообщения: 23 134

Рейтинг: 0 / 0

фух, отодрал работу со стилями, ща буду курить дальше уже новую версию...

WorobjoffЕсть еще один маленький клопик:
Если форма внизу экрана, фрейм дропается вникуда (за пределы экрана, а не вверх).
А это ты не стал исправлять делать, как я понимаю?

...

Рейтинг:

0 / 0

21.09.2010, 16:06

| Ответить | Цитировать | Написать

[VB6] Как организовать свой контрол с выпадающим окошком (типа комбобокса)

#36858575

Antonariy

Участник

Откуда: ☭

Сообщения: 80 221

Рейтинг: 0 / 0

Не стал.

...

Рейтинг:

0 / 0

21.09.2010, 17:17

| Ответить | Цитировать | Написать

[VB6] Как организовать свой контрол с выпадающим окошком (типа комбобокса)

#36859117

Shocker.Pro

Участник

Откуда: ->|<- :адуктО

Сообщения: 23 134

Рейтинг: 0 / 0

AntonariyShocker.Pro А вот само время жизни окна находится внутри цикла, в котором нет DoEvents - как же он обходится?GetMessage ожидает событий, блокируя поток. Пока их нет, цикл стоит.
Но, получается, при этом спокойно отрабатываются события в другом потоке? То есть в "выпавшем" контроле я могу делать что хочу?

В принципе, получается такая цепочка, если я все правильно понял:
1) TargetProc перехватывает сообщения окну "выпавшего" контрола
2) Если находит WM_LBUTTONDBLCLK, посылает контейнеру "выпавшего" окна сообщение на уничтожение
3) ...Одновременно с этим запускает таймер для генерации события
4) Окно контейнера уничтожается, GetMessage получает WM_QUIT, цикл завершается, завершая работу "выпадения"
5) тем временем таймер генерит событие в классе, которое получает базовый контрол.

В общем-то, я хочу несколько переиначить это дело, то есть наплевать на Click, DblClick - у выпадающего юзерконтрола могут быть задачи посерьезнее и я делегирую ему полномочия решить, когда ему закрыться (например пользователь нажал определенную кнопку). То есть пункты 2,3,5 я могу смело ликвидировать.
Если я опять же правильно понял, когда выпавший контрол решит, что его миссия выполнена, он должен сделать это:

Код: plaintext

1.
2.

PostMessage gDropWindow, WM_USER +  1 ,  0 ,  0 
PostMessage gDropWindow, WM_CLOSE,  0 ,  0 
PostMessage gDropWindow, WM_DESTROY,  0 ,  0

(разумеется gDropWindow должно оказаться в его области видимости)
и цикл завершит свою работу. При этом сам факт завершения цикла будет событием для базового контрола, что выпавшая часть завершила свою работу, а если нужна дополнительная информация - ее можно взять через свойства выпадающего контрола.
Правильный подход?

ЗЫ: твой текущий пример можно загнать в астрал следующим образом - раскрыть выпадающий список и нажать Alt+F4

...

Рейтинг:

0 / 0

22.09.2010, 00:54

| Ответить | Цитировать | Написать

[VB6] Как организовать свой контрол с выпадающим окошком (типа комбобокса)

#36859527

Antonariy

Участник

Откуда: ☭

Сообщения: 80 221

Рейтинг: 0 / 0

Shocker.ProНо, получается, при этом спокойно отрабатываются события в другом потоке? То есть в "выпавшем" контроле я могу делать что хочу?Это не другой поток, это другой обработчик событий другого окна. Они работают по очереди, но так быстро, что кажется, как бы одновременно. Сначала событие обрабатывает контрол, потом оно добирается до GetMessage, если контрол его не зарубит, и цикл продолжает свой неспешный бег.

Shocker.ProЕсли я опять же правильно понял,Правильно.

Shocker.ProПри этом сам факт завершения цикла будет событием для базового контрола, что выпавшая часть завершила свою работу, а если нужна дополнительная информация - ее можно взять через свойства выпадающего контрола.Собственно, у меня так и сделано.

Код: plaintext

1.
2.
3.
4.
5.
6.
7.
8.

Private Sub Command1_Click()
    …
    CreateDD ObjPtr(cPrivate), cControl.hWnd, …
    cControl.Visible = False
    RaiseEvent Click( 0 )
    Exit Sub
errh:
    MsgBox "Control does not have a window handle or invisible at run time!", vbExclamation
End Sub

Тебе нужно только заменить обработку WM_LBUTTONUP и WM_LBUTTONDBLCLK на WM_USER + 4, например, и снабдить юзерконтрол методом, отправляющим это сообщение контролу, который используешь для выпадения.

Shocker.ProЗЫ: твой текущий пример можно загнать в астрал следующим образом - раскрыть выпадающий список и нажать Alt+F4Да уж, до этого я не додумался — закрывать программу в самый разгар работы в ней. :)

...

Рейтинг:

0 / 0

22.09.2010, 11:15

| Ответить | Цитировать | Написать

[VB6] Как организовать свой контрол с выпадающим окошком (типа комбобокса)

#36859554

Antonariy

Участник

Откуда: ☭

Сообщения: 80 221

Рейтинг: 0 / 0

Shocker.ProВ общем-то, я хочу несколько переиначить это дело, то есть наплевать на Click, DblClick - у выпадающего юзерконтрола могут быть задачи посерьезнее и я делегирую ему полномочия решить, когда ему закрыться (например пользователь нажал определенную кнопку). Кстати, здесь есть громадная засада. Контрол спроектирован так, чтобы исключить возможность появления вообще в системе обновременно более одного выпадающего окна, потому что глобальные переменные модуля разделяются всеми экземплярами контрола во всех процесах.
Если же процедуру закрытия будет регламентировать не DDControl, а кто попало, то потенциально возможна попытка показать более одного дропдауна, что приведет к краху программы.

...

Рейтинг:

0 / 0

22.09.2010, 11:28

| Ответить | Цитировать | Написать

[VB6] Как организовать свой контрол с выпадающим окошком (типа комбобокса)

#36859563

Antonariy

Участник

Откуда: ☭

Сообщения: 80 221

Рейтинг: 0 / 0

Как минимум нужно прятать дропдаун изнутри DDControl'а, если фокус получил другой его экземпляр.

...

Рейтинг:

0 / 0

22.09.2010, 11:30

| Ответить | Цитировать | Написать

[VB6] Как организовать свой контрол с выпадающим окошком (типа комбобокса)

#36859856

Shocker.Pro

Участник

Откуда: ->|<- :адуктО

Сообщения: 23 134

Рейтинг: 0 / 0

AntonariyКстати, здесь есть громадная засада. Контрол спроектирован так, чтобы исключить возможность появления вообще в системе обновременно более одного выпадающего окна, потому что глобальные переменные модуля разделяются всеми экземплярами контрола во всех процесах.

Я тоже поначалу не понял, почему это модуль, а не класс.
Что причина, а что следствие -
1) ТЗ на то, что нельзя получить два выпадающих списка одновременно => реализация в виде модуля
или
2) Реализация в виде модуля - как следствие невозможность получить два выпадающих контрола
?
А если изолировать модуль в класс - будут работать два?

Насколько я понимаю, увод фокуса автоматически закроет выпадающую часть, так что второй выпадающий контрол может появиться только если это будет по инициативе программы, а не пользователя.
Кстати, а что будет, если приложение по своей инициативе уведет фокус на другую форму (есть у меня такое - приход сверхважного сообщения)?

AntonariyЕсли же процедуру закрытия будет регламентировать не DDControl, а кто попало, то потенциально возможна попытка показать более одного дропдауна, что приведет к краху программы.
Ну, собственно, вариант с отсылкой WM_USER + 4 это решает? или ты что-то другое имеешь ввиду?

...

Рейтинг:

0 / 0

22.09.2010, 13:12

| Ответить | Цитировать | Написать

[VB6] Как организовать свой контрол с выпадающим окошком (типа комбобокса)

#36860217

Antonariy

Участник

Откуда: ☭

Сообщения: 80 221

Рейтинг: 0 / 0

Shocker.ProЧто причина, а что следствиеНи то ни другое. Хотелось полной имитация работы комбобокса, а из того, что двух открытых комбобоксов не бывает, следует ненужность поддержки нескольких открытых дропдаунов. В любом случае, в виде класса это сделать не получится без ассемблерных вставок, а оно разве надо?

Shocker.ProНасколько я понимаю, увод фокуса автоматически закроет выпадающую часть, так что второй выпадающий контрол может появиться только если это будет по инициативе программы, а не пользователя.Все верно, упустил это из виду.

Shocker.ProКстати, а что будет, если приложение по своей инициативе уведет фокус на другую форму (есть у меня такое - приход сверхважного сообщения)?Потеря фокуса есть потеря фокуса, неважно как это произошло.

Shocker.ProНу, собственно, вариант с отсылкой WM_USER + 4 это решает? или ты что-то другое имеешь ввиду?Проблему решает потеря фокуса, а WM_USER + 4 призвано закрывать дропдаун альтернативным потере способом.

...

Рейтинг:

0 / 0

22.09.2010, 14:57

| Ответить | Цитировать | Написать

[VB6] Как организовать свой контрол с выпадающим окошком (типа комбобокса)

#36860940

Shocker.Pro

Участник

Откуда: ->|<- :адуктО

Сообщения: 23 134

Рейтинг: 0 / 0

AntonariyВ любом случае, в виде класса это сделать не получится без ассемблерных вставок, а оно разве надо?

Для общего развития - а что там такого, что не может быть размещено в классе?

...

Рейтинг:

0 / 0

22.09.2010, 18:20

| Ответить | Цитировать | Написать

[VB6] Как организовать свой контрол с выпадающим окошком (типа комбобокса)

#36861254

Antonariy

Участник

Откуда: ☭

Сообщения: 80 221

Рейтинг: 0 / 0

Оконные процедуры. AddressOf понимает только те, что объявлены в модуле.

...

Рейтинг:

0 / 0

22.09.2010, 23:12

| Ответить | Цитировать | Написать

[VB6] Как организовать свой контрол с выпадающим окошком (типа комбобокса)

#36862354

Shocker.Pro

Участник

Откуда: ->|<- :адуктО

Сообщения: 23 134

Рейтинг: 0 / 0

AntonariyОконные процедуры. AddressOf понимает только те, что объявлены в модуле.

Ну обойти, конечно, можно, разместив оконные процедуры в модуле и делая реестр hwnd и соответствующих им объектов.... но незачем, конечно же....

...

Рейтинг:

0 / 0

23.09.2010, 13:56

| Ответить | Цитировать | Написать

[VB6] Как организовать свой контрол с выпадающим окошком (типа комбобокса)

#36955725

Shocker.Pro

Участник

Откуда: ->|<- :адуктО

Сообщения: 23 134

Рейтинг: 0 / 0

Блин.
БЛИН.

Antonariy,

Ща начал интегрировать в рабочий проект и тут-то выяснилось, что метод не подходит для моих целей. Как я писал в самом начале - предполагается выпадение юзерконтрола с произвольным функционалом. Возьмем в примитивном случае, что должен выпасть фрейм с кнопкой на нем.

Как только я пытаюсь нажать кнопку, у окна gTarget возникает сообщение WM_KILLFOCUS и мое окошко DD уничтожается, не дав мне даже получить событие от кнопки. А нужно, чтобы оно в этом случае вообще не закрывалось.

В общем, методом тыка и грубой силы сделал следующим образом: при получении WM_KILLFOCUS, DD не уничтожается, а запускается таймер. Вот обработчик таймера:

Код: plaintext

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.

Private Sub Timer1()
    
Dim Par As Long
KillTimer  0 , hTimer
            
Par = GetFocus
Do Until Par =  0 
  If Par = gDropWindow Then
    SetFocus gTargetWindow
    Exit Sub
  End If
  Par = GetParent(Par)
Loop

PostMessage gDropWindow, WM_USER +  1 ,  0 ,  0 
PostMessage gDropWindow, WM_CLOSE,  0 ,  0 
PostMessage gDropWindow, WM_DESTROY,  0 ,  0 

End Sub

Ничего другого в голову не пришло, прошу совета, а то мне кажется это как-то слишком грубо. Кроме того, теоретически ведь я могу щелкнуть по другому контролу с выпадающим списком. И тогда возникнет та самая ситуация, когда открывается следующий DD, а предыдущий не закрыт. Я даже пока не стал пробовать такую ситуацию, конечно, можно сделать контрольные проверки, но пока не делаю, надеюсь, что будет идея получше.

...

Рейтинг:

0 / 0

14.11.2010, 20:09

| Ответить | Цитировать | Написать

[VB6] Как организовать свой контрол с выпадающим окошком (типа комбобокса)

#36955745

Shocker.Pro

Участник

Откуда: ->|<- :адуктО

Сообщения: 23 134

Рейтинг: 0 / 0

он еще и не рабочий этот метод
если убрать строку

Код: plaintext

SetFocus gTargetWindow

то работает, но перестает закрываться по потере фокуса по понятным причинам.
а с этой строкой - события кнопки не возникают

...

Рейтинг:

0 / 0

14.11.2010, 20:35

| Ответить | Цитировать | Написать

[VB6] Как организовать свой контрол с выпадающим окошком (типа комбобокса)

#36955760

Shocker.Pro

Участник

Откуда: ->|<- :адуктО

Сообщения: 23 134

Рейтинг: 0 / 0

Ситуацию исправил добавлением процедуры обработки потери фокуса для любого контрола, находящегося в подчинении DD. Выглядит ужасно:

Код: plaintext

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.

Private Sub Timer1()
    
Dim l As Long, Par As Long
KillTimer  0 , hTimer1
            
l = GetFocus
Par = l
Do Until Par =  0 
  If Par = gDropWindow Then
    If lpPrevAnyControlhWnd <>  0  Then
      SetWindowLong lpPrevAnyControlhWnd, GWL_WNDPROC, lpPrevAnyControlProc
    End If
    lpPrevAnyControlhWnd = l
    lpPrevAnyControlProc = SetWindowLong(lpPrevAnyControlhWnd, GWL_WNDPROC, AddressOf AnyControlProc)
    Exit Sub
  End If
  Par = GetParent(Par)
Loop

PostMessage gDropWindow, WM_USER +  1 ,  0 ,  0 
PostMessage gDropWindow, WM_CLOSE,  0 ,  0 
PostMessage gDropWindow, WM_DESTROY,  0 ,  0 

End Sub

...

Рейтинг:

0 / 0

14.11.2010, 20:51

| Ответить | Цитировать | Написать

[VB6] Как организовать свой контрол с выпадающим окошком (типа комбобокса)

#36955772

Antonariy

Участник

Откуда: ☭

Сообщения: 80 221

Рейтинг: 0 / 0

Самый первый вариант контрола поддерживал нажатия на кнопки.

...

Рейтинг:

0 / 0

14.11.2010, 21:02

| Ответить | Цитировать | Написать

[VB6] Как организовать свой контрол с выпадающим окошком (типа комбобокса)

#36955802

Shocker.Pro

Участник

Откуда: ->|<- :адуктО

Сообщения: 23 134

Рейтинг: 0 / 0

AntonariyСамый первый вариант контрола поддерживал нажатия на кнопки.
ну та же беда
после нажатия на кнопку DD по потере фокуса не закрывается

...

Рейтинг:

0 / 0

14.11.2010, 21:29

| Ответить | Цитировать | Написать

[VB6] Как организовать свой контрол с выпадающим окошком (типа комбобокса)

#36955805

Shocker.Pro

Участник

Откуда: ->|<- :адуктО

Сообщения: 23 134

Рейтинг: 0 / 0

Shocker.ProAntonariyСамый первый вариант контрола поддерживал нажатия на кнопки.
ну та же беда
после нажатия на кнопку DD по потере фокуса не закрывается
ну и умирает нафиг.
я пытаюсь в примере по ссылке развернуть фрейм с кнопкой вместо дерева

...

Рейтинг:

0 / 0

14.11.2010, 21:32

| Ответить | Цитировать | Написать

[VB6] Как организовать свой контрол с выпадающим окошком (типа комбобокса)

#36955810

Shocker.Pro

Участник

Откуда: ->|<- :адуктО

Сообщения: 23 134

Рейтинг: 0 / 0

А если читать ниже, около окончательного примера комментарий автора:
AntonariyНе рекомендуется на дропдаун класть CommandButton - если фокус на кнопке, дропдаун не прячется
как я понимаю, не только кнопки, но и текстовые поля и т.п., что имеет фокус ввода

...

Рейтинг:

0 / 0

14.11.2010, 21:36

| Ответить | Цитировать | Написать

[VB6] Как организовать свой контрол с выпадающим окошком (типа комбобокса)

#36956292

Antonariy

Участник

Откуда: ☭

Сообщения: 80 221

Рейтинг: 0 / 0

Shocker.ProAntonariyСамый первый вариант контрола поддерживал нажатия на кнопки.
ну та же беда
после нажатия на кнопку DD по потере фокуса не закрываетсяОшибся, последний файл в той теме.

...

Рейтинг:

0 / 0

15.11.2010, 10:36

| Ответить | Цитировать | Написать

[VB6] Как организовать свой контрол с выпадающим окошком (типа комбобокса)

#36956931

Shocker.Pro

Участник

Откуда: ->|<- :адуктО

Сообщения: 23 134

Рейтинг: 0 / 0

Выложу сюда переработанный проект Антонария, чтобы уже на конкретном примере довести его до ума.
Переработка запускается в сильном упрощении для улучшения понимания и доработки (то есть сейчас нужно горазно меньше сломать мозг, чтобы разобрать суть). Проект Антонария во-первых универсален и связывает три вещи - некий универсальный юзерконтрол (комбобокс), некий отдельностоящий контрол, который используется для выпадения и форма, на которой это все лежит. Соответственно, усложняется взаимодействие между этими объектами и их синхронизация.

С другой стороны, не вижу смысла разносить дроп и основную часть по разным местам (ибо это всегда специфический контрол со своими функциями и вряд ли и то и другое будет выглядит стандартно). Тогда и синхронизация значений и событий дропа не представляет проблему.

Вся обработка вынесена в достаточно автономный модуль LB_DropDown, я постарался избавиться от другого связанного кода, для облегчения интеграции. Также избавился от глобальных объектных переменных в модуле, осталось два глобальных метода CreateDD, KillDD и глобальная переменная DDDropped для проверки состояния.

Туда добавлен тот дурацкий код, который я приводил выше для обеспечения работы с кнопками. В итоге, сейчас дроп представляет собой фрейм с кнопкой, встроенный в юзерконтрол.

ЗЫ: Еще я оттуда убрал работу со стилями, так как мне нужно запускать мой софт на Win2K
ЗЗЫ: А следующим постом - куча вопросов :)

...

Рейтинг:

0 / 0

15.11.2010, 13:42

| Ответить | Цитировать | Написать

[VB6] Как организовать свой контрол с выпадающим окошком (типа комбобокса)

#36957000

Shocker.Pro

Участник

Откуда: ->|<- :адуктО

Сообщения: 23 134

Рейтинг: 0 / 0

AntonariyОшибся, последний файл в той теме.
Так собственно, после нажатия на кнопку, дроп перестает закрываться по потере фокуса. Это, собственно, проблема. Впрочем, я там еще покурю, так как корректная работа с msgbox и поля есть, которые получают фокус. Пока вопросы другие:

========================

1) Зачем в процедуре DropWndProc есть строка

Код: plaintext

        Case WM_DESTROY
            SetFocus gParentWindow

?
Получатся, что при выпавшем дропе пользователь с первого раза не может увести фокус на другое приложение или на другую форму. Напрягает. Я закомментировал эту строку, вроде глюков пока не нашел, но может просто не смог?

2) Как сделать дроп без рамки? Я так понимаю, это определяется строкой

Код: plaintext

    SetWindowLong hw, GWL_STYLE, WS_BORDER

просмотрев список констант не нашел ничего понятного

3) В чем прикол RestorePtr?

4) Зачем вообще нужен FrmProc? Я ставил точку останова туда - вообще не попадает внутрь Case

5) Мелькание дропа. При убивании дропа на какой-то момент под ним появляется белое окошко (gDropWindow). Очень неприятное зрелище. Как логичнее всего от него избавиться (может делать его невидимым перед убийством или что-то типа того)?

6) Почему у меня не работает следующая конструкция:

Код: plaintext

1.
2.
3.
4.
5.

Private Sub Command2_Click()

    KillDD
    Do Until Not DDDropped: DoEvents: Loop

End Sub

не выходит из цикла. Как-то я все же плохо понимаю, как работает GetMessage

...

Рейтинг:

0 / 0

15.11.2010, 14:02

| Ответить | Цитировать | Написать

[VB6] Как организовать свой контрол с выпадающим окошком (типа комбобокса)

#36957648

Antonariy

Участник

Откуда: ☭

Сообщения: 80 221

Рейтинг: 0 / 0

Shocker.ProТак собственно, после нажатия на кнопку, дроп перестает закрываться по потере фокуса.Если поставить фокус в один из выпавших текстбоксов, то после этого закрывается.

1) Не помню точно. Скорее всего для лечения какого-то глюка. Попробуй убрать.
2) Убрать эту строчку? ))
3) Может Res olv ePtr? Единственный способ присвоить результат AddressOf переменной — прогнать ее параметром через функцию.
4) Ммм... Там нет Case и туда попадает. Опять же для лечения глюков.
5) Да, нужно его спрятать перед убиением.
6) Это тоже не из той оперы. Я ориентируюсь на последний файл все той же темы.

...

Рейтинг:

0 / 0

15.11.2010, 16:32

| Ответить | Цитировать | Написать

[VB6] Как организовать свой контрол с выпадающим окошком (типа комбобокса)

#36958005

Shocker.Pro

Участник

Откуда: ->|<- :адуктО

Сообщения: 23 134

Рейтинг: 0 / 0

Antonariy1) Не помню точно. Скорее всего для лечения какого-то глюка. Попробуй убрать.ну так я ж и убрал. Единственное, я так понимаю, ты ориентируешься на модальность формы? А я их не использую. Может быть в этом дело?

Antonariy2) Убрать эту строчку? ))пробовал же. Тогда у окошка появляется заголовок.

Antonariy3) Может Res olv ePtr? Единственный способ присвоить результат AddressOf переменной — прогнать ее параметром через функцию.
Это я понял, тока не понял, из-за чего. Впрочем, это вопрос риторический.

Antonariy4) Ммм... Там нет Case и туда попадает. Опять же для лечения глюков.
а, ну там не case а

Код: plaintext

    If message =  161  Then

и он никогда не возникает. А что это за сообщение, если для него константа даже не объявлена?
Antonariy5) Да, нужно его спрятать перед убиением.
плиз. Как именно?

Antonariy6) Это тоже не из той оперы. Я ориентируюсь на последний файл все той же темы.я тут как раз прошу твоей помощи на базе выложенного мной проекта. Смысл в чем - я тупо добавил DDDropped=True в начале работы CreateDD и DDDropped=False в конце. Далее я убиваю дроп и пытаюсь дождаться, когда цикл в CreateDD закончит свою работу. А он не заканчивает. Через таймер это обходится, но это очень неудобно.

...

Рейтинг:

0 / 0

15.11.2010, 18:19

| Ответить | Цитировать | Написать

[VB6] Как организовать свой контрол с выпадающим окошком (типа комбобокса)

#36958152

Antonariy

Участник

Откуда: ☭

Сообщения: 80 221

Рейтинг: 0 / 0

ну так я ж и убрал. Единственное, я так понимаю, ты ориентируешься на модальность формы? А я их не использую. Может быть в этом дело?Может. А еще помню глюк при потере фокуса: если ткнуть в форму, то все нормально, а если в ее заголовок — проект падал. Одна из мутных заплаток — для него. Вроде как раз message = 161 (WM_NCLBUTTONDOWN). _NC означает non-client, неклиентская часть окна.

плиз. Как именно?

Код: plaintext

Private Declare Function ShowWindow Lib "user32" Alias "ShowWindow" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long

я тут как раз прошу твоей помощи на базе выложенного мной проекта. Там не хватает модуля LB_DropDown.

...

Рейтинг:

0 / 0

15.11.2010, 19:35

| Ответить | Цитировать | Написать

[VB6] Как организовать свой контрол с выпадающим окошком (типа комбобокса)

#36958220

Shocker.Pro

Участник

Откуда: ->|<- :адуктО

Сообщения: 23 134

Рейтинг: 0 / 0

Antonariyя тут как раз прошу твоей помощи на базе выложенного мной проекта. Там не хватает модуля LB_DropDown.
ах да, блин, он же из библиотеки

...

Рейтинг:

0 / 0

15.11.2010, 20:09

| Ответить | Цитировать | Написать

[VB6] Как организовать свой контрол с выпадающим окошком (типа комбобокса)

#36958472

Shocker.Pro

Участник

Откуда: ->|<- :адуктО

Сообщения: 23 134

Рейтинг: 0 / 0

Shocker.ProAntonariy2) Убрать эту строчку? ))пробовал же. Тогда у окошка появляется заголовок.
Ну, собственно, вопрос остался - как сделать окно безничего - то есть без рамки и заголовка.

Antonariyплиз. Как именно?ShowWindow
Ну вообще-то оно там есть, только не срабатывает, видимо. Ну или в другом причина...:

Код: plaintext

1.
2.
3.
4.

        Case WM_USER +  1 
            ShowWindow trg,  0 
            'Debug.Print trg, gParentWindow
            SetParent trg, gParentWindow

...

Рейтинг:

0 / 0

16.11.2010, 00:13

| Ответить | Цитировать | Написать

[VB6] Как организовать свой контрол с выпадающим окошком (типа комбобокса)

#36958506

Shocker.Pro

Участник

Откуда: ->|<- :адуктО

Сообщения: 23 134

Рейтинг: 0 / 0

Shocker.ProНу вообще-то оно там есть, только не срабатывает, видимо. Ну или в другом причина...:

Код: plaintext

1.
2.
3.
4.

        Case WM_USER +  1 
            ShowWindow trg,  0 
            'Debug.Print trg, gParentWindow
            SetParent trg, gParentWindow

Сорри, спутал, это не то окно
добавить ShowWindow hWnd, 0 и все красиво. Этот вопрос отпал

...

Рейтинг:

0 / 0

16.11.2010, 01:21

| Ответить | Цитировать | Написать

[VB6] Как организовать свой контрол с выпадающим окошком (типа комбобокса)

#36958915

Antonariy

Участник

Откуда: ☭

Сообщения: 80 221

Рейтинг: 0 / 0

Ну, собственно, вопрос остался - как сделать окно безничего - то есть без рамки и заголовка.Вспомнил, что меня этот вопрос тоже интересовал, даже спрашивал где-то на сишных форумах, но так и не выяснил.

...

Рейтинг:

0 / 0

16.11.2010, 11:10

| Ответить | Цитировать | Написать

[VB6] Как организовать свой контрол с выпадающим окошком (типа комбобокса)

#36959219

Shocker.Pro

Участник

Откуда: ->|<- :адуктО

Сообщения: 23 134

Рейтинг: 0 / 0

AntonariyВспомнил, что меня этот вопрос тоже интересовал, даже спрашивал где-то на сишных форумах, но так и не выяснил.

Гм. Ладно, можно, конечно, и с рамкой.

Не смотрел, как дождаться завершения выполнения убийства дропа?

...

Рейтинг:

0 / 0

16.11.2010, 13:03

| Ответить | Цитировать | Написать

[VB6] Как организовать свой контрол с выпадающим окошком (типа комбобокса)

#36962540

Shocker.Pro

Участник

Откуда: ->|<- :адуктО

Сообщения: 23 134

Рейтинг: 0 / 0

Antonariy,

В результате двух дней всяческих совершенно ненаучных изысканий добавил к коду вот такую штуку:

Код: plaintext

1.
2.
3.
4.
5.
6.

Private Function FrmProc(ByVal hWnd As Long, ByVal Message As Long, ByVal wParam As Long, ByVal lParam As Long) As Long

    Select Case Message
        Case WM_ACTIVATE, WM_NCACTIVATE
            If wParam <>  0  Then
              KillDD
            End If

KillDD - это отправка трех сообщений дропу на закрытие.
В сочетании с моим предыдущим кодом позволяет фокусу покинуть и поле и кнопку и закрыть дроп.

Навскидку как думаешь, не сделал ли я несусветную глупость?

...

Рейтинг:

0 / 0

17.11.2010, 19:30

| Ответить | Цитировать | Написать

[VB6] Как организовать свой контрол с выпадающим окошком (типа комбобокса)

#36962699

Antonariy

Участник

Откуда: ☭

Сообщения: 80 221

Рейтинг: 0 / 0

Если не падает, значит не сделал. Я весь этот код писал по этому принципу)

...

Рейтинг:

0 / 0

17.11.2010, 21:53

| Ответить | Цитировать | Написать

[VB6] Как организовать свой контрол с выпадающим окошком (типа комбобокса)

#36962705

Antonariy

Участник

Откуда: ☭

Сообщения: 80 221

Рейтинг: 0 / 0

Особый шик, если ide не падает и просто так внезапно после нескольких с виду успешных перезапусков проекта.) А такие глюки даже с поллитрой плохо ищутся, проще переписать заново.

...

Рейтинг:

0 / 0

17.11.2010, 21:57

| Ответить | Цитировать | Написать

[VB6] Как организовать свой контрол с выпадающим окошком (типа комбобокса)

#36965037

Shocker.Pro

Участник

Откуда: ->|<- :адуктО

Сообщения: 23 134

Рейтинг: 0 / 0

Antonariy,

Выкладываю подчищенный свой вариант.
Я не знаю, будет ли он нормально работать на модальной форме, но он
а) работает на немодальной форме
б) позволяет размещать на дропе всякие кнопки и поля (в т.ч. в составе юзерконтролов)
в) при переводе фокуса не возвращает его обратно при уничтожении дропа (то есть при открытом дропе можно нажать на другую кнопку на форме с первого раза, а также перейти на другую форму с первого раза) - что очень было неприятно в твоем варианте.

Но есть проблема, с которой без тебя я не справлюсь. Я плохо понимаю, как работает этот цикл с GetMessage и,главное, а почему сделано именно так, почему нельзя выполнить команды, идущие после цикла по какому-то событию или сообщению.

Суть в том, что после какого-то события на самом дропе (нажатие кнопки) нужно закрыть дроп и выполнить какие-то операции, и в частности, это может быть открытие другой формы (ну с этим удавалось справиться), MsgBox-а или диалога CommonDialog (а вот тут уже все безбожно виснет).

Процедура DDUC_Kill работает асинхронно, то есть ее окончание не означает окончательного закрытия дропа, а попытка дождаться закрытия дропа через пустой цикл с DoEvents ни к чему не приводит - цикл не завершается (код, которых хотелось бы, чтобы работал, сейчас закомментирован в юзерконтроле в событии кнопки). Конечно, можно использовать таймер, ожидающий закрытия дропа, но это очень неудобно в использовании. Надеюсь, ты подкинешь идею. :)

...

Рейтинг:

0 / 0

18.11.2010, 23:06

| Ответить | Цитировать | Написать

[VB6] Как организовать свой контрол с выпадающим окошком (типа комбобокса)

#36965918

Antonariy

Участник

Откуда: ☭

Сообщения: 80 221

Рейтинг: 0 / 0

У меня нет идей. Фактически вслепую удалось создать стабильную версию (которая с темами), и я решил, что больше не стоит чинить то, что и так работает, как мне нужно.

Зато могу подкинуть исходник, который я взял за основу. Там от MsgBox окна не падают)

...

Рейтинг:

0 / 0

19.11.2010, 13:43

| Ответить | Цитировать | Написать

[VB6] Как организовать свой контрол с выпадающим окошком (типа комбобокса)

#36965971

Shocker.Pro

Участник

Откуда: ->|<- :адуктО

Сообщения: 23 134

Рейтинг: 0 / 0

AntonariyТам от MsgBox окна не падают)
а там и обработки VB событий нет, все контролы создаются через API и события обрабатываются через сабклассинг... так что из этого кода я мало что себе подчерпну....

...

Рейтинг:

0 / 0

19.11.2010, 14:06

| Ответить | Цитировать | Написать

[VB6] Как организовать свой контрол с выпадающим окошком (типа комбобокса)

#37065718

Shocker.Pro

Участник

Откуда: ->|<- :адуктО

Сообщения: 23 134

Рейтинг: 0 / 0

AntonariyShocker.ProWorobjoffЕсть еще один маленький клопик:
Если форма внизу экрана, фрейм дропается вникуда (за пределы экрана, а не вверх).
А это ты не стал исправлять делать, как я понимаю?Не стал.

1) Сделал выпадание вверх, если вниз упирается в край рабочей области
2) Инкапсулировал вычисление координат дропа в библиотеку, чтобы вызов из контрола был предельно прост.

...

Рейтинг:

0 / 0

19.01.2011, 01:34

| Ответить | Цитировать | Написать

46 сообщений из 46, показаны все 2 страниц

все

Читали тему (0):

Читали форум (0):

Пользователи онлайн (0):

start [/forum/topic.php?all=1&fid=60&tid=2159058]:	0ms
get settings:	9ms
get forum list:	12ms
check forum access:	3ms
check topic access:	3ms
track hit:	31ms
get topic data:	10ms
get forum data:	2ms
get page messages:	68ms
get tp. blocked users:	1ms
others:	344ms

total:	483ms