PDA

Visualizza la versione completa : Tray Icon in Visual Basic??


MaxLeon
04-04-2002, 12:19
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!!

:ciauz:

biste
04-04-2002, 12:31
Shell_NotifyIcon

sta tutto in questa api...

Jonny Gulash
18-07-2002, 20:07
Anch'io avevo lo stesso problema... Ho iniziato la discussione "Avvio", però nn ho risolto ancora niente...

chipdb
18-07-2002, 20:30
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
18-07-2002, 20:34
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
18-07-2002, 22:18
superfoffo84@libero.it

:gren: :gren:


Già che ci sei...

Jonny Gulash
19-07-2002, 11:24
me lo posteresti anche a me?
jonny_gulash@hotmail.com

grazie1000:gren:

Loading