Функция FlashWindow

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

Платформа: Win 95/98, Win NT

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

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

Пример: Расположите на форме CommandButton и вставьте следующий код:


Private Sub Command1_Click()
' Окно мигает 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)  ' окно должно выглядить активным
End Sub 

Категория: Окна
В начало.

Курсы визажистов
Профессиональная косметика и аксессуары для визажистов. Оптовые цены
makeup.net.ua
www.kinglimo.ru
Прокат автомобилей. Предложение по продаже и производству лимузина
kinglimo.ru