Почему событие ComboBox срабатывает при клике вне его области

@Ципихович Эндрю · Регистрация: 10.04.2009

Студворк — интернет-сервис помощи студентам

Здравствуйте, насколько я понимаю процедура

Visual Basic
1
2
3
4
5
6
7
ComboBox1_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
 
'Mouse - мышь
'Down - вниз
MsgBox$ "Срабатывает при щелчке на ComboBox"
 
End Sub

срабатывает при щелчке на ComboBox ???
Но почему то работает при щелчке в любой части формы и даже за пределами формы

Комментарий модератора

Одна тема - один вопрос. Вопрос про спискок вынесен в отдельную тему.

@CyBOSSeR · 05.02.2012, 13:49

Сообщение от Ципихович Эндрю

срабатывает при щелчке на ComboBox ???

Это зависит не от кода процедуры, а от того обработчиком какого события она повешана.

Сообщение от Ципихович Эндрю

Но почему то работает при щелчке в любой части формы и даже за пределами формы

Проверьте чтоб процедура вещалась именно на события щелчка по ComboBox.

Памирыч · 05.02.2012, 13:53

Сообщение от Ципихович Эндрю

Down - вниз

Имеется ввиду вниз не выпадение списка, а событие мыши "Опускаем кнопку, т.е. давим вниз"

По поводу кода - код рабочий, ищи внимательнее, где-то еще наверно провел тесты и навешал Месседжбоксов.
Лучше посмотреть в пошаговом, имхо

@Ципихович Эндрю · 05.02.2012, 14:03 **[ТС]**

Сообщение от CyBOSSeR

Это зависит не от кода процедуры, а от того обработчиком какого события она повешана

на всякий случай и то и другое

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub ComboBox1_MouseDown( _
        ByVal Button As Integer, _
        ByVal Shift As Integer, _
        ByVal X As Single, _
        ByVal Y As Single)
 
'Mouse - мышь
'Down - вниз
'имеется ввиду вниз не выпадение списка, а событие мыши "опускаем кнопку", то есть "давим вниз"
'срабатывает при щелчке на ComboBox ????
    MsgBox$ "Срабатывает при щелчке на ComboBox"
 
End Sub

@аналитика · 05.02.2012, 15:59

см. влож-е.
дело мутное - модальность MsgBox'а, я думаю, меняет события:
если msgbox есть и открываешь выпадающий список, то только Tab'ом можно увести фокус с комбобокса без повторного события,
с msgbox'ом событие Click не происходит, без него происходит при изменении значения комбобокса

@Ципихович Эндрю · 05.02.2012, 16:03 **[ТС]**

так у Вас же после первого срабатывания второй раз срабатывает
а убрать можно?

@аналитика · 05.02.2012, 16:12

msgbox выкинь, без него логика происходящего более менее...

@Busine2012 · 06.02.2012, 17:02

Ципихович Эндрю,
у меня всё правильно работает код из #1:
когда кликаешь левой кн. мыши в пределах ComboBox - появляется MsgBox.

Хотя да, если открыт выпадающий список и хочешь закрыть форму (крестик в правом верхнем углу), то MsgBox появляется.

Новые блоги и статьи Все статьи Все блоги /
Управление камерой с помощью скрипта OrbitControls.js на Three.js: Вращение, зум и панорамирование 8Observer8 05.03.2026 Содержание блога Финальная демка в браузере работает на Desktop и мобильных браузерах. Итоговый код: orbit-controls-threejs-js. zip. Сканируйте QR-код на мобильном. Вращайте камеру одним пальцем,. . .	SDL3 для Web (WebAssembly): Синхронизация спрайтов SDL3 и тел Box2D 8Observer8 04.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-sync-physics-sprites-sdl3-c. zip На первой гифке отладочные линии отключены, а на второй включены:. . .	SDL3 для Web (WebAssembly): Идентификация объектов на Box2D v3 - использование userData и событий коллизий 8Observer8 02.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-collision-events-sdl3-c. zip Сканируйте QR-код на мобильном и вы увидите, что появится джойстик для управления главным героем. . . .	Реалии Hrethgir 01.03.2026 Нет, я не закончил до сих пор симулятор. Эта задача сложнее. Не получилось уйти в плавсостав, но оно и к лучшему, возможно. Точнее получалось - но сварщиком в палубную команду, а это значит, в моём. . .
Ритм жизни kumehtar 27.02.2026 Иногда приходится жить в ритме, где дел становится всё больше, а вовлечения в происходящее — всё меньше. Плотный график не даёт вниманию закрепиться ни на одном событии. Утро начинается с быстрых,. . .	SDL3 для Web (WebAssembly): Сборка библиотек: SDL3, Box2D, FreeType, SDL3_ttf, SDL3_mixer и SDL3_image из исходников с помощью CMake и Emscripten 8Observer8 27.02.2026 Недавно вышла версия 3. 4. 2 библиотеки SDL3. На странице официальной релиза доступны исходники, готовые DLL (для x86, x64, arm64), а также библиотеки для разработки под Android, MinGW и Visual Studio. . . .	SDL3 для Web (WebAssembly): Реализация движения на Box2D v3 - трение и коллизии с повёрнутыми стенами 8Observer8 20.02.2026 Содержание блога Box2D позволяет легко создать главного героя, который не проходит сквозь стены и перемещается с заданным трением о препятствия, которые можно располагать под углом, как верхнее. . .	Конвертировать закладки radiotray-ng в m3u-плейлист damix 19.02.2026 Это можно сделать скриптом для PowerShell. Использование . \СonvertRadiotrayToM3U. ps1 <path_to_bookmarks. json> Рядом с файлом bookmarks. json появится файл bookmarks. m3u с результатом. # Check if. . .

@Ципихович Эндрю 1712 / 579 / 76 Регистрация: 10.04.2009 Сообщений: 9,327
	05.02.2012, 16:03 [ТС]
	так у Вас же после первого срабатывания второй раз срабатывает а убрать можно? 0

@аналитика здесь больше нет... 3376 / 1674 / 184 Регистрация: 03.02.2010 Сообщений: 1,219
	05.02.2012, 16:12
	msgbox выкинь, без него логика происходящего более менее... 0

@Busine2012 1302 / 404 / 22 Регистрация: 21.10.2011 Сообщений: 1,285
	06.02.2012, 17:02
	Ципихович Эндрю, у меня всё правильно работает код из #1: когда кликаешь левой кн. мыши в пределах ComboBox - появляется MsgBox. Хотя да, если открыт выпадающий список и хочешь закрыть форму (крестик в правом верхнем углу), то MsgBox появляется. 0