| Вопрос: Активность окна | Добавлено: 19.11.08 11:02 |
Автор вопроса:  gekko | Web-сайт: kalamfur.ru
|
|
Привет.
Подскажите пожалуйста, как сделать активным определенное окно? заранее рахмет =) |
| Ответы | Всего ответов: 8 |
|
Номер ответа: 1 Автор ответа:  Aston ICQ: 214-179-991 Вопросов: 42 Ответов: 272 |
Профиль | Цитата | #1 | Добавлено: 19.11.08 11:19 |
Если я тебя правильно понял, то сделать активном окно(тое форму в проекте). Можно так
|
||
|
Номер ответа: 2 Автор ответа: gekkoВопросов: 39 Ответов: 127 |
Web-сайт: Профиль | Цитата | #2 | Добавлено: 19.11.08 11:21 |
| Нет, не форму в проекте, а окно сторонней программы. Чужое окно. | ||
|
Номер ответа: 3 Автор ответа: AstonICQ: 214-179-991 Вопросов: 42 Ответов: 272 |
Профиль | Цитата | #3 | Добавлено: 19.11.08 11:21 |
| Ой та где Form2.Setfocus надо Form2.Show это я экспериментировал и забыл поменять) | ||
|
Номер ответа: 4 Автор ответа: AstonICQ: 214-179-991 Вопросов: 42 Ответов: 272 |
Профиль | Цитата | #4 | Добавлено: 19.11.08 11:22 |
| А. Это я думаю тогда надо делать через АПИ. | ||
|
Номер ответа: 5 Автор ответа: gekkoВопросов: 39 Ответов: 127 |
Web-сайт: Профиль | Цитата | #5 | Добавлено: 19.11.08 11:51 |
|
Aston пишет:
А. Это я думаю тогда надо делать через АПИ. Содержательно. Нет, правда, - исчерпывающе. 
|
||
|
Номер ответа: 6 Автор ответа: Ra$calICQ: 8068014 Вопросов: 18 Ответов: 817 |
Web-сайт: Профиль | Цитата | #6 | Добавлено: 19.11.08 14:01 |
| SetForegroundWindow | ||
|
Номер ответа: 7 Автор ответа: Павел Вопросов: 1 Ответов: 7 |
Профиль | Цитата | #7 | Добавлено: 19.11.08 15:05 |
|
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long Private Declare Function SetForegroundWindow Lib "user32" (ByVal hwnd As Long) As Long Private Sub Form_Load() Dim lHandle As Long lHandle = FindWindow(vbNullString, "Безымянный - Блокнот" 
lHandle = SetForegroundWindow(lHandle) End Sub |
||
|
Номер ответа: 8 Автор ответа: gekkoВопросов: 39 Ответов: 127 |
Web-сайт: Профиль | Цитата | #8 | Добавлено: 20.11.08 10:37 |
| Спасибо!! То, что нужно. | ||
Страница: 1 |