| Вопрос: рррр | Добавлено: 06.02.06 20:03 |
Автор вопроса:  alisa
|
|
парни подскажите плииииииииз:
есть user control и form. и первое лежит на втором :) мне нужно что бы user control определял [если это ваабще возможно, понятия не имею :)] активна ли сейчас form или нет. нигде ни могу найти инфу :( |
| Ответы | Всего ответов: 6 |
|
Номер ответа: 1 Автор ответа:  vito Разработчик Offline Client Вопросов: 23 Ответов: 879 |
Web-сайт: Профиль | | #1 | Добавлено: 06.02.06 20:23 |
Ну если user control лежит на form'е, так тебе лучше знать, как определить, активна она или нет ваабщее
|
||
|
Номер ответа: 2 Автор ответа: Sharp Лидер форума ICQ: 216865379 Вопросов: 106 Ответов: 9979 |
Web-сайт: Профиль | | #2 | Добавлено: 06.02.06 20:51 |
|
Private Type RECT
Left As Long Top As Long Right As Long Bottom As Long End Type Private Type WINDOWINFO cbSize As Long rcWindow As RECT rcClient As RECT dwStyle As Long dwExStyle As Long dwWindowStatus As Long cxWindowBorders As Long cyWindowBorders As Long atomWindowType As Integer wCreatorVersion As Integer End Type Private Declare Function GetWindowInfo Lib "user32.dll" (ByVal hwnd As Long, ByRef pwi As WINDOWINFO) As Long Private Sub Timer1_Timer() Dim wi As WINDOWINFO GetWindowInfo Parent.hwnd, wi Parent.Caption = wi.dwWindowStatus End Sub |
||
|
Номер ответа: 3 Автор ответа: LamerOnLineICQ: 334781088 Вопросов: 108 Ответов: 2822 |
Профиль | | #3 | Добавлено: 07.02.06 11:32 |
| Screen.ActiveForm ? | ||
|
Номер ответа: 4 Автор ответа: DushesICQ: 249195431 Вопросов: 8 Ответов: 110 |
Профиль | | #4 | Добавлено: 07.02.06 12:14 |
|
Может
Private Declare Function GetActiveWindow Lib "user32" Alias "GetActiveWindow" () As Long И Parent.hwnd=GetActiveWindow ? |
||
|
Номер ответа: 5 Автор ответа: SharpЛидер форума ICQ: 216865379 Вопросов: 106 Ответов: 9979 |
Web-сайт: Профиль | | #5 | Добавлено: 07.02.06 13:48 |
|
Мой метод работает, не парьтесь
|
||
|
Номер ответа: 6 Автор ответа: alisa Вопросов: 1 Ответов: 1 |
Профиль | | #6 | Добавлено: 07.02.06 13:53 |
|
угу пасибки Sharp, все работает
|
||
Страница: 1 |