METTRE UNE ICON DE VOTRE APPLICATION DS LA BARRE DES TACHES WINDOWS À COTÉ DE L'
kitati
-
28 nov. 2001 à 11:14
misterwimbo Messages postés 12 Date d'inscription mardi 21 mars 2006 Statut Membre Dernière intervention 22 novembre 2007 - 21 nov. 2007 à 07:59
misterwimbo Messages postés 12 Date d'inscription mardi 21 mars 2006 Statut Membre Dernière intervention 22 novembre 2007 - 21 nov. 2007 à 07:59
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/1909-mettre-une-icon-de-votre-application-ds-la-barre-des-taches-windows-a-cote-de-l-horloge
https://codes-sources.commentcamarche.net/source/1909-mettre-une-icon-de-votre-application-ds-la-barre-des-taches-windows-a-cote-de-l-horloge
21 nov. 2007 à 07:59
rien à redire...Ah si:
Dim a As Integer
For a = 1 To 1000
Print "merci"
Next a
1000 merci!
30 août 2003 à 00:02
28 août 2003 à 11:03
28 août 2003 à 11:03
4 juil. 2003 à 01:29
30 juin 2003 à 09:27
3 janv. 2003 à 14:41
'rajouter un element au menu "Restore" avec comme nom
'mnuRestore et un commandbutton ke vous appeler cmdReduire
'le code
Private Sub cmdReduire_Click()
Me.TaskbarIcon1.ShowIcon
Me.Hide
End Sub
Private Sub Form_Load()
'Le code suivant met le formulaire en mode invisible et pose une icone en bas de l'ecran ds la barre des taches windows à coté de l'horloge,
'Le code est bien testé, il marche tres bien, si il y'a un bug ou autres remarques n'hésitez pas à prendre contact avec moi a.rachid@mtds.com
'ds l'événement IconMouseDown du control TaskBarIcon1 j'ai mis un code qui fait appel au menu du formulaire
'Bonnne chance
mnuFichier.Visible = False
Me.TaskbarIcon1.Icon = LoadPicture(App.Path & "Mon icon.ico")
End Sub
Private Sub mnumessg_Click()
Shell "start.exe mailto:a.rachid@mtds.com", vbHide
End Sub
Private Sub mnupropos_Click()
MsgBox "Exemple fait par seedorf le marocain" & Chr(13) & "e-mail: a.rachid@mtds.com", vbInformation, "Icon barre des taches"
End Sub
Private Sub mnuQuit_Click()
Unload Me
End Sub
Private Sub mnuRestore_Click()
Me.TaskbarIcon1.HideIcon
Me.Show
End Sub
Private Sub TaskbarIcon1_IconDblClick()
mnuRestore_Click
End Sub
Private Sub TaskbarIcon1_IconMouseDown(ByVal Button As Integer)
If Button = 2 Then
Me.PopupMenu mnuFichier
End If
End Sub
8 juil. 2002 à 21:59
8 juil. 2002 à 21:59
10 mai 2002 à 20:45
marche impec ! merci.
28 nov. 2001 à 11:14
17 nov. 2001 à 16:27