"AND" "OR"
Главная Информер Журнал Форум

Как сделать мигающий заголовок окна

Иногда бывает необходимо привлечь внимание пользователя. Для этого можно воспользоваться API функцией FlashWindow. Поместите следующий код в module:

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

Sub Flash(hFlash As Long, iTimes As Integer, _
	sInterval As Single)
	Dim i As Integer
	For i = 0 To iTimes
	'iTimes устанавливает количество миганий
		Call FlashWindow(hFlash, True)
		Dim Start As Single
		Start = Timer		' Set start time.
		' sInterval устанавливает время между миганиями
		Do While Timer < Start + sInterval
			DoEvents
			' Даём время другим процессам
		Loop
	Next i
	' Возвращаем всё в нормальное состояние
	Call FlashWindow(hFlash, False) 
End Sub

Добавьте следующий код к кнопке:

Private Sub Command1_Click()
	'Start the fun...
	Flash Me.hWnd, 20, 0.5
End Sub