Iccona barra delle applicazioni

[keko9]

Ciao a tutti,
voglio creare un programma (non importa in che linguaggio) che abbia un iccona (ed un menu) nella barra delle applicazioni di windows.
Mi sapete dire come posso fare?

Ripeto: mi va bene qualsiasi linguaggio di programmazione.:bubu:


Thanks and ciauz!!!!!!!!

[riky78]

se intendi le icone sulla destra (difianco a all'ora) devi usare la API Shell_NotifyIcon con il linguaggio che vuoi...

[keko9]

API Shell_NotifyIcon?
Azz...le cose si complicano...

[riky78]

la puoi chaimare comodamente anche da vb

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 WM_LBUTTONUP = &H202       'Button up
Private Const NIF_MESSAGE = &H1
Private Const NIF_ICON = &H2
Private Const NIF_TIP = &H4
Private Const WM_LBUTTONDBLCLK = &H203   'Double-click
Private Declare Function Shell_NotifyIcon Lib "shell32" Alias "Shell_NotifyIconA" (ByVal dwMessage As Long, pnid As NOTIFYICONDATA) As Boolean
Private nid As NOTIFYICONDATA

x minizzare:
    nid.cbSize = Len(nid)
    nid.Hwnd = Hwnd
    nid.uId = vbNull
    nid.uFlags = NIF_ICON Or NIF_TIP Or NIF_MESSAGE
    nid.uCallBackMessage = WM_MOUSEMOVE
    nid.hIcon = Icon
    nid.szTip = "Taskbar Status Area Sample Program" & vbNullChar
    Shell_NotifyIcon NIM_ADD, nid
    Hide

x massimizare:
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim msg As Long
Dim sFilter As String
msg = X / Screen.TwipsPerPixelX
Select Case msg
   Case WM_LBUTTONUP
      Shell_NotifyIcon NIM_DELETE, nid
      Show
End Select

End Sub

[keko9]

Originariamente inviato da riky78
la puoi chaimare comodamente anche da vb

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 WM_LBUTTONUP = &H202       'Button up
Private Const NIF_MESSAGE = &H1
Private Const NIF_ICON = &H2
Private Const NIF_TIP = &H4
Private Const WM_LBUTTONDBLCLK = &H203   'Double-click
Private Declare Function Shell_NotifyIcon Lib "shell32" Alias "Shell_NotifyIconA" (ByVal dwMessage As Long, pnid As NOTIFYICONDATA) As Boolean
Private nid As NOTIFYICONDATA

x minizzare:
    nid.cbSize = Len(nid)
    nid.Hwnd = Hwnd
    nid.uId = vbNull
    nid.uFlags = NIF_ICON Or NIF_TIP Or NIF_MESSAGE
    nid.uCallBackMessage = WM_MOUSEMOVE
    nid.hIcon = Icon
    nid.szTip = "Taskbar Status Area Sample Program" & vbNullChar
    Shell_NotifyIcon NIM_ADD, nid
    Hide

x massimizare:
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim msg As Long
Dim sFilter As String
msg = X / Screen.TwipsPerPixelX
Select Case msg
   Case WM_LBUTTONUP
      Shell_NotifyIcon NIM_DELETE, nid
      Show
End Select

End Sub

Ok, very very thanks!!!!!!!!!!!!!!!!!!!

[Johnny_Depp]

leggi anche questo
http://forum.html.it/forum/showthrea...hlight=systray