Сайт Алексея Муртазина (Star Cat) E-mail: starcat-rus@yandex.ru
Мои программы Новости сайта Мои идеи Мои стихи Форум Об авторе Мой ЖЖ
VB коды Статьи о VB6 API функции Самоучитель по VB.NET
Собрания сочинений Обмен ссылками Все работы с фото и видео
О моём деде Муртазине ГР Картинная галерея «Дыхание души»
Звёздный Кот

51 Заставить окно мигать
Private Declare Function FlashWindow Lib "user32" _
(ByVal hwnd As Long, ByVal bInvert As Long) As Long

Private Sub Command1_Click()
Static Invert As Boolean
If Invert = False Then
Timer1.Enabled = True
Invert = True
Else
FlashWindow hwnd, False
Timer1.Enabled = False
Invert = False
End If
End Sub

Private Sub Form_Load()
Timer1.Enabled = False
Timer1.Interval = 200
End Sub

Private Sub Timer1_Timer()
FlashWindow hwnd, True
End Sub

Инфо
Сайт создан: 20 июня 2015 г.
Рейтинг@Mail.ru
Главная страница