| Вопрос: Активная форма | Добавлено: 14.11.07 20:53 |
Автор вопроса:  portC | Web-сайт: feshin.info
|
| Как определяется, какая форма в настоящий момент активна? |
| Ответы | Всего ответов: 7 |
|
Номер ответа: 1 Автор ответа:  portC Вопросов: 14 Ответов: 101 |
Web-сайт: Профиль | | #1 | Добавлено: 14.11.07 20:57 |
| Всмысле, как сделать это буз цикла, есть ли апи-функция и как её правильно использовать? | ||
|
Номер ответа: 2 Автор ответа: HACKER Разработчик Offline Client Вопросов: 236 Ответов: 8362 |
Профиль | | #2 | Добавлено: 14.11.07 22:54 |
|
Public Function Get_Name_ActiveWindows() As String
'Возвращает имя активного Dim MyStr As String MyStr = String(GetWindowTextLength(GetForegroundWindow) + 1, Chr$(0)) GetWindowText GetForegroundWindow, MyStr, Len(MyStr) Get_Name_ActiveWindows = MyStr End Function |
||
|
Номер ответа: 3 Автор ответа: portCВопросов: 14 Ответов: 101 |
Web-сайт: Профиль | | #3 | Добавлено: 14.11.07 23:50 |
|
Библиотеки нужно присоединять?
Говорит Sub или Function не определены... Можно ли Text1.Text = Get_Name_ActiveWindows ? |
||
|
Номер ответа: 4 Автор ответа: portCВопросов: 14 Ответов: 101 |
Web-сайт: Профиль | | #4 | Добавлено: 15.11.07 00:16 |
|
GetForegroundWindow определяется, по-моему так:
Private Declare Function GetForegroundWindow Lib "user32" () As Long а как описать GetWindowTextLength? |
||
|
Номер ответа: 5 Автор ответа:  Администратор ICQ: 278109632 Вопросов: 42 Ответов: 3949 |
Web-сайт: Профиль | | #5 | Добавлено: 15.11.07 00:30 |
|
Private Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String, ByVal cch As Long) As Long
Private Declare Function GetWindowTextLength Lib "user32" Alias "GetWindowTextLengthA" (ByVal hwnd As Long) As Long |
||
|
Номер ответа: 6 Автор ответа: СерёгаICQ: 262809473 Вопросов: 17 Ответов: 561 |
Web-сайт: Профиль | | #6 | Добавлено: 15.11.07 08:53 |
| lab.jino-net.ru/docs/mdi.zip | ||
|
Номер ответа: 7 Автор ответа: portCВопросов: 14 Ответов: 101 |
Web-сайт: Профиль | | #7 | Добавлено: 15.11.07 13:26 |
| Спасибо!!! | ||
Страница: 1 |