ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / VBA + Exce l+ UserForm - Как найти хендл формы?
10 сообщений из 10, страница 1 из 1
VBA + Exce l+ UserForm - Как найти хендл формы?
    #34817870
Gelo_R
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Gelo_R
Гость
Нужно сделать пользовательскую форму поверх всех окон. Столкнулся с первой проблемой - как найти ее хендл. (так чтобы форма была сверху, даже когда эксель свернутый в значок)

Спасибо всем кто знает!
...
Рейтинг: 0 / 0
21.09.2007, 14:09
| Ответить | Цитировать | Написать  
VBA + Exce l+ UserForm - Как найти хендл формы?
    #34818214
Фотография Бенедикт
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Бенедикт
Участник
Gelo_R,
может, не самый оптимальный способ, но...
Пусть на форме есть Frame. Если его нет, то можно сделать, чтобы он был видимым, но сливался с фоном. Тогда с помощью функции API GetAncestor() можно узнать дескриптор UserForm-ы:
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
Private Declare Function GetAncestor Lib "user32" ( _
   ByVal hWnd As Long, ByVal gaFlags As Long) As Long
Private Const GA_PARENT =  1 
Private Const GA_ROOT =  2 
Private Const GA_ROOTOWNER =  3 

Private Sub CommandButton1_Click()
 Debug.Print Hex$(GetAncestor(Frame1.[_GethWnd], GA_ROOT))
End Sub
...
Рейтинг: 0 / 0
21.09.2007, 15:21
| Ответить | Цитировать | Написать  
VBA + Exce l+ UserForm - Как найти хендл формы?
    #34818296
Gelo_R
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Gelo_R
Гость
[quot Бенедикт]Gelo_R,
А можно поподробнее про фрейм? Как его сделать?
...
Рейтинг: 0 / 0
21.09.2007, 15:42
| Ответить | Цитировать | Написать  
VBA + Exce l+ UserForm - Как найти хендл формы?
    #34818375
Фотография Бенедикт
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Бенедикт
Участник
Gelo_R,
"сделать" его, как и любой другой элемент управления: нажав на соответствующую кнопку (рамка с надписью XYZ) в Toolbox и нарисовав границы на форме.
...
Рейтинг: 0 / 0
21.09.2007, 16:01
| Ответить | Цитировать | Написать  
VBA + Exce l+ UserForm - Как найти хендл формы?
    #34818487
Gelo_R
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Gelo_R
Гость
Тогда непонятно с синтаксисом.
если должно быть так - GetAncestor(hWnd, GA_ROOT), то где мне взять hWnd?
Frame1.[_GethWnd] - непонятное написано...
...
Рейтинг: 0 / 0
21.09.2007, 16:35
| Ответить | Цитировать | Написать  
VBA + Exce l+ UserForm - Как найти хендл формы?
    #34818621
Фотография Бенедикт
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Бенедикт
Участник
Gelo_R,
Frame1 - это тот самый элемент управления типа Frame, который надо создать. Frame поддерживает также интерфейс MSForms.Control. У этого интерфейса есть скрытое свойство _GethWnd (можно увидеть в Object Browser (F2), с опцией Show Hidden Members). Но не все элементы управления оконные, и имеют дескриптор. Квадратные скобки вокруг идентификатора применены потому, что идентификатор в VB/VBA не может начинаться со знака подчёркивания.

А что, лень проверить, как работает, даже не полностью понимая?
...
Рейтинг: 0 / 0
21.09.2007, 17:20
| Ответить | Цитировать | Написать  
VBA + Exce l+ UserForm - Как найти хендл формы?
    #34818964
Gelo_R
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Gelo_R
Гость
Debug.Print Hex$(GetAncestor(UserForm1.Frame1.[_GethWnd], GA_ROOT))
Эта строка возвращает 0!
...
Рейтинг: 0 / 0
21.09.2007, 19:36
| Ответить | Цитировать | Написать  
VBA + Exce l+ UserForm - Как найти хендл формы?
    #34818980
Фотография Бенедикт
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Бенедикт
Участник
Gelo_RDebug.Print Hex$(GetAncestor(UserForm1.Frame1.[_GethWnd], GA_ROOT))
Эта строка возвращает 0!А у меня - нет. Что делать будем? Может, на всякий случай, сделаем Frame1 видимым?
...
Рейтинг: 0 / 0
21.09.2007, 19:48
| Ответить | Цитировать | Написать  
VBA + Exce l+ UserForm - Как найти хендл формы?
    #34819019
Gelo_R
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Gelo_R
Гость
да я и не прятал его... Перетащил на форму и все. Это у вас работает из под экселя? Если так, нельзя ли скинуть этот ваш примерчик, чтоб я поковырялся... поискал почему у меня не работает
...
Рейтинг: 0 / 0
21.09.2007, 20:25
| Ответить | Цитировать | Написать  
VBA + Exce l+ UserForm - Как найти хендл формы?
    #34819021
Gelo_R
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Gelo_R
Гость
УРА! работает. наверно просто какой-то глюк был. Теперь надо сделать эту форму поверх остальных окон. Спасибо большое!
...
Рейтинг: 0 / 0
21.09.2007, 20:29
| Ответить | Цитировать | Написать  
10 сообщений из 10, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / VBA + Exce l+ UserForm - Как найти хендл формы?
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=60&msg=34818980&tid=2163366]:
 0ms
get settings:
 7ms
get forum list:
 15ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 143ms
get topic data:
 11ms
get forum data:
 2ms
get page messages:
 62ms
get tp. blocked users:
 2ms
others: 232ms
total:  480ms
созд. / загр.: 480ms
x
x
Закрыть


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