15 мая 2022 года "Исходники.РУ" отмечают 22-летие присутствия в сети!
Поздравляем всех причастных и неравнодушных с этим событием!
И огромное спасибо всем, кто был с нами все эти годы!

Главная Форум Журнал Wiki DRKB Discuz!ML Помощь проекту


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

Иногда бывает необходимо привлечь внимание пользователя. Для этого можно воспользоваться 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