OCX POUR GÉRER LE SYSTRAY SUPER FACILEMENT !!! SI, SI JETEZ UN OEIL VOUS VERREZ
Golog
Messages postés
224
Date d'inscription
jeudi 31 janvier 2002
Statut
Membre
Dernière intervention
22 décembre 2009
-
14 févr. 2004 à 13:10
cs_benduf Messages postés 4 Date d'inscription jeudi 9 février 2006 Statut Membre Dernière intervention 5 juin 2008 - 5 juin 2008 à 17:48
cs_benduf Messages postés 4 Date d'inscription jeudi 9 février 2006 Statut Membre Dernière intervention 5 juin 2008 - 5 juin 2008 à 17:48
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/20401-ocx-pour-gerer-le-systray-super-facilement-si-si-jetez-un-oeil-vous-verrez
https://codes-sources.commentcamarche.net/source/20401-ocx-pour-gerer-le-systray-super-facilement-si-si-jetez-un-oeil-vous-verrez
5 juin 2008 à 17:48
ça fonctionne très bien sur XP, mais je dois le faire fonctionner sur serveur 2003, quelqu'un peut me dire comment faire, dois-je rajouter des dlls ou autre ....
Merci
9 avril 2008 à 13:19
Merci
20 juin 2007 à 17:00
Très bonne source, yomm! Ca fait plaisir de voir du code aussi propre (commentaire, identation...)
Je mets aussi un 9/10
Bonne continuation
A+
Jeh
6 mai 2007 à 18:48
A plus sur VBFrance.com
42wawa42
(9/10)
18 déc. 2006 à 01:03
Fallait passer par le créateur de Menu...
En tout cas merci beaucoup, je pense l'intégrer dans ma prochaine source (pour le taf) et je modifierai ton UserControl mais je ferai un clin d'oeil à ta source dans la mienne ;)
@++
(9/10)
18 déc. 2006 à 00:49
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 ;)
++
24 oct. 2006 à 10:56
Tout d'abord merci pour cette source a double utilisation !
En effet, la gestion du systray est NICKEL !!! Ca marche du tonnerre !!! Et pour la deuxieme fonctionnalité, cette source va me permettre de deblayer un peu comment creer des controles activeX. En fait, c'est une super source en tant que TUTORIEL aux activeX !
Un gros merci !
24 juil. 2006 à 19:54
17 juil. 2006 à 16:17
Bon... la limite d'un texte dans un icon, c'est deux caractères maxi ! (16x16)
A+ Patrick
14 juil. 2006 à 19:00
14 juil. 2006 à 15:33
en gros comme l'affichage de l'heure ?
désolé, je me suis jamais posé la question...
13 juil. 2006 à 23:07
13 juil. 2006 à 22:41
je sais pas ce que tu entends par mettre "un texte dans l'icon du systray" mais si c'est modifier le tooltiptext à savoir le texte afficher lorsque l'on pointe la souris sur l'icon en question, il te suffit d'utiliser une commande du style :
YommSysTray1.Caption = "toto"
comme dans l'exemple fournit dans le source...
@+ et bon dev
12 juil. 2006 à 23:25
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
7 juil. 2006 à 19:41
9 mars 2006 à 10:43
1 mars 2006 à 09:19
Private Declare Function SetForegroundWindow Lib "user32" (ByVal hWnd As Long) As Long
Private Sub MonIcone_Click(ByVal Button As Long)
If Button = 1 Then
SetForegroundWindow Me.hWnd
PopupMenu MenuPop
End If
End Sub
A+ Patrick
http://jeux.cartes.free.fr
3 août 2005 à 11:18
30 janv. 2005 à 00:45
Vraiment très bien...
10/10
Heureusement qu'il y a Yomm :-)
13 août 2004 à 20:04
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.
@+
13 août 2004 à 16:02
Merci pour ton aide
6 juin 2004 à 22:41
30 mai 2004 à 12:32
29 mai 2004 à 15:18
17 mai 2004 à 12:53
Bonne continuation
3 mars 2004 à 02:21
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!
23 févr. 2004 à 15:35
(De toute facon, si ca marche pas, je reviens et je met 0 :)
15 févr. 2004 à 00:46
14 févr. 2004 à 23:35
14 févr. 2004 à 14:52
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 ....
14 févr. 2004 à 13:10