У меня вопрос на 1млн. долларов! Если сможете подскажите. Буду ОЧЕНЬ прзнателен.

Представте, что есть некая программка. И визуально она похожа на Photoshop. То есть, слева находится панелька (Toolbox window) с кнопочками для выполнения различных действий. Так вот в чем вопрос:
1. как узнать или определенная форма открыта (то есть можна ли активизировать кнопки Toolbox'а).
2. Как после нажатия на соответствующюю кнопку активизировать форму, если она уже была открыта (передать ей фокус, что ли.) Пробовал Setfocus, ничего не получается. Возможно я не так пробовал.
Заранее благодарен!

Для определения вивдимости формы используют следующее:

Код

If Form1.Visible = True Then ...

А для обработки переданного фокуса нужно сделать процдуру-обработчик события GotFocus:

Private Sub Form1_GotFocus()
End Sub

Главное!
1) Как определить или форма активна, а не видима.
2) Как именно передается фокус окну. Какой код?

Как пользоваться hWnd?

Создай две формы и помести на них по три кнопки соответствующими названиями (см. исходник). В первую форму помесит след. код:

Код

Dim F1Active As Boolean Private Sub Form2Show_Click() Form2.Show End Sub Private Sub Form_Activate() F1Active = True End Sub Private Sub Form_Deactivate() F1Active = False End Sub Private Sub OtherActive_Click() Debug.Print F2Active = True End Sub Private Sub MeActive_Click() Debug.Print F1Active = True End Sub

На вторую форму помести этот код:

Код

Dim F2Active As Boolean Private Sub Form1Show_Click() Form1.Show End Sub Private Sub Form_Activate() F2Active = True End Sub Private Sub Form_Deactivate() F2Active = False End Sub Private Sub OtherActive_Click() Debug.Print F1Active = True End Sub Private Sub MeActive_Click() Debug.Print F2Active = True End Sub

Вот такой простой примерчик. Мне например не известно что-то похожего на HasFocus, но может кто-нибудь что получше посоветует.

Спасибо! Хорошая идея.
Можно также использовать свойство ActiveForm

Цитата

свойство ActiveForm

Это где?

Свойство ActiveForm возвращает ссылку на активную форму в MDI приложении.