ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Нарисовать линию на форме
6 сообщений из 6, страница 1 из 1
Нарисовать линию на форме
    #33586479
mihmih
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
mihmih
Участник
Хочу нарисовать линию на форме с помощью LineTo и MoveToEx:
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
Private Declare Function GetDCEx Lib "user32" ...
Private Declare Function ReleaseDC Lib "user32"...
Private Declare Function MoveToEx Lib "gdi32" ...
Private Declare Function LineTo Lib "gdi32" ...
Private Declare Function FindWindowEx Lib "user32"...

w = FindWindow("ThunderDFrame", UserForm1.Caption)
fhdc = GetDCEx(w,  0 , DCX_CACHE Or DCX_CLIPSIBLINGS Or DCX_LOCKWINDOWUPDATE)
MoveToEx fhdc,  10 ,  10 , p
LineTo fhdc,  150 ,  150
Но вот не нравится это FindWindow(...
можно ли как-то иначе получить хендл формы или контрола?
...
Рейтинг: 0 / 0
07.03.2006, 12:24:52
| Ответить | Цитировать | Написать  
Нарисовать линию на форме
    #33588197
Пользователь2
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Пользователь2
Гость
А чем тебе функция FindWindow не угадила? Можно конечно попробовать еще функцию GetActiveWindow.

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
Private Declare Function FindWindow Lib "user32" _
  Alias "FindWindowA" ( _
  ByVal lpClassName As String, _
  ByVal lpWindowName As String) As Long
  
Private Declare Function GetActiveWindow Lib "user32" () As Long

Sub GetFormHandle()
    Dim hwnd As Long
    Dim hwnd2 As Long

    UserForm1.Show False
    
    hwnd = FindWindow("ThunderDFrame", UserForm1.Caption)
    hwnd2 = GetActiveWindow
    
    MsgBox hwnd
    MsgBox hwnd2
End Sub
...
Рейтинг: 0 / 0
08.03.2006, 15:19:49
| Ответить | Цитировать | Написать  
Нарисовать линию на форме
    #33588574
zzzzzzzzzzz
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
zzzzzzzzzzz
Гость
mihmihХочу нарисовать линию на форме с помощью LineTo и MoveToEx:
Но вот не нравится это FindWindow(...
можно ли как-то иначе получить хендл формы или контрола?
Почему не нравится? Вполне штатное средство для получения хендла. Есть конкретные проблемы?

"как-то иначе получить хендл формы или контрола" - а в чем пишем? В Access, например, у форм есть свойство Hwnd.

ЗЫ По варианту Пользователя2 - интересно, что произойдет в случае, если во время вызова GetActiveWindow вылезет какое-нибудь постороннее окно (напоминалка Outlook, например)? Ну или шустрый пользователь успеет нажать Alt-tab во время рисования линий...
...
Рейтинг: 0 / 0
09.03.2006, 03:50:41
| Ответить | Цитировать | Написать  
Нарисовать линию на форме
    #33588655
Пользователь2
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Пользователь2
Гость
zzzzzzzzzzzЗЫ По варианту Пользователя2 - интересно, что произойдет в случае, если во время вызова GetActiveWindow вылезет какое-нибудь постороннее окно (напоминалка Outlook, например)? Ну или шустрый пользователь успеет нажать Alt-tab во время рисования линий...
Согласен. Но это уже другой вопрос.
...
Рейтинг: 0 / 0
09.03.2006, 07:55:21
| Ответить | Цитировать | Написать  
Нарисовать линию на форме
    #33590357
mihmih
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
mihmih
Участник
Пишем в Excel, хотелось бы рисовать не на форме а на Picture - вот ее то хендл потучить и представляется затруднительным.
...
Рейтинг: 0 / 0
09.03.2006, 16:06:47
| Ответить | Цитировать | Написать  
Нарисовать линию на форме
    #33590451
Andres 1
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Andres 1
Участник
mihmihПишем в Excel, хотелось бы рисовать не на форме а на Picture - вот ее то хендл потучить и представляется затруднительным.
Может быть так, что у него вообще нет hwnd - т.е. Picture - не отдельное окно. Нужно посмотреть чем-нибудь вроде Winspector или spy++
...
Рейтинг: 0 / 0
09.03.2006, 16:34:02
| Ответить | Цитировать | Написать  
6 сообщений из 6, страница 1 из 1
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Нарисовать линию на форме
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=61&msg=33590451&tid=2185152]:
 0ms
get settings:
 8ms
get forum list:
 15ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 48ms
get topic data:
 9ms
get forum data:
 2ms
get page messages:
 41ms
get tp. blocked users:
 1ms
others: 203ms
total:  333ms
созд. / загр.: 333ms
x
x
Закрыть


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