OCX POUR GÉRER LE SYSTRAY SUPER FACILEMENT !!! SI, SI JETEZ UN OEIL VOUS VERREZ

Commentaire de yomm le 14/02/2004 14:52:39

ok désolé j'avais cherché l'info fut un temps et j'avais pas trouvé...
je ai eut besoin ces jours ci et je me suis dis que j'allais le faire....
soit entre temps quelqu'un l'a fait ....

Commentaire de yomm le 15/02/2004 00:46:30

merci a toi ;-)

Commentaire de mythic_kruger le 03/03/2004 02:21:28

Je viens de l' essayer c'est vraiment cool!
Juste un petit truc, j' ai laissé tourner l' appli pendant un moment dans le systray, et lors de la mise en veille du moniteur, impossible de revenir dans windows: gros crash et reboot (sans scandisk). Aurais-tu une idée? Sans ça c'est super!

Commentaire de wolfcyber le 29/05/2004 15:18:15

Tres bien, vraiment, 8/10

Commentaire de Aramiil le 06/06/2004 22:41:23

félicitation, j'aime beaucoup!

Commentaire de yomm le 13/08/2004 20:04:13

où l'as tu copié ?
2 solutions :
-1) tu le mets dans le même répertoire ke le fichier exe
-2) dans le répertoire system de windows (system/system32 selon l'OS)

Sinon , il est peut etre nécessaire de recompiler l'ocx ...mais s'il marche sur d'autres postes, je pense que l'une des 2 premières solutions devrait sufir.

@+

Commentaire de fredericmichel le 03/08/2005 11:18:41

Très bien, merci à toi.

Commentaire de _deadstar_ le 09/03/2006 10:43:31

super merci beaucoup pour ton aide ! ^^

Commentaire de patrick le 12/07/2006 23:25:11

j'ai un bout de code qui affiche la température CPU dans l'icon. Tous le code n'est pas de moi...

Le principe est d'utilisé un control ImageList, et de modifier l'une des images.

VERSION 5.00
Object = "{6B7E6392-850A-101B-AFC0-4210102A8DA7}#1.3#0"; "comctl32.ocx"
Begin VB.Form Form1
   BackColor       =   &H80000009&
   Caption         =   "Form1"
   ClientHeight    =   2610
   ClientLeft      =   165
   ClientTop       =   555
   ClientWidth     =   3345
   LinkTopic       =   "Form1"
   ScaleHeight     =   2610
   ScaleWidth      =   3345
   StartUpPosition =   3  'Windows Default
   Begin VB.Timer Interval
      Interval        =   1000
      Left            =   1800
      Top             =   240
   End
   Begin VB.PictureBox Pictext
      Appearance      =   0  'Flat
      AutoRedraw      =   -1  'True
      BackColor       =   &H00000000&
      BorderStyle     =   0  'None
      ForeColor       =   &H00FFFFFF&
      Height          =   240
      Left            =   240
      ScaleHeight     =   16
      ScaleMode       =   3  'Pixel
      ScaleWidth      =   16
      TabIndex        =   0
      Top             =   240
      Width           =   240
   End
   Begin VB.Label Label1
      Caption         =   "Label1"
      Height          =   255
      Left            =   840
      TabIndex        =   1
      Top             =   1440
      Width           =   1575
   End
   Begin ComctlLib.ImageList imgList
      Left            =   720
      Top             =   240
      _ExtentX        =   1005
      _ExtentY        =   1005
      BackColor       =   -2147483643
      MaskColor       =   12632256
      _Version        =   327682
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit

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 NIF_MESSAGE = &H1
Private Const NIF_ICON = &H2
Private Const NIF_TIP = &H4

Private Const WM_LBUTTONDBLCLK = &H203
Private Const WM_LBUTTONDOWN = &H201
Private Const WM_RBUTTONUP = &H205

Private Declare Function Shell_NotifyIcon Lib "shell32" Alias "Shell_NotifyIconA" (ByVal dwMessage As Long, pnid As NOTIFYICONDATA) As Boolean

Dim IconeTray As NOTIFYICONDATA
Dim wbemServices As Object

'=====================================================================================================
'  Initialisation
'=====================================================================================================

Private Sub Form_Load()
  
   '- - - Connexion a WMI
  'On Error GoTo WMI_CONNECT
      Set wbemServices = GetObject("winmgmts:" & "\\localhost\root\wmi")
    On Error GoTo 0
  
   '- - - Initialisation Icon pour Systray
    imgList.ListImages.Add , , Pictext.Image
    imgList.MaskColor = Pictext.BackColor
    imgList.UseMaskColor = True
        
   '- - - Creation du Systray
    IconeTray.cbSize = Len(IconeTray)
    IconeTray.hWnd = Me.hWnd
    IconeTray.uId = 1&
    IconeTray.uFlags = NIF_TIP Or NIF_MESSAGE
    IconeTray.ucallbackMessage = WM_LBUTTONDOWN
    IconeTray.szTip = "Essai NotifyIcon" & Chr(0)
    Shell_NotifyIcon NIM_ADD, IconeTray

   '- - - valeur implicite
    Call Interval_Timer

End Sub

Private Sub Interval_Timer()

  Dim wbemObjectSet As Object
  Dim wbemObject As Object
  
   '- - - calcul Temperature
    Interval.Enabled = False
    Set wbemObjectSet = wbemServices.InstancesOf("MSAcpi_ThermalZoneTemperature")
     For Each wbemObject In wbemObjectSet
       Me.Caption = CInt(((wbemObject.CurrentTemperature - 2732) / 10)) & Chr(176) & "C"
      'Me.caption = CInt(((wbemObject.CurrentTemperature - 2732) / 10) * (9 / 5) + 32) & Chr(176) & "F"
       Me.Label1 = wbemObject.CurrentTemperature
     Next
    Set wbemObjectSet = Nothing
    Interval.Enabled = True
  
   '- - - calcul nouvelle images
    imgList.ListImages.Remove 1
     Pictext.Cls
     Pictext.Print Val(Me.Caption)
     Pictext.Line (2, 3)-(2, 11), , B
     Pictext.Circle (2, 13), 2
    imgList.ListImages.Add , , Pictext.Image
    
   '- - - Mise a jour SysTray
    IconeTray.hIcon = imgList.ListImages(1).ExtractIcon
    IconeTray.uFlags = NIF_ICON
    Shell_NotifyIcon NIM_MODIFY, IconeTray

End Sub

'=====================================================================================================
'  Fin Programme
'=====================================================================================================

Private Sub Form_Unload(Cancel As Integer)
   Set wbemServices = Nothing
   Shell_NotifyIcon NIM_DELETE, IconeTray
   Set Form1 = Nothing
End Sub

Commentaire de fdiedler2000 le 13/07/2006 23:07:45

lol non ca c facile mais c'est de mettre un texte dynamiquement dans le systray dans l'icone pas en ttoltip

Commentaire de fdiedler2000 le 14/07/2006 19:00:32

oui exact mais dynamiquement car le chiffre va changer ^^

Commentaire de quigon23 le 24/07/2006 19:54:13

Simple Efficace Bravo !!!!

Commentaire de mortalino le 18/12/2006 00:49:25

Salut,

très intéressant, cependant, malgrè mes recherches dans ton UC, comment fais-tu pour définir ton MenuPop ?
Par exemple, j'ai MenuQuitter, MenuRestore et MenuMessage, j'aimerai le changer et mettre d'autre chose.
J'ai beau regarder dans l'explorateur d'objet, je ne le retrouve pas.

Merci pour ton aide  ;)
++

Commentaire de 42wawa42 le 06/05/2007 18:48:33

Trés belle source merci.....

A plus sur VBFrance.com
42wawa42
(9/10)

Commentaire de benduf le 09/04/2008 13:19:36

Salut c'est génial j'arrive en m'en servir à partir d'un autre programme de développement hipper bridé!!!! Visual lansa par contre je n'arrive pas à charger un icône pourrait-on en mettre un par défault cela serait vraiment géniale pour moi. car l'icone est tout blanc. j'ai essayé aussi de l'ouvrir avec microsft visual studio 2005 mais j'ai des erreurs et je suis novice avec.

Merci