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 - trybar
Forum - Visual Basic 6 - trybar

Avatar
mad hacker (Normal User)
Pro


Messaggi: 61
Iscritto: 04/02/2008

Segnala al moderatore
Postato alle 15:31
Domenica, 24/02/2008
ho messo un codice in un commandbutton per far sì che quando lo premo, la form vada nella barra delle applicazioni...ho fatto in modo che si veda l'icona e tutto funziona correttamente...tranne che quando schiaccio sull'icona la form nn si apre...come mai?

ecco il codice del commandbutton

Codice sorgente - presumibilmente VB.NET
  1. Private Sub cmdTrybar_Click()
  2.     nid.cbSize = Len(nid)
  3.     nid.hWnd = Form1.hWnd
  4.     nid.uId = 0
  5.     nid.uFlags = NIF_ICON Or NIF_TIP Or NIF_MESSAGE
  6.     nid.uCallBackMessage = WM_MOUSEMOVE
  7.     nid.hIcon = icon
  8.     Shell_NotifyIcon NIM_ADD, nid
  9.     Me.WindowState = vbMinimized
  10.     Me.Hide
  11. End Sub


e quello nel modulo

Codice sorgente - presumibilmente VB.NET
  1. Option Explicit
  2.  
  3.  API call
  4. Public Type NOTIFYICONDATA
  5.     cbSize As Long
  6.     hWnd As Long
  7.     uId As Long
  8.     uFlags As Long
  9.     uCallBackMessage As Long
  10.     hIcon As Long
  11.     szTip As String * 64
  12. End Type
  13.  
  14. 'constants required by Shell_NotifyIcon API call:
  15. Public Const NIM_ADD = &H0
  16. Public Const NIM_MODIFY = &H1
  17. Public Const NIM_DELETE = &H2
  18. Public Const NIF_MESSAGE = &H1
  19. Public Const NIF_ICON = &H2
  20. Public Const NIF_TIP = &H4
  21. Public Const WM_MOUSEMOVE = &H200
  22. Public Const WM_LBUTTONDOWN = &H201      
  23. Public Const WM_LBUTTONUP = &H202      
  24. Public Const WM_LBUTTONDBLCLK = &H203  
  25. Public Const WM_RBUTTONDOWN = &H204    
  26. Public Const WM_RBUTTONUP = &H205      
  27. Public Const WM_RBUTTONDBLCLK = &H206  
  28.  
  29. Public Declare Function SetForegroundWindow Lib "user32" (ByVal hWnd As Long) As Long
  30. Public Declare Function Shell_NotifyIcon Lib "shell32" Alias "Shell_NotifyIconA" (ByVal dwMessage As Long, pnid As NOTIFYICONDATA) As Boolean
  31.  
  32. Public nid As NOTIFYICONDATA
  33.  
  34. Public Sub InitSystray(callback As Object, icon As IPictureDisp, testo As String)
  35.  
  36.        calling Shell_NotifyIcon
  37.        With nid
  38.         .cbSize = Len(nid)
  39.         .hWnd = callback.hWnd
  40.         .uId = vbNull
  41.         .uFlags = NIF_ICON Or NIF_TIP Or NIF_MESSAGE
  42.         .uCallBackMessage = WM_MOUSEMOVE
  43.         .hIcon = icon.Handle
  44.         .szTip = testo & vbNullChar
  45.        End With
  46.        Shell_NotifyIcon NIM_ADD, nid
  47.  
  48. End Sub
  49.  
  50.  
  51. Public Sub TermSysTray()
  52.  
  53.         Shell_NotifyIcon NIM_DELETE, nid
  54. End Sub

Ultima modifica effettuata da mad hacker il 24/02/2008 alle 19:19
PM Quote
Avatar
gantonio (Normal User)
Guru^2


Messaggi: 1532
Iscritto: 09/09/2007

Segnala al moderatore
Postato alle 21:21
Domenica, 24/02/2008
Beh ... la parte che deve gestire il click sull'icona non c'e' in questo codice ...

PM Quote
Avatar
mad hacker (Normal User)
Pro


Messaggi: 61
Iscritto: 04/02/2008

Segnala al moderatore
Postato alle 14:29
Lunedì, 25/02/2008
l'avevo capito...

forse è questo il codice:

Codice sorgente - presumibilmente VB.NET
  1. Dim msg As Long
  2.     msg = Me.ScaleX(x, Me.ScaleMode, vbPixels)
  3.     Select Case msg
  4.     Case WM_LBUTTONDBLCLK
  5.         Form1.Show
  6.         Form1.WindowState = 0
  7.         Shell_NotifyIcon NIM_DELETE, nid
  8.     End Select


cmq nn funziona...qualcuno mi può postare quello corretto...:k::k: xfavore:D

Ultima modifica effettuata da mad hacker il 26/02/2008 alle 23:04
PM Quote
Avatar
M@d_Hacker (Ex-Member)
Expert


Messaggi: 254
Iscritto: 25/02/2008

Segnala al moderatore
Postato alle 21:17
Mercoledì, 27/02/2008
nn mi aiuta nessuno...:d:d

PM Quote
Avatar
GrG (Member)
Guru^2


Messaggi: 3430
Iscritto: 21/08/2007

Segnala al moderatore
Postato alle 15:06
Giovedì, 28/02/2008
vedi qui:
http://www.planet-source-code.com/vb/scripts/ShowCode.asp? ...
/\
||
Sarebbe un modulo con le funzioni...

Altrimenti vedi qua, dove ci sn vari sorgenti:
http://www.planet-source-code.com/vb/scripts/BrowseCategor ...

p.s. cmq si scrive Trayicon:D

Ultima modifica effettuata da GrG il 28/02/2008 alle 15:07
PM Quote