Tray Icon in Visual Basic??

[MaxLeon]

Ciao,
ho da poco terminato un programma in visual basic che non richiede interazioni con l'utente, ho perciò pensato che sarebbe utile generare una tray icon , ma come fare??
Ho cercato tra le API di windows ma non riesco a trovare nulla di interessante.

Vi prego aiutatemi!

!!GRAZIE!!

[biste]

Shell_NotifyIcon

sta tutto in questa api...

[Jonny Gulash]

Anch'io avevo lo stesso problema... Ho iniziato la discussione "Avvio", però nn ho risolto ancora niente...

[chipdb]

Molto molto molto semplice!

Dichiarazioni (da fare possibilmente in un modulo):

      
'Left-click constants.
Public Const WM_LBUTTONDBLCLK = &H203   'Double-click
Public Const WM_LBUTTONDOWN = &H201     'Button down
Public Const WM_LBUTTONUP = &H202       'Button up

'Right-click constants.
Public Const WM_RBUTTONDBLCLK = &H206   'Double-click
Public Const WM_RBUTTONDOWN = &H204     'Button down
Public Const WM_RBUTTONUP = &H205       'Button up


Public Const WM_MOUSEISMOVING = &H200 ' Mouse is moving
Public Const NIM_ADD = &H0
Public Const NIM_MODIFY = &H1
Public Const NIM_DELETE = &H2
Public Const NIF_MESSAGE = &H1
Public Const NIF_ICON = &H2
Public Const NIF_TIP = &H4

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_NotifyIconA Lib "SHELL32" (ByVal dwMessage As Long, _
lpData As NOTIFYICONDATA) As Integer

Aggiunta:

            nic.cbSize = Len(nic) ' Lunghezza della struttura NOTIFYICONDATA
            nic.hIcon = Me.Icon '  l’icona del form
            nic.hwnd = Me.hwnd ' l’handle del form
            nic.uCallbackMessage = WM_MOUSEISMOVING '
            nic.uFlags = NIF_MESSAGE + NIF_ICON + NIF_TIP  'Ho impostato tutti i parametri della struttura
            nic.uID = 1 ' L’id della icona...
            nic.szTip = "Ciao" 'TooltipText
            
            Call Shell_NotifyIconA(NIM_ADD, nic)

Per toglierla:

    nic.cbSize = Len(nic)
    nic.hwnd = Form1.hwnd
    nic.uFlags = NIF_ICON
    nic.uID = 1
    Call Shell_NotifyIconA(NIM_DELETE, nic)

Mi pare abbastanza no?

[Janx]

se mi dai l'indirizzo ti posto il controllo OCX fatto da Marco Bellinaso per VB2TheMax, è molto valido, veloce, facile, ricco e sopratutto FREE!!!!!!

[JamesD]

superfoffo84@libero.it

:gren: :gren:


Già che ci sei...

[Jonny Gulash]

me lo posteresti anche a me?
jonny_gulash@hotmail.com

grazie1000:gren: