powered by simpleCommunicator - 2.0.53     © 2025 Programmizd 02
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / LostFocus не срабатывает
4 сообщений из 4, страница 1 из 1
LostFocus не срабатывает
    #38126488
Дмитрий П.
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Я сделал пробную программу на VB6. Там есть текстбокс tbTest и кнопка.
Когда я из программы (по кнопке) даю команду
Код: vbnet
1.
SendMessage tbTest.hwnd, WM_SETFOCUS, 0, ""


срабатывает Sub tbTest_GotFocus().

А как заставить сработать Sub tbTest_LostFocus() ?

Пробовал:
Код: vbnet
1.
2.
SendMessage tbTest.hwnd, WM_KILLFOCUS, 0, ""  и 
SendMessage tbTest.Parent.hwnd, WM_COMMAND, &H6010000, byVal tbTest.hwnd 


- не срабатывает (&H6010000 это EN_KILLFOCUS в старшем слове).
...
Рейтинг: 0 / 0
LostFocus не срабатывает
    #38126650
Фотография VladConn
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Посади фокус на другой объект и сработает твой лост фокус.
...
Рейтинг: 0 / 0
LostFocus не срабатывает
    #38126707
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Причем в своей же программе.

У аксесса в ВБ вынесены события как Get/LostFocus, так и De/Activate, а тут приходится довольствоваться тем, что есть.
...
Рейтинг: 0 / 0
LostFocus не срабатывает
    #38127965
Дмитрий П.
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Да действительно, WM_SETFOCUS на другой объект заставляет сработать LostFocus. Спасибо.

Тем не менее былобы интересно узнать, почему не работает EN_KILLFOCUS. Тем более, что в толстенной книге (Дан Эпплман «Win32 API для профессионалов…» стр 979), в описании EN_KILLFOCUS сказано «Сообщение генерирует событие VB LostFocus»

Кстати я ошибся, Const EN_KILLFOCUS = &H200 поэтому првильнее наверно так:

Код: vbnet
1.
SendMessage tbTest.Parent.hwnd, WM_COMMAND, &H2000000, byVal tbTest.hwnd



Хотя это ничего не изменило.
...
Рейтинг: 0 / 0
4 сообщений из 4, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / LostFocus не срабатывает
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]