USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  Dicas

  Visual Basic    (ActiveX/Controles/DLL)

Título da Dica:  Colocando ícone no Tray
Postada em 13/3/2004 por Josefh Hennyere         
'Num form insira 2 pictures box e insira dois "ÍCONES" diferentes a prioridade Picture
'Tem que ser ícone

'No form cole o código abaixo

Option Explicit
    Private 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
    Private Const NIM_ADD = &H0
    Private Const NIM_MODIFY = &H1
    Private Const NIM_DELETE = &H2
    Private Const WM_MOUSEMOVE = &H200
    Private Const NIF_MESSAGE = &H1
    Private Const NIF_ICON = &H2
    Private Const NIF_TIP = &H4
    Private Const WM_LBUTTONDBLCLK = &H203
    Private Const WM_LBUTTONDOWN = &H201
    Private Const WM_LBUTTONUP = &H202
    Private Const WM_RBUTTONDBLCLK = &H206
    Private Const WM_RBUTTONDOWN = &H204
    Private Const WM_RBUTTONUP = &H205
    Private Declare Function Shell_NotifyIcon Lib "shell32" Alias "Shell_NotifyIconA" (ByVal dwMessage As Long, pnid As NOTIFYICONDATA) As Boolean
    Private Declare Function SetForegroundWindow Lib "user32" (ByVal hwnd As Long) As Long
    Dim nid As NOTIFYICONDATA

Private Sub CreateTrayIcon()
    nid.cbSize = Len(nid)
    nid.hwnd = Me.hwnd
    nid.uId = vbNull
    nid.uFlags = NIF_ICON Or NIF_TIP Or NIF_MESSAGE
    nid.uCallBackMessage = WM_MOUSEMOVE
    nid.hIcon = Me.Icon
    If Trim(Me.Tag) <> "" Then
        If Right(Me.Tag, 1) <> Chr(0) Then
           nid.szTip = Trim(Me.Tag) & Chr(0)
        Else
           nid.szTip = Trim(Me.Tag)
        End If
    Else
        nid.szTip = Trim(App.ProductName) & Chr(0)
    End If
    Shell_NotifyIcon NIM_ADD, nid
End Sub

Private Sub DestroyTrayIcon()
    Shell_NotifyIcon NIM_DELETE, nid
End Sub

Private Sub RefreshTrayIcon()
    nid.hIcon = Me.Icon
    If Trim(Me.Tag) <> "" Then
        If Right(Me.Tag, 1) <> Chr(0) Then
           nid.szTip = Trim(Me.Tag) & Chr(0)
        Else
           nid.szTip = Trim(Me.Tag)
        End If
    Else
        nid.szTip = Trim(App.ProductName) & Chr(0)
    End If
    Shell_NotifyIcon NIM_MODIFY, nid
End Sub

Private Sub Form_Load()
    Me.Hide
    Me.Icon = Picture1.Picture
    DoEvents
    CreateTrayIcon
End Sub

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
    DestroyTrayIcon
    End
End Sub


'Josefh Hennyere
 


CyberWEB Network Ltda.    © Copyright 2000-2021   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página