Модераторы: Akina
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Как поместить кнопку в окно "чужого" процесса? 
:(
    Опции темы
Гость_Max
Дата 30.1.2004, 13:33 (ссылка)    |    (голосов: 0) Загрузка ... Загрузка ... Быстрая цитата Цитата


Unregistered











Как поместить кнопку в окно "чужого" процесса, чтобы она реагировала на событие "click"?
  Вверх
Mephisto
Дата 30.1.2004, 16:53 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Волкъ
***


Профиль
Группа: Завсегдатай
Сообщений: 1818
Регистрация: 27.8.2003
Где: Питер

Репутация: 2
Всего: 34



Думаю именно так это невозможно, хотя если извратится, то ...
Можно и обман зрения...
PM   Вверх
Гость_SCINER
Дата 21.2.2004, 17:27 (ссылка)    |    (голосов: 0) Загрузка ... Загрузка ... Быстрая цитата Цитата


Unregistered











Насчет кнопки не знаю, но можно поместить например PictureBox так:
[/CODE]
Private Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long
Private Declare Function SetParent Lib "user32" (ByVal hWndChild As Long, ByVal hWndNewParent As Long) As Long
Private Declare Function GetDesktopWindow Lib "user32" () As Long
Dim Wnd As Long

Private Sub Form_Load()
Wnd = Picture1.hwnd
SetParent Wnd, GetDesktopWindow
SetWindowPos Wnd, 1, Screen.Width / 15 / 2 - 40, 50, 80, 20, 1
End Sub

Private Sub Picture1_Click()
MsgBox "This my ""Element""", 32
End Sub
[/CODE]

  Вверх
max_crt
Дата 23.2.2004, 13:18 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 39
Регистрация: 10.7.2003

Репутация: 1
Всего: 1



Спасибо Гость_SCINER. В общем-то работает, хотя корявенько. Т.е. когда фокус уходит с родительского окна, то Picture пропадает. Добавил таймер и его процедура постоянно делает Picture1.Refresh, хотя курсор мышки при наведении и сильно мерцает.

Попытался сделать то же самое с Command button, но ничего не получилось, кто знает почему так подскажите?
PM MAIL   Вверх
  
Ответ в темуСоздание новой темы Создание опроса
Правила форума "VB6"
Akina

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по VB обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • Используйте теги [code=vb][/code] для подсветки кода. Используйтe чекбокс "транслит" (возле кнопок кодов) если у Вас нет русских шрифтов.


Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Akina.

 
1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | VB6 | Следующая тема »


 




[ Время генерации скрипта: 0.0836 ]   [ Использовано запросов: 21 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.