High-Tech
Santé-Médecine
Droit-Finances
CodeS-SourceS
Inscription
Plan
Connexion
Rechercher un code, un tuto, une réponse
Accueil
Forum
Tutoriels
Codes Sources
Snippets
Top membres
Tous les langages
Delphi / Pascal
Java
Python
SQL
RegEx
Flash
ASM
IRC
Graphisme
PDA
ColdFusion
Foxpro
Flex
Visual Basic / VB.NET
Forum
Tutoriels
Codes Sources
Snippets
Top membres
PHP
Forum
Tutoriels
Codes Sources
Snippets
Top membres
C/C++/C++.NET
Forum
Tutoriels
Codes Sources
Snippets
Top membres
Javascript
Forum
Tutoriels
Codes Sources
Snippets
Top membres
C#/.NET
Forum
Tutoriels
Codes Sources
Snippets
Top membres
ASP/ASP.NET
Forum
Tutoriels
Codes Sources
Snippets
Top membres
Accueil
Connexion
Déposer un code
Code
Recherche
Haut
Accueil
Forum Codes-Sources
Visual Basic
Sujet Précédent
Sujet Suivant
( :: ( INFOBULLES DANS LE SYSTRAY ) :: )
Constant93
Messages postés
38
Date d'inscription
samedi 22 janvier 2005
Statut
Membre
Dernière intervention
4 août 2007
- 16 juil. 2005 à 19:23
Constant93
Messages postés
38
Date d'inscription
samedi 22 janvier 2005
Statut
Membre
Dernière intervention
4 août 2007
-
18 juil. 2005 à 22:03
Comment on fait pour mettre des infobulles dans le system tray ???
Merci d'avance
Constant93
Afficher la suite
A voir également:
( :: ( INFOBULLES DANS LE SYSTRAY ) :: )
Infobulles
✓
-
Forum VB.NET
Systray
-
Forum C# / .NET
EXE dans SYSTRAY
-
Forum Delphi / Pascal
Icon dans systray
-
Forum VB.NET
Icone dynamique dans le systray
-
Forum Visual Basic
2
réponses
Réponse 1 / 2
Utilisateur anonyme
17 juil. 2005 à 17:30
Bonjour,
Voici un code pas très bien structuré mais qui permet d'afficher un icon dans le tray avec un info-bulle et un ballon
<hr size="2" width="100%">
Option
Explicit
Private Declare Function Shell_NotifyIcon Lib "shell32" Alias
"Shell_NotifyIconA" (ByVal dwMessage As Long, pnid As NotifIcon) As
Boolean
Private Const MESS_ADD As Long = &H0 '// Pour ajouter une icone
Private Const MESS_MODIFY As Long = &H1 '// Pour modifier une icone
Private Const MESS_DELETE As Long = &H2 '// Pour effacer une icone
Private Const FLAG_MESSAGE As Long = &H1 '// Pour récupérer les évènements
de la souris (clique, déplacement ...)
Private Const FLAG_ICON As Long = &H2 '// Pour
affiche l'icone (sinon espace vide)
Private Const FLAG_TIP As Long = &H4 '// Pour avoir le ToolTip
Private Const FLAG_BULLE As Long = &H10 '// Pour afficher une bulle
Private Const CB_MOUSEMOVE As Long = &H200 '// Pour que lors d'un évènement
souris sur l'icone, Form_MouseMove soit lancée
Private Type NotifIcon
cbSize As Long
hWnd As Long
uID As Long
uFlags As Long
uCallbackMessage As Long
hIcon As Long
szTip As String * 128
dwState As Long
dwStateMask As Long
szInfo As String * 256
uTimeout As Long
szInfoTitle As String * 64
dwInfoFlags As Long
End Type
Private IconData As NotifIcon
Private Enum Icon
None = 0
Information = 1
Warning = 2
Critical = 3
Tray = 4
End Enum
Private Sub CreateIcon(Icon As Picture, Optional ToolTip As String)
IconData.cbSize = Len(IconData)
IconData.hWnd = Form1.hWnd
IconData.uID = vbNull
IconData.uFlags = FLAG_ICON Or FLAG_MESSAGE Or FLAG_TIP
IconData.uCallbackMessage = CB_MOUSEMOVE
IconData.hIcon = Icon
IconData.szTip = ToolTip & vbNullChar
Shell_NotifyIcon MESS_ADD, IconData
End Sub
Private Sub DestroyIcon()
Shell_NotifyIcon MESS_DELETE, IconData
End Sub
Private Sub Bollon(ByVal Title As String, ByVal Text As String, ByVal Icon As
Icon)
IconData.uFlags = IconData.uFlags Or FLAG_BULLE
IconData.szInfo = Text & vbNullChar
IconData.szInfoTitle = Title & vbNullChar
IconData.dwInfoFlags = Icon
Shell_NotifyIcon MESS_MODIFY, IconData
IconData.uFlags = FLAG_ICON Or FLAG_MESSAGE Or FLAG_TIP
End Sub
Private Sub Form_Load()
Call CreateIcon(Me.Icon, "Toto")
Call Ballon("AAA", "BBB", Critical)
End Sub
<hr size="2" width="100%">
<!--[if !supportLineBreakNewLine]-->ChrB
<!--[endif]-->
Réponse 2 / 2
Constant93
Messages postés
38
Date d'inscription
samedi 22 janvier 2005
Statut
Membre
Dernière intervention
4 août 2007
18 juil. 2005 à 22:03
Merci, je ne l'ai pas essayé encore, mais je reviens avec ça. (Si j'y pense )
Constant93
Rejoignez-nous
A voir également
Handle d'un process dans le systray
Systray and linux
Menu + systray
C++ Builder et systray !!
Systray + regedit + icone