Visual Basic, .NET, ASP, VBScript
Новости | Примеры | Библиотека кодов | НеЧаВо | VBA | Справочник по VB | Справочник по WinAPI | ActiveX контролы | Статьи по VB | Мастерская разработчика | Форум VBNet | Яndex bar! | Голосование | Полезные программы | Магазин VBNet | Рассылка | Конкурсы | Юмор | Чат | Реклама на VBNet | Автора! | Ссылки | Бета-тестирование | Послать пример на сайт
 

   
   
     

Форум - Общий форум

Страница: 1 |

 

  Вопрос: Активное окно Добавлено: 18.09.02 13:21  

Автор вопроса:  Malligan

Люди, может кто подскажет как определить хэндл активного, например Блокнота, из моей проги...Дело в том что функция

FindWindow - сохраняет хэндл, после закрытия блокнота

GetActiveWindow - тоже самое

а используя эту конструкцию

Public Function GetCaption(lhWnd As Long) As String
Dim sA As String, lLen As Long
lLen = GetWindowTextLength(lhWnd)
sA = String(lLen, 0)
Call GetWindowText(lhWnd, sA, lLen + 1)
GetCaption = sA
End Function
Public Function DLHFindWin(frm As Form, WinTitle As String, CaseSensitive As Boolean) As Long
Dim lhWnd As Long, sA As String
lhWnd = frm.hwnd
Do
DoEvents
If lhWnd = 0 Then Exit Do
If CaseSensitive = False Then
sA = LCase(GetCaption(lhWnd))
WinTitle = LCase(WinTitle)
Else
sA = GetCaption(lhWnd)
End If
If InStr(sA, WinTitle) Then
DLHFindWin = lhWnd
Exit Do
Else
DLHFindWin = 0
End If
lhWnd = GetNextWindow(lhWnd, 2)
Loop
End Function

определяет только когда окно находится на панели задач

Ответить

  Ответы Всего ответов: 2  

Номер ответа: 1
Автор ответа:
 Malligan



Вопросов: 5
Ответов: 13
  Профиль | | #1 Добавлено: 18.09.02 14:11
По большому счету мне нужно чтобы при закрытии, например Блокнота, происходил выход из моей проги...

Ответить

Номер ответа: 2
Автор ответа:
 Malligan



Вопросов: 5
Ответов: 13
  Профиль | | #2 Добавлено: 18.09.02 16:03
Спасибо...уже понял и сделал...

Ответить

Страница: 1 |

Поиск по форуму



© Copyright 2002-2011 VBNet.RU | Пишите нам