Questo sito utilizza cookies solo per scopi di autenticazione sul sito e nient'altro. Nessuna informazione personale viene tracciata. Leggi l'informativa sui cookies.
Username: Password: oppure
Visual Basic 6 - tasto
Forum - Visual Basic 6 - tasto "Riduci ad icona" e "Trayicon"

Avatar
gecko6989 (Normal User)
Pro


Messaggi: 64
Iscritto: 05/06/2007

Segnala al moderatore
Postato alle 18:03
Mercoledė, 25/07/2007
Questo topic č stato chiuso dal moderatore

Volevo sapere come si fa ad aggiugere ad un programma i tasti, in alto a destra, di "Riduci ad icona" e "Minimizza in trayicon" ???

Grazie.

PM
Avatar
c.ronaldo (Ex-Member)
Pro


Messaggi: 121
Iscritto: 05/07/2007

Segnala al moderatore
Postato alle 11:46
Lunedė, 30/07/2007
Allora per il tasto riduci a icona basta che metti :

Codice sorgente - presumibilmente VB.NET
  1. Private Sub Command1_Click()
  2. Me.WindowState = 1
  3. End Sub


Per la traycon la cosa č un po piu complicata...devi usare le api!

Codice sorgente - presumibilmente VB.NET
  1. Private Type NOTIFYICONDATA
  2.     cbSize As Long
  3.     hWnd As Long
  4.     uId As Long
  5.     uFlags As Long
  6.     ucallbackMessage As Long
  7.     hIcon As Long
  8.     szTip As String * 64
  9. End Type
  10.  
  11. Private Const NIM_ADD = &H0
  12. Private Const NIM_MODIFY = &H1
  13. Private Const NIM_DELETE = &H2
  14. Private Const WM_MOUSEMOVE = &H200
  15. Private Const NIF_MESSAGE = &H1
  16. Private Const NIF_ICON = &H2
  17. Private Const NIF_TIP = &H4
  18.  
  19. Private Const WM_LBUTTONDBLCLK = &H203
  20. Private Const WM_LBUTTONDOWN = &H201
  21. Private Const WM_LBUTTONUP = &H202
  22. Private Const WM_RBUTTONDBLCLK = &H206
  23. Private Const WM_RBUTTONDOWN = &H204
  24. Private Const WM_RBUTTONUP = &H205
  25.  
  26. Private Declare Function Shell_NotifyIcon Lib "shell32" Alias "Shell_NotifyIconA" (ByVal dwMessage As Long, pnid As NOTIFYICONDATA) As Boolean
  27. Dim T As NOTIFYICONDATA
  28.  
  29. Private Sub Form_Load()
  30.    
  31.     'Setup initial Tray Icon
  32.     T.cbSize = Len(T)
  33.     T.hWnd = pichook.hWnd
  34.     T.uId = 1&
  35.     T.uFlags = NIF_ICON Or NIF_TIP Or NIF_MESSAGE
  36.     T.ucallbackMessage = WM_MOUSEMOVE
  37.     T.hIcon = imgOne.Picture
  38.     T.szTip = "Recent" & Chr$(0)
  39.     Shell_NotifyIcon NIM_ADD, T
  40.    
  41.     'Hide this form
  42.     Me.Hide
  43. End Sub
  44.  
  45.  
  46. Private Sub Form_Unload(Cancel As Integer)
  47.     'Unload this form. Important: always end with "unload me".
  48.     T.cbSize = Len(T)
  49.     T.hWnd = pichook.hWnd
  50.     T.uId = 1&
  51.     Shell_NotifyIcon NIM_DELETE, T
  52.     End
  53. End Sub
  54.  
  55. COn questo all'avvio del prog apparira un icona in tray,e alla chiusura scomparira!
;)

PM
Avatar
pgcapuzzo (Normal User)
Newbie


Messaggi: 1
Iscritto: 16/07/2009

Segnala al moderatore
Postato alle 22:35
Giovedė, 16/07/2009
Ho provato, ma 'form_load' mi restituisce '424-necessario oggetto' su

T.hWnd = pichook.hWnd

Cosa mi manca?
Grazie

PM
Avatar
GrG (Member)
Guru^2


Messaggi: 3430
Iscritto: 21/08/2007

Segnala al moderatore
Postato alle 23:40
Giovedė, 16/07/2009
pichook sarebbe il nome del form, evidentemente il tuo form si chiama diversamente... il codice ricorretto č:
Codice sorgente - presumibilmente VB.NET
  1. Private Type NOTIFYICONDATA
  2.     cbSize As Long
  3.     hWnd As Long
  4.     uId As Long
  5.     uFlags As Long
  6.     ucallbackMessage As Long
  7.     hIcon As Long
  8.     szTip As String * 64
  9. End Type
  10.  
  11. Private Const NIM_ADD = &H0
  12. Private Const NIM_MODIFY = &H1
  13. Private Const NIM_DELETE = &H2
  14. Private Const WM_MOUSEMOVE = &H200
  15. Private Const NIF_MESSAGE = &H1
  16. Private Const NIF_ICON = &H2
  17. Private Const NIF_TIP = &H4
  18.  
  19. Private Const WM_LBUTTONDBLCLK = &H203
  20. Private Const WM_LBUTTONDOWN = &H201
  21. Private Const WM_LBUTTONUP = &H202
  22. Private Const WM_RBUTTONDBLCLK = &H206
  23. Private Const WM_RBUTTONDOWN = &H204
  24. Private Const WM_RBUTTONUP = &H205
  25.  
  26. Private Declare Function Shell_NotifyIcon Lib "shell32" Alias "Shell_NotifyIconA" (ByVal dwMessage As Long, pnid As NOTIFYICONDATA) As Boolean
  27. Dim T As NOTIFYICONDATA
  28.  
  29. Private Sub Form_Load()
  30.  
  31.     'Setup initial Tray Icon
  32.     T.cbSize = Len(T)
  33.     T.hWnd = Me.hWnd
  34.     T.uId = 1&
  35.     T.uFlags = NIF_ICON Or NIF_TIP Or NIF_MESSAGE
  36.     T.ucallbackMessage = WM_MOUSEMOVE
  37.     T.hIcon = Me.Icon
  38.     T.szTip = "Recent" & Chr$(0)
  39.     Shell_NotifyIcon NIM_ADD, T
  40.  
  41.     'Hide this form
  42.     Me.Hide
  43. End Sub
  44.  
  45.  
  46. Private Sub Form_Unload(Cancel As Integer)
  47.     'Unload this form. Important: always End With "unload me".
  48.     T.cbSize = Len(T)
  49.     T.hWnd = Me.hWnd
  50.     T.uId = 1&
  51.     Shell_NotifyIcon NIM_DELETE, T
  52.     End
  53. End Sub


Comunque la discussione č del 2007! Non riprendere discussioni cosė vecchie!!!
Se hai altri problemi apri un nuovo topic, qui chiudo

PM