Discussion :

[mustang-ffw02]

Bonjour à tous,

Je cherche le moyen d'afficher une variable dynamique, un compte à rebours en jours, heures, minutes et secondes.
La partie calcul du compte à rebours marche, mais je ne trouve pas le moyen de l'afficher dans la barre des taches (à coté de l'heure par exemple).

J'ai deja vu ca dans un programme pour arreter le pc en différé.

Quelqu'un peut m'aider.
Merci à tous.

[Pol63]

l'objet notifyicon à poser sur ta feuille
ensuite tu fais des icones différents ...

[Poulain]

Je ne sais pas si c'est vraiment ce qu'il demande.

Je pense que ce qu'il demande, c'est que sur le bouton qui représente la fenêtre sur la barre des taches, il y ait le compte a rebours qui s'affiche, sans que celà s'affiche sur le titre de la form, par exemple.

[olsimare]

Bonjour.

Idée pas trés élégante : tu fais une form en mode minimized qui ne peut pas être agrandie et tu modifies le .text.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
 
Public Class Form4
    Private WithEvents t As New Timer
    Private Sub Form4_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Me.Enabled = False
        t.Interval = 1000
        t.Start()
    End Sub
    Private Sub t_Tick(ByVal sender As Object, ByVal e As System.EventArgs) Handles t.Tick
        Me.Text = CStr(Date.Now.Second)
    End Sub
End Class

Tu l'instancies comme cela :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
 
Dim f As Form4
 
    Private Sub Form3_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        f = New Form4
        f.WindowState = FormWindowState.Minimized
        f.ShowInTaskbar = True
        f.Show()
    End Sub

Pas joli, joli mais ça marche.

Cdt.

[mustang-ffw02]

Ok merci.

Je vais essayer ca en attendant. je te remercie.

[mustang-ffw02]

Voila ce que je voudrais faire:

[mustang-ffw02]

J'ai bien trouver ca mais quelqu'un peut m'aider à l'utiliser?

http://faqvbnet.developpez.com/?page...ify_icon_modif

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
    ''' Méthode privée timer1_Tick gestionnaire de l'évènement Tick de timer1
    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        ' lancer la mise à jour de NotifyIcon1
        Me.UpdateNotiFyIcon(DateTime.Now.Second.ToString())
    End Sub
 
 
    '''Méthode privée UpdateNotiFyIcon chargée de mofifier notifyIcon1 dynamiquement
    '''String : représente le texte à afficher
    Private Sub UpdateNotiFyIcon(ByVal texte As String)
        ' redessiner iconBitmap
        Me.UpdateBitmap(texte)
        ' récupérer un icone à patir de iconBitmap
        Dim newIcon As Icon = Drawing.Icon.FromHandle(iconBitmap.GetHicon())
        ' assigner le nouvel icône de NotifyIcon1
        Me.NotifyIcon1.Icon = newIcon
        ' détruire en mémoire newIcon
        newIcon.Dispose()
    End Sub
 
 
    '''Méthode privée UpdateBitmap chargée de redessiner iconBitmap en fonction d'un texte
    '''String : représente le texte à afficher
    Private Sub UpdateBitmap(ByVal texte As String)
        Dim g As Graphics = Graphics.FromImage(iconBitmap)
        ' assigner la couleur de fond
        g.Clear(Color.White)
        ' dessiner le texte
        g.DrawString("Salut", Me.Font, New SolidBrush(Color.Black), 10, 10)
        ' liberer l'objet Graphics
        g.Dispose()
    End Sub

J'ai un problème sur cette ligne:

Dim newIcon As Icon = Drawing.Icon.FromHandle(iconBitmap.GetHicon())

[tomlev]

Quel problème exactement ? compilation ? exécution ? Il faut que iconBitmap soit déclaré dans ta classe, mais si tu n'es pas débutant tu dois déjà savoir ça...
De toutes façons, cet exemple ne résoudra sans doute pas ton problème : jusqu'à 2 ou 3 chiffres, ça ira (en écrivant petit...), mais au delà ça ne rentrera plus dans l'icone... tu ne peux afficher que des icones dans la zone de notification, et leur taille est limitée. Tu peux toujours mettre 3 icones, mais tu ne peux pas contrôler dans quel ordre elles apparaitront...
Par contre il doit être possible de faire une barre d'outils personnalisée qui s'intègre à la barre des tâches, mais je ne sais pas trop comment...

[mustang-ffw02]

Ok, merci de ta réponse. Le notifyicon n'est donc pas la solution...

Mais alors comment faire! L'exemple qeu j'ai posté plus haut vient du programme X'n stop pour éteindre le PC en différé.

personne ne sait faire ce genre de chose???

Merci à tous de votre participation

[Poulain]

L'exemple plus haut, c'est ça,
maintenant, puisque je crois que tu as le compte à rebour qui marche, tu enregistre la valeur dans une varriable string, et tu fais , en reprennant tout le code au desus, tu change juste:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Me.UpdateNotiFyIcon(tavaraiblestring)

[mustang-ffw02]

Tout marche sauf que l'icone est trop petite pour afficher le texte.
Dans une picture box ca marche mais pas dans une notifyicon.

Il y a un moyen d'augmenter la taille de l'icone?

[Poulain]

aucune idée

[omdafer]

Tu dois avoir une propriété pour redefinir la taille du TrayIcon (NotiFyIcon)

[mustang-ffw02]

Dans le trayicon?? J'ai chercher sur le notify mais ya rien....

[omdafer]

Tu as essayé de metrre une image de fond longue

[mustang-ffw02]

Voici mon code:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
    Dim MyBitMap As Bitmap = New Bitmap(250, 20)
    Dim msn As New XihSolutions.DotMSN.Messenger()
 
    Private Sub Timer_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer.Tick
 
        Dim Date_fin As Date
        Dim Jours_restants, Heures_restantes, Minutes_restantes, Secondes_restantes As Long
        Dim Heures_cumulées, Minutes_cumulées, Secondes_cumulées As Long
 
        Date_fin = "08/09/2007 06:00:00"
 
        Jours_restants = DateDiff(DateInterval.Day, Now(), Date_fin)
 
        Heures_cumulées = DateDiff(DateInterval.Hour, Now(), Date_fin)
        Heures_restantes = Heures_cumulées - Jours_restants * 24
 
        Minutes_cumulées = DateDiff(DateInterval.Minute, Now(), Date_fin)
        Minutes_restantes = Minutes_cumulées - Heures_cumulées * 60
 
        Secondes_cumulées = DateDiff(DateInterval.Second, Now(), Date_fin)
        Secondes_restantes = Secondes_cumulées - Minutes_cumulées * 60
 
        Me.Text = Jours_restants & " jours " & Heures_restantes & " heures " & Minutes_restantes & " minutes " & Secondes_restantes & " secondes"
 
        'Affichage Notify icon
        Call UpdateNotiFyIcon(lblTemps_restant.Text)
 
    End Sub
 
 
    Private Sub UpdateNotiFyIcon(ByVal texte As String)
        Dim newIcon As Icon = Drawing.Icon.FromHandle(MyBitMap.GetHicon)
        Call UpdateBitmap(texte)
        NotifyIcon1.Icon = newIcon
        newIcon.Dispose()
    End Sub
 
 
    Private Sub UpdateBitmap(ByVal texte As String)
        Dim g As Graphics = Graphics.FromImage(MyBitMap)
        Dim police = New System.Drawing.Font("Arial", 8)
        g.Clear(Color.White)
        g.DrawString(texte, police, New SolidBrush(Color.Black), 2, 2)
        PictureBox1.Image = MyBitMap
        g.Dispose()
    End Sub

L'image bitmap mesure 250 par 20 mais l'icone est carrée. Elle est "compressé" lorsque qu'elle s'affiche dans le traybar.

[Poulain]

je pense que les icones ne peuvent pas faire plus de 16*16