App dans Systray

Question

Salut !

J'ai un probl&#232;me dans le d&#233;veloppement de mon application...
J'ai ajouter un bouton qui se charge dans la barre des titres... Lorsque je clique sur celui ci, pas de probleme, l'app va dans le systraY... Mais je n'arrive pas &#224; cr&#233;er une proc&#233;dure pour r&#233;ouvrir l'application, la faire passer du systray &#224; son affichage normal...

Voici mon code...

Private oSystray As New SysTray

Private Sub b_systray_Click()
    Call oSystray.CreateIcon(Me, Me.Caption)
    Me.Hide
    b_systray.Visible = False
End Sub

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
    Call b_systray.TerminateTitleBar
End Sub

Private Sub Form_Load
Call b_systray.InitializeTitleBar
End Sub

Et donc je ne sais pas quelle est la proc&#233;dure &#224; appeler pour relancer l'application une fois r&#233;duite...

Merci &#224; vous d'avance !!!!!
++

KaKAsHi

cs_Jack · Answer

Salut
... tu te prends par la main et tu cherches et regardes les dizaines de sources qui parlent de SysTray sur vbfrance !

Vala
Jack
NB : Je ne r&#233;pondrai pas aux messages priv&#233;s 

Le savoir est la seule mati&#232;re qui s'accroit quand on la partage. (Socrate)

SenseiKakashi · Answer

D&#233;j&#224; fait... Peut &#234;tre que j'ai pas trouv&#233; LA source qui me sauverai, mais j'ai trouv&#233; &#231;a...

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Select Case X
        Case &H201 To &H203
        Me.Show
        Call oSystray.DeleteIcon
        Let b_systray.Visible = True
    End Select
End Sub

Mais &#231;a ne marche pas... En fait, je cherche juste l'&#233;v&#232;nement &#224; d&#233;clencher... Pas le code tout fait...

cs_DARKSIDIOUS · Answer

Je vois que tu as regard&#233; ma source ;)



Dans ma source, je r&#233;affiche tout d'abord la feuille (Me.Show), et ensuite, j'enl&#232;ve l'ic&#244;ne du systray (oSystray.DeleteIcon).



Par contre, si tu veux le code au complet, va voir dans le contr&#244;le
utilisateur, c'est l&#224; o&#249; les fonctions qui touche au Systray sont
encapsul&#233;es !

DarK Sidious

Un API Viewer (pour le VB, VB.NET, C, C# et Delphi) : www.ProgOtoP.com/popapi/

cs_salazar · Answer

Regarde ce source un peu compliqu&#233;, mais cool :http://www.vbfrance.com/code.aspx?ID=29267

Il existe des tonnes de sources sur le site...

SenseiKakashi · Answer

Exact DARKSIDIOUS, je me suis fortement inspir&#233; de ta source pour mon app... Le probl&#232;me, c'est que le Me.Show ne fonctionne pas puisque l'app ne se remet pas en normal quand je clique dans le systray... Voil&#224; voil&#224;... Enfin, je continue de chercher

C'est en forgeant qu'on devient forgeron...

SenseiKakashi · Answer

Au fait, merci salazar...

C'est en forgeant qu'on devient forgeron...

App dans Systray

6 réponses

Discussions similaires