SINAL DE AVISO

USUARIO.EXCLUIDOS 06/06/2007 10:56:21
#219994
Sabe quando estamos com vários aplicativos aberto na barra de tarefa por exemplo o Word e o Excel e os dois estão minimizados e daí quando alguma alteração acaba ocorrendo no Excel ele aparece uma tarja laranja em torno dele, chamando a atenção do usuário. Pois é.

O que eu queria era algo mais ou menos assim, veja o caso:

Tenho uma aplicação que monitora uma ação, onde esta ação tem quatro status, eu consigo mandar um beep quando da mudança de status, mas, gostaria de poder avisar ao usuário com um sinal na tela (uma espécie de piscar ícone na barra de tarefas) quando houvesse mudança de status).

Alguém sabe como?

PS: Uso o VB6.
DANIELCPAETE 06/06/2007 11:14:17
#219997 Resposta escolhida
você pode utilizar a api FlashWindowEx coloca um botao no form e testa esse codigo

Option Explicit

Private Declare Function FlashWindowEx Lib "user32" _
   (FWInfo As FLASHWINFO) As Boolean

Private Declare Sub Sleep Lib "kernel32" _
   (ByVal dwMilliseconds As Long)

Private Type FLASHWINFO
  cbSize As Long     ' size of structure
  hWnd As Long       ' hWnd of window to use
  dwFlags As Long    ' Flags, see below
  uCount As Long     ' Number of times to flash window
  dwTimeout As Long  ' Flash rate of window in milliseconds. 0 is default.
End Type

Const FLASHW_STOP = 0
Const FLASHW_CAPTION = 1
Const FLASHW_TRAY = 2
Const FLASHW_ALL = FLASHW_CAPTION Or FLASHW_TRAY
Const FLASHW_TIMER = 4
Const FLASHW_TIMERNOFG = 12

Private Sub Command1_Click()
   Dim RetVal As Integer
   Dim FWInfo As FLASHWINFO
   
   With FWInfo
      .cbSize = 20
      .hWnd = Me.hWnd
      .dwFlags = FLASHW_ALL
      .uCount = 5
      .dwTimeout = 0
   End With
   
   Sleep (2000)
   RetVal = FlashWindowEx(FWInfo)
End Sub
USUARIO.EXCLUIDOS 06/06/2007 11:40:43
#220007
é isso ae.. valeu Daniel... uma dia eu fico tão bom assim. hehe....
Tópico encerrado , respostas não são mais permitidas
Voltar