MINIMIZAR PARA AREA DE NOTIFICACAO

ADILSOO 14/07/2012 19:37:17
#406104
Bom gente, queria saber, como que eu faço pra minimizar o sistema para a área de notificação do Windows, eu até consegui enfia ele lá, só que não consigo fazer ele voltar, então o problema é, fazer ele voltar, vou postar o meu código pra alguém que puder dar uma olhada e me ajudar, desde já muito obrigado a todos.

Em módulo:
 Public Const WM_CLOSE = &H10
Public Const WM_USER = &H400
Public Const WM_KEYDOWN = &H100
Public Const WM_MOUSEMOVE = &H200
Public Const WM_NCMOUSEMOVE = &HA0
Public Const WM_CHAR = &H102
Public Const WM_LBUTTONDBLCLK = &H203
Public Const WM_LBUTTONDOWN = &H201
Public Const WM_LBUTTONUP = &H202
Public Const WM_MBUTTONDBLCLK = &H209
Public Const WM_MBUTTONDOWN = &H207
Public Const WM_MBUTTONUP = &H208
Public Const WM_RBUTTONDBLCLK = &H206
Public Const WM_RBUTTONDOWN = &H204
Public Const WM_RBUTTONUP = &H205
Public Const NIF_ICON = &H2
Public Const NIF_MESSAGE = &H1
Public Const NIF_TIP = &H4
Public Const NIM_ADD = &H0
Public Const NIM_DELETE = &H2
Public Const MyToolTip As Integer = 64
Private Const NIM_MODIFY = &H1
Private Const NIF_DOALL = NIF_MESSAGE Or NIF_ICON Or NIF_TIP

      Public Type NOTIFYICONDATA
       cbSize As Long
       hwnd As Long
       uId As Long
       uFlags As Long
       uCallBackMessage As Long
       hIcon As Long
       szTip As String * 64
      End Type
      Public Declare Function Shell_NotifyIcon Lib [Ô]shell32[Ô] Alias [Ô]Shell_NotifyIconA[Ô] (ByVal dwMessage As Long, pnid As NOTIFYICONDATA) As Boolean
      Public nid As NOTIFYICONDATA


No Unload do Form:
        With nid
        .cbSize = Len(nid)
        .hwnd = Me.hwnd
        .uId = vbNull
        .uFlags = NIF_ICON Or NIF_TIP Or NIF_MESSAGE
        .uCallBackMessage = WM_MOUSEMOVE
        .hIcon = Me.Icon
        .szTip = [Ô]Agenda de Compromissos[Ô] & vbNullChar
       End With
       Shell_NotifyIcon NIM_ADD, nid


E no Resize do Form:
 If Me.WindowState = vbMinimized Then Me.Hide


Funciona perfeitamente, aparece o ícone na área de notificações normal, só não consigo fazer ele voltar.
ROBSON 14/07/2012 21:43:13
#406114 Resposta escolhida
Eu uso este codigo que achei aqui no VB Mania
ADILSOO 14/07/2012 22:28:49
#406117
Perfeito..
Tópico encerrado , respostas não são mais permitidas
Voltar