Systray simple à utiliser(ocx)

Télécharger le projet
Commenter

Description

Permet de metre une icone dans le systray

Source / Exemple : 


'exemple d'utilisation (ajouter le control en l'appelent "sys"):
Private Sub Form_Load()
sys.Icon = Me.Icon
sys.Tip = "bonjour"
sys.Show
End Sub

Private Sub sys_ClickDroit()
PopupMenu mnu1
End Sub

Private Sub sys_ClickGauche()
mnu1.Visible = False
End Sub

Private Sub Form_UnLoad()
sys.Hide
End Sub

'vous pouvez aussis l'utiliser sans form : 
dim withevents sys as systray
sub main()
sys.Icon ='charger une icone d'un fichier .ico ou d'une resource
sys.Tip = "bonjour"
sys.Show
end sub

Private Sub sys_ClickDroit()
msgbox("click droit")
End Sub

Private Sub sys_ClickGauche()
msgbox("click gauche")
End Sub

Conclusion :


un bug, une question, un conseil : dites-le moi.
note : on peut changer l'icone et le tip pendant que l'icone est affiché dans la barre des taches : s'a s'actualise automatiquement!

PS : vous pouvez voire cette source en action grace à la source numero 9717

l'ocx du zip conptient cette source et la numero 9796
Télécharger le projet

Codes Sources

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (cs_dtom)