Функция FlashWindow

Declare Function FlashWindow Lib "user32" (ByVal hwnd As Long, ByVal bInvert As Long) As Long

FlashWindow заставляет мигать заголовок окна. Функция используется для привлечения внимания пользователя. При мигании происходит изменение цвета активного окна на неактивное и наоборот. Желательно, чтобы окно мигало несколько раз вместо одного раза. Когда вы используете эту функцию, не забывайте вызвать ее еще раз, чтобы вернуться к первоначальному состоянию, устанавливая bInvert в 0.

Возвращаемое значение

Функция возвращает 0, если окно было неактивным перед миганием и 1, если было активным.

Параметры

hwnd
Описатель окна для мигания
bInvert
Определяет способ мигания. Если отлично от нуля, переключает область заголовка от активного к бездействующему просмотру (или наоборот). Если 0, восстанавливает окно к его нормальному просмотру.

Пример

' Окно мигает 5 раз для привлечения внимания
Dim c As Integer, retval As Long 
For c = 1 To 10  ' 5 раз цвет активного окна и 5 раз - неактивного
  retval = FlashWindow(Form1.hwnd, 1) ' переключаем вид окна
  Sleep 500  ' пауза через каждые 500 миллисекуд (1/2 секунды)
Next c
retval = FlashWindow(Form1.hwnd, 0) ' окно должно выглядить активным

Смотри также

FlashWindowEx

Категория

Ошибки