Tray icon in Visual Basic 6

Tray icon in Visual Basic 6

Ciao a tutti

Ho un problemino: vorrei fare un programmino in visual basic 6 che si possa ridurre a tray icon. Cercando in internet ho trovato il seguente codice che funziona... Ma il mio problema viene dopo: come faccio a far riapparire il form quando faccio doppio click nella tray??





CODICE NEL FORM:

HTML:

NEL FORM:

Private Sub Bottone_riduce_tray_Click()

Call AddToTray(Main, "non lo so", Main.Icon)

End Sub

IN UN MODULO BAS:

HTML:

Public Declare Function Shell_NotifyIcon Lib "shell32.dll" Alias "Shell_NotifyIconA" (ByVal dwMessage As Long, lpData As NOTIFYICONDATA) As Long

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 Const NIM_ADD = &H0

Public Const NIM_DELETE = &H2

Public Const NIM_MODIFY = &H1

Public Const NIF_ICON = &H2

Public Const NIF_MESSAGE = &H1

Public Const NIF_TIP = &H4

Public Const WM_MOUCensura_Censura_Censura_Censura_VE = &H200

Public Const WM_RCLICK = &H205

Public Const WM_LDBCLICK = &H203

Global TrayIcon As NOTIFYICONDATA

 

Public Sub AddToTray(frm As Form, ToolTip As String, Icon)

On Error Resume Next

TrayIcon.cbSize = Len(TrayIcon)

TrayIcon.hwnd = frm.hwnd

TrayIcon.szTip = ToolTip & vbNullChar

TrayIcon.hIcon = Icon

TrayIcon.uID = vbNull

TrayIcon.uFlags = NIF_ICON Or NIF_MESSAGE Or NIF_TIP

TrayIcon.uCallbackMessage = WM_MOUCensura_Censura_Censura_Censura_VE

Shell_NotifyIcon NIM_ADD, TrayIcon

frm.WindowState = 1

frm.Hide

End Sub

 

Public Sub RemoveFromTray()

    Shell_NotifyIcon NIM_DELETE, TrayIcon

End Sub