{"id":890,"date":"2022-12-08T07:36:23","date_gmt":"2022-12-08T06:36:23","guid":{"rendered":"http:\/\/lesmrdtrucs.mataf35400.fr\/?page_id=890"},"modified":"2022-12-08T08:03:35","modified_gmt":"2022-12-08T07:03:35","slug":"mettre-un-programme-dans-le-systray","status":"publish","type":"page","link":"https:\/\/lesmrdtrucs.mataf35400.fr\/index.php\/mettre-un-programme-dans-le-systray\/","title":{"rendered":"Mettre un programme dans le SysTray\u200b"},"content":{"rendered":"\t\t
\n\t\t\t\t\t\t
\n\t\t\t\t\t\t
\n\t\t\t\t\t
\n\t\t\t
\n\t\t\t\t\t\t
\n\t\t\t\t
\n\t\t\t\t\t\t\t

Ces proc\u00e9dures servent \u00e0 ne pas afficher le bouton dans la barre de t\u00e2ches (*), et quand m\u00eame afficher le prog dans le Systray.

Il faut cr\u00e9er un contr\u00f4le pour recevoir l’\u00e9v\u00e8nement qui g\u00e8rera l’ic\u00f4ne. Ce contr\u00f4le doit \u00eatre invisible car l’\u00e9v\u00e8nement est le mousemove, et il ne faut pas que le passage de la souris perturbe la fonction.

J’ai choisi un pictureBox nomm\u00e9 \u00ab\u00a0PicSystray\u00a0\u00bb plac\u00e9 dans la FraBid invisible.<\/p>\t\t\t\t\t\t<\/div>\n\t\t\t\t<\/div>\n\t\t\t\t\t<\/div>\n\t\t<\/div>\n\t\t\t\t\t<\/div>\n\t\t<\/section>\n\t\t\t\t

\n\t\t\t\t\t\t
\n\t\t\t\t\t
\n\t\t\t
\n\t\t\t\t\t\t
\n\t\t\t\t
\n\t\t\t\t\t\t\t

A mettre dans le G\u00e9n\u00e9ral du module:
‘Mise en systray<\/em><\/span>
Type IconeTray<\/em><\/span>
\u00a0\u00a0 \u00a0cbSize As Long \u00a0\u00a0\u00a0 \u00a0‘Taille de l’ic\u00f4ne (en octets)<\/span><\/em><\/span>
\u00a0\u00a0\u00a0 hwnd As Long\u00a0\u00a0 \u00a0\u00a0\u00a0 \u00a0‘Handle du contr\u00f4le charg\u00e9 de recevoir les messages envoy\u00e9s lors des \u00e9v\u00e8nements sur l’ic\u00f4ne (clics, doubles-clics…)<\/span><\/em><\/span>
\u00a0\u00a0 \u00a0uID As Long\u00a0\u00a0\u00a0 \u00a0\u00a0\u00a0 \u00a0‘Identificateur de l’ic\u00f4ne<\/span><\/em><\/span>
\u00a0\u00a0 \u00a0uFlags As Long<\/em><\/span>
\u00a0\u00a0 \u00a0uCallbackMessage As Long\u00a0\u00a0 \u00a0‘Messages \u00e0 renvoyer<\/span><\/em><\/span>
\u00a0\u00a0 \u00a0hIcon As Long\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 \u00a0\u00a0\u00a0 \u00a0‘Handle de l’ic\u00f4ne<\/span><\/em><\/span>
\u00a0\u00a0 \u00a0szTip As String * 64\u00a0\u00a0 \u00a0\u00a0\u00a0 \u00a0‘Texte \u00e0 mettre dans la bulle d’aide<\/span><\/em><\/span>
End Type<\/em><\/span>
Global IconeT As IconeTray<\/em><\/span><\/p>

Declare Function Shell_NotifyIcon Lib \u00ab\u00a0shell32\u00a0\u00bb Alias \u00ab\u00a0Shell_NotifyIconA\u00a0\u00bb (ByVal dwMessage As Long, pnid As IconeTray) As Boolean<\/em><\/span><\/p>

‘Constantes n\u00e9cessaires<\/em><\/span>
Public Const AJOUT = &H0<\/em><\/span>
Public Const MODIF = &H1<\/em><\/span>
Public Const SUPPRIME = &H2<\/em><\/span>
Public Const MOUSEMOVE = &H200<\/em><\/span>
Public Const MESSAGE = &H1<\/em><\/span>
Public Const Icone = &H2<\/em><\/span>
Public Const TIP = &H4<\/em><\/span>
Public Const DOUBLE_CLICK_GAUCHE = &H203<\/em><\/span>
Public Const BOUTON_GAUCHE_POUSSE = &H201<\/em><\/span>
Public Const BOUTON_GAUCHE_LEVE = &H202<\/em><\/span>
Public Const DOUBLE_CLICK_DROIT = &H206<\/em><\/span>
Public Const BOUTON_DROIT_POUSSE = &H204<\/em><\/span>
Public Const BOUTON_DROIT_LEVE = &H205<\/em><\/span><\/p>

A mettre dans le Load de la Form:
\u00a0\u00a0\u00a0 ‘——————————Ic\u00f4ne dans le Systray<\/em><\/span>
\u00a0\u00a0 \u00a0IconeT.cbSize = Len(IconeT) ‘Taille de l’ic\u00f4ne en octet<\/span><\/em><\/span>
\u00a0\u00a0\u00a0 IconeT.hwnd = PicSystray.hwnd\u00a0 \u00a0\u00a0\u00a0\u00a0 ‘Handle de l’application (pour qu’elle re\u00e7oive les messages envoy\u00e9s lors d’un clic, double-clic…<\/span><\/em><\/span>
\u00a0\u00a0 \u00a0IconeT.uID = 1&\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 \u00a0\u00a0\u00a0 ‘Identificateur de l’ic\u00f4ne<\/span><\/em><\/span>
\u00a0\u00a0 \u00a0IconeT.uFlags = Icone Or TIP Or MESSAGE<\/em><\/span>
\u00a0\u00a0 \u00a0IconeT.uCallbackMessage = MOUSEMOVE \u00a0\u00a0\u00a0 ‘Renvoyer les messages concernant l’action de la souris<\/span><\/em><\/span>
\u00a0\u00a0 \u00a0IconeT.hIcon = Me.Icon\u00a0\u00a0 ‘Mettre en ic\u00f4ne l’image celle de la form<\/span><\/em><\/span>
\u00a0\u00a0 \u00a0IconeT.szTip = me.caption & Chr$(0)\u00a0\u00a0\u00a0 ‘Texte de la bulle d’aide<\/span><\/em><\/span>
\u00a0\u00a0 \u00a0‘Appel de la fonction pour mettre l’ic\u00f4ne dans le syst\u00e8me tray<\/span><\/em><\/span>
\u00a0\u00a0 \u00a0Shell_NotifyIcon AJOUT, IconeT<\/em><\/span>
\u00a0\u00a0 \u00a0‘Me.Hide\u00a0\u00a0 ‘Cache la fen\u00eatre<\/span><\/em><\/span>
\u00a0\u00a0 \u00a0App.TaskVisible = False \u00a0\u00a0\u00a0 ‘Retire le bouton de l’application de la barre des t\u00e2ches (*)<\/span><\/em><\/span><\/p>

A mettre dans le resize de la form:
\u00a0\u00a0 \u00a0‘————————-Permet de transformer le minimize en hide.<\/em><\/span>
\u00a0\u00a0\u00a0 If Me.WindowState = 1 Then<\/em><\/span>
\u00a0\u00a0 \u00a0\u00a0\u00a0\u00a0 Me.Hide<\/em><\/span>
\u00a0\u00a0 \u00a0\u00a0\u00a0\u00a0 DoEvents<\/em><\/span>
\u00a0\u00a0 \u00a0\u00a0\u00a0\u00a0 Me.WindowState = 0<\/em><\/span>
\u00a0\u00a0 \u00a0End If<\/em><\/span><\/p>

A mettre dans le MouseMouve de PicSystray:
\u00a0\u00a0 ‘souris sur l’ic\u00f4ne plac\u00e9e dans le syst\u00e8me tray
\u00a0\u00a0 \u00a0Static rec As Boolean, msg As Long
\u00a0\u00a0 \u00a0msg = X \/ Screen.TwipsPerPixelX
\u00a0\u00a0 \u00a0If Not rec Then
\u00a0\u00a0 \u00a0\u00a0\u00a0\u00a0 rec = True
\u00a0\u00a0 \u00a0\u00a0\u00a0\u00a0 Select Case msg
\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 \u00a0\u00a0\u00a0\u00a0 Case DOUBLE_CLICK_GAUCHE:
\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 \u00a0\u00a0\u00a0\u00a0 Case BOUTON_GAUCHE_POUSSE:
\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 \u00a0\u00a0\u00a0\u00a0 If Me.Visible Then
\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 \u00a0\u00a0\u00a0\u00a0 Me.Hide
\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 \u00a0\u00a0\u00a0\u00a0 Else
\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 \u00a0\u00a0\u00a0\u00a0 Me.Show
\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 \u00a0\u00a0\u00a0\u00a0 End If
\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 \u00a0\u00a0\u00a0\u00a0 Case BOUTON_GAUCHE_LEVE:
\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 \u00a0\u00a0\u00a0\u00a0 Case DOUBLE_CLICK_DROIT:
\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 \u00a0\u00a0\u00a0\u00a0 Case BOUTON_DROIT_POUSSE:
\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 \u00a0\u00a0\u00a0\u00a0 Case BOUTON_DROIT_LEVE:
\u00a0\u00a0 \u00a0\u00a0\u00a0\u00a0 End Select
\u00a0\u00a0 \u00a0\u00a0\u00a0\u00a0 rec = False
\u00a0\u00a0 \u00a0End If<\/em><\/span><\/p>

\u00a0<\/em>A chaque fois que l’on veut modifier, Ex: le ToolTipText et l’ic\u00f4ne:
\u00a0\u00a0\u00a0 IconeT.szTip = \u00ab\u00a0Mon ToolTipText \u00e0 moi… \u00a0\u00bb\u00a0 & Chr$(0)\u00a0\u00a0\u00a0 ‘Texte de la bulle d’aide
\u00a0\u00a0 \u00a0IconeT.hIcon = Me.Icon\u00a0\u00a0 ‘Mettre en ic\u00f4ne celle de la form
\u00a0\u00a0 \u00a0Shell_NotifyIcon MODIF, IconeT
<\/em><\/span>Cela peut servir \u00e0 avoir une ic\u00f4ne anim\u00e9e (par Ex: gyrophare) si l’on met ces lignes dans une tempo.<\/p>

A mettre dans l’Unload de la form (pour que le SysTray soit rafra\u00eechi sans avoir \u00e0 passer la souris dessus):
\u00a0\u00a0\u00a0 Shell_NotifyIcon SUPPRIME, IconeT<\/span><\/em><\/p>\t\t\t\t\t\t<\/div>\n\t\t\t\t<\/div>\n\t\t\t\t\t<\/div>\n\t\t<\/div>\n\t\t\t\t\t<\/div>\n\t\t<\/section>\n\t\t\t\t<\/div>\n\t\t","protected":false},"excerpt":{"rendered":"

Ces proc\u00e9dures servent \u00e0 ne pas afficher le bouton dans la barre de t\u00e2ches (*), et quand m\u00eame afficher le prog dans le Systray. Il faut cr\u00e9er un contr\u00f4le pour recevoir l’\u00e9v\u00e8nement qui g\u00e8rera l’ic\u00f4ne. Ce contr\u00f4le doit \u00eatre invisible car l’\u00e9v\u00e8nement est le mousemove, et il ne faut pas que le passage de la […]<\/p>\n","protected":false},"author":1,"featured_media":0,"parent":0,"menu_order":0,"comment_status":"closed","ping_status":"closed","template":"","meta":{"ocean_post_layout":"","ocean_both_sidebars_style":"","ocean_both_sidebars_content_width":0,"ocean_both_sidebars_sidebars_width":0,"ocean_sidebar":"0","ocean_second_sidebar":"0","ocean_disable_margins":"enable","ocean_add_body_class":"","ocean_shortcode_before_top_bar":"","ocean_shortcode_after_top_bar":"","ocean_shortcode_before_header":"","ocean_shortcode_after_header":"","ocean_has_shortcode":"","ocean_shortcode_after_title":"","ocean_shortcode_before_footer_widgets":"","ocean_shortcode_after_footer_widgets":"","ocean_shortcode_before_footer_bottom":"","ocean_shortcode_after_footer_bottom":"","ocean_display_top_bar":"default","ocean_display_header":"default","ocean_header_style":"","ocean_center_header_left_menu":"0","ocean_custom_header_template":"0","ocean_custom_logo":0,"ocean_custom_retina_logo":0,"ocean_custom_logo_max_width":0,"ocean_custom_logo_tablet_max_width":0,"ocean_custom_logo_mobile_max_width":0,"ocean_custom_logo_max_height":0,"ocean_custom_logo_tablet_max_height":0,"ocean_custom_logo_mobile_max_height":0,"ocean_header_custom_menu":"0","ocean_menu_typo_font_family":"0","ocean_menu_typo_font_subset":"","ocean_menu_typo_font_size":0,"ocean_menu_typo_font_size_tablet":0,"ocean_menu_typo_font_size_mobile":0,"ocean_menu_typo_font_size_unit":"px","ocean_menu_typo_font_weight":"","ocean_menu_typo_font_weight_tablet":"","ocean_menu_typo_font_weight_mobile":"","ocean_menu_typo_transform":"","ocean_menu_typo_transform_tablet":"","ocean_menu_typo_transform_mobile":"","ocean_menu_typo_line_height":0,"ocean_menu_typo_line_height_tablet":0,"ocean_menu_typo_line_height_mobile":0,"ocean_menu_typo_line_height_unit":"","ocean_menu_typo_spacing":0,"ocean_menu_typo_spacing_tablet":0,"ocean_menu_typo_spacing_mobile":0,"ocean_menu_typo_spacing_unit":"","ocean_menu_link_color":"","ocean_menu_link_color_hover":"","ocean_menu_link_color_active":"","ocean_menu_link_background":"","ocean_menu_link_hover_background":"","ocean_menu_link_active_background":"","ocean_menu_social_links_bg":"","ocean_menu_social_hover_links_bg":"","ocean_menu_social_links_color":"","ocean_menu_social_hover_links_color":"","ocean_disable_title":"default","ocean_disable_heading":"default","ocean_post_title":"","ocean_post_subheading":"","ocean_post_title_style":"","ocean_post_title_background_color":"","ocean_post_title_background":0,"ocean_post_title_bg_image_position":"","ocean_post_title_bg_image_attachment":"","ocean_post_title_bg_image_repeat":"","ocean_post_title_bg_image_size":"","ocean_post_title_height":0,"ocean_post_title_bg_overlay":0.5,"ocean_post_title_bg_overlay_color":"","ocean_disable_breadcrumbs":"default","ocean_breadcrumbs_color":"","ocean_breadcrumbs_separator_color":"","ocean_breadcrumbs_links_color":"","ocean_breadcrumbs_links_hover_color":"","ocean_display_footer_widgets":"default","ocean_display_footer_bottom":"default","ocean_custom_footer_template":"0","footnotes":""},"class_list":["post-890","page","type-page","status-publish","hentry","entry"],"_links":{"self":[{"href":"https:\/\/lesmrdtrucs.mataf35400.fr\/index.php\/wp-json\/wp\/v2\/pages\/890","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/lesmrdtrucs.mataf35400.fr\/index.php\/wp-json\/wp\/v2\/pages"}],"about":[{"href":"https:\/\/lesmrdtrucs.mataf35400.fr\/index.php\/wp-json\/wp\/v2\/types\/page"}],"author":[{"embeddable":true,"href":"https:\/\/lesmrdtrucs.mataf35400.fr\/index.php\/wp-json\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/lesmrdtrucs.mataf35400.fr\/index.php\/wp-json\/wp\/v2\/comments?post=890"}],"version-history":[{"count":10,"href":"https:\/\/lesmrdtrucs.mataf35400.fr\/index.php\/wp-json\/wp\/v2\/pages\/890\/revisions"}],"predecessor-version":[{"id":904,"href":"https:\/\/lesmrdtrucs.mataf35400.fr\/index.php\/wp-json\/wp\/v2\/pages\/890\/revisions\/904"}],"wp:attachment":[{"href":"https:\/\/lesmrdtrucs.mataf35400.fr\/index.php\/wp-json\/wp\/v2\/media?parent=890"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}