21/01/09 13:32
fa1212
salve a tutti,
ho questo problema utilizzo questo codice per far sì che al clck del mouse su un bottone il form venga messo in una tray icon, però poi non so come fare un menù che quando uno clicca con il tasto dx del mouse sulla trayicon abbia la scelta se ripristinare il form a dimensioni normali o chiderlo definitivamnete.
Come si può fare?
codice del modulo bas.
codice pulsante:
ho questo problema utilizzo questo codice per far sì che al clck del mouse su un bottone il form venga messo in una tray icon, però poi non so come fare un menù che quando uno clicca con il tasto dx del mouse sulla trayicon abbia la scelta se ripristinare il form a dimensioni normali o chiderlo definitivamnete.
Come si può fare?
codice del modulo bas.
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_MOUSEMOVE = &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_MOUSEMOVE Shell_NotifyIcon NIM_ADD, TrayIcon frm.WindowState = 1 frm.Hide End Sub Public Sub RemoveFromTray() Shell_NotifyIcon NIM_DELETE, TrayIcon End Sub
codice pulsante:
AddToTray Me, Me.Caption, Me.Icon
aaa