iconiser un programme

Vous débutez et vous avez besoin d'aide ? N'hésitez pas à poser vos questions
david
Messages : 208
Inscription : jeu. 03/févr./2005 21:10

iconiser un programme

Message par david »

je debute, j'ai deja fait qq petites bafouilles, mais je souhaite faire un prog qui une fois lancé va pas se réduire, mais mettre une mini-icone sur le coté droit (comme l'anti-virus,l'imprimante,connexion bleetouth...)
avec quand on clic dessus mon "menu" a propos et fermer le programme.

le but ça sera pour moi de dire qu'il gene pas ma barre d'affichage des programmes ouverts, et qil puisse toutes les nuits aller faire automatiquement l'opération que je vais lui demander.

j'ai bien cherché de mon coté, mais j'ai vraiment jamais exploité ça et je ne sais même pas si c'est faisable. si qqu'un peu me donner ne serait-ce qu'une piste...
d'avance merci
RV
Messages : 209
Inscription : sam. 18/nov./2006 15:16

Message par RV »

Salut david,

Dans l'aide de PureBasic, jette un oeil sur SysTray!
Avatar de l’utilisateur
venom
Messages : 3138
Inscription : jeu. 29/juil./2004 16:33
Localisation : Klyntar
Contact :

Message par venom »

Dans l'aide de PureBasic, jette un oeil sur SysTray
tout a fait RV :wink:
voici un petit exemple qui met une icone a coté de l'horloge.

Code : Tout sélectionner

If OpenWindow(0, 0, 0, 0, 0, "",#PB_Window_Invisible)
  AddSysTrayIcon(0, WindowID(0), LoadImage(0, "C:\WINDOWS\system32\WASTE.ico"))
EndIf 

Repeat
Delay(5000)
End
Until EventID = #PB_Event_CloseWindow 
voila. :wink:



@++
Windows 10 x64, PureBasic 5.73 x86 & x64
GPU : radeon HD6370M, CPU : p6200 2.13Ghz
RV
Messages : 209
Inscription : sam. 18/nov./2006 15:16

Message par RV »

@ venom

Ok! :D
Du coup je rajoute le menu! :wink:

Code : Tout sélectionner

FicIcon$="tonfichier.ico"

If OpenWindow(0, 0, 0, 0, 0, "blabla",#PB_Window_Invisible) 
  CreatePopupMenu(1)
    MenuItem(1,"A propos")
    MenuItem(2,"Quitter")
  AddSysTrayIcon(0, WindowID(0), LoadImage(0, FicIcon$)) 
EndIf 


Repeat 
 
  Select WaitWindowEvent()
    Case #PB_Event_SysTray
      DisplayPopupMenu(1, WindowID(0))
    Case #PB_Event_Menu
      Select EventMenu()
        Case 1 ; A propos
          MessageRequester("A propos de...","Blablabla blabla."+Chr(13)+"Blabla blablabla blabla!")
        Case 2 ; Quitter
          quit=1
      EndSelect
   EndSelect
  
Until quit=1
End
Avatar de l’utilisateur
venom
Messages : 3138
Inscription : jeu. 29/juil./2004 16:33
Localisation : Klyntar
Contact :

Message par venom »

:D c'est tout de suite plus complet a se qu'a demandé david :wink: .


@++
Windows 10 x64, PureBasic 5.73 x86 & x64
GPU : radeon HD6370M, CPU : p6200 2.13Ghz
david
Messages : 208
Inscription : jeu. 03/févr./2005 21:10

Message par david »

ouah..
bon ben je suis bleuffé, sais pas quoi dire
a part que c'était exactement ça que je cherchais...
... on peut pas dire mieux!!!

encore un grand merci a vous
Répondre