Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Développement Développement Visual Basic Re problème TIMER!!!

Re problème TIMER!!!

6 réponses
Avatar
fabrizio-r
Bonjour a tous,

j ai toujour un probl=E8me pour int=E9grer l heure avec=20
d=E9filement par seconde dans ma barre des t=E2ches de style=20
windows XP ( barre de gauche du panneau de config de=20
windows XP )

de ma proc=E9dure Timer1_Timer(), je ne parviens pas =E0=20
acc=E9der aux propri=E9t=E9s de la barre des t=E2ches (=20
vbalExplorerBarCtl2 )


private sub form_load()

Dim cBar As cExplorerBar
Dim cItem As cExplorerBarItem

With vbalExplorerBarCtl2
Set cBar =3D .Bars.Add(, "STATUS", "Status")
Set cItem =3D cBar.Items.Add(, "DATE", "Date : " &=20
Date)
cItem.ItemType =3D eItemText
cItem.Bold =3D True
cItem.SpacingAfter =3D 4
Set cItem =3D cBar.Items.Add(, "HOUR", "heure : " &=20
Time)
cItem.ItemType =3D eItemText
cItem.Bold =3D True
.Redraw =3D True

End With
End Sub

ceci m'affiche bien l heure mais just au moment ou=20
j'acc=E8de a la fonction du fait que je n ai pas de timer,=20
maintenant comment faire avec un timer????

Je vous remercie d'avance...

Fabrice.
Signaler un problème avec ce contenu

6 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
François Picalausa
Hello,

Je pense que la bonne question serait qui a déjà utilisé la vbAccelerator
Explorer Bar?
Je n'ai jamais utilisé ce contrôle mais je vais tenter de t'aider à trouver
une solution adéquate.

A priori, une méthode serait d'avoir deux cExplorerBarItem en privé pour
garder une référence en permanence aux élément.
Ca donnerait ceci:

Private cItemDate As cExplorerBarItem
Private cItemTime As cExplorerBarItem

form_load()
...
Set cItemDate = cBar.Items.Add(, "DATE", "Date : " & Date)
...
Set cItemTime = cBar.Items.Add(, "HOUR", "heure : " & Time)
End sub

Timer1_Timer()
cItemDate.Text = Date
cItemTime.Text = Time
End Sub

Maintenant, il n'est probablement pas nécéssaire de maintenir en mémoire ces
objets
On pourrait probablement faire:
(garder le code que tu as posté intact)

Timer1_Timer()
vbalExplorerBarCtl2.Bars("STATUS").Items("DATE").Text = Date
vbalExplorerBarCtl2.Bars("STATUS").Items("TIME").Text = Time
End Sub

Encore une fois, je n'ai jamais utilisé ce contrôle donc il se peut que cet
exemple ne fonctionne absolument pas.
--
François Picalausa (MVP VB)
http://faq.vb.free.fr --- http://msdn.microsoft.com
http://apisvb.europe.webmatrixhosting.net

"fabrizio-r" a écrit dans le message de
news:1848701c422b9$76048b80$
j ai toujour un problème pour intégrer l heure avec
défilement par seconde dans ma barre des tâches de style
windows XP ( barre de gauche du panneau de config de
windows XP )

de ma procédure Timer1_Timer(), je ne parviens pas à
accéder aux propriétés de la barre des tâches (
vbalExplorerBarCtl2 )


private sub form_load()

Dim cBar As cExplorerBar
Dim cItem As cExplorerBarItem

With vbalExplorerBarCtl2
Set cBar = .Bars.Add(, "STATUS", "Status")
Set cItem = cBar.Items.Add(, "DATE", "Date : " &
Date)
cItem.ItemType = eItemText
cItem.Bold = True
cItem.SpacingAfter = 4
Set cItem = cBar.Items.Add(, "HOUR", "heure : " &
Time)
cItem.ItemType = eItemText
cItem.Bold = True
.Redraw = True

End With
End Sub

ceci m'affiche bien l heure mais just au moment ou
j'accède a la fonction du fait que je n ai pas de timer,
maintenant comment faire avec un timer????


Avatar
fabrizio-r
Pour ce qui est de la première solution que tu as propsé,
lorsque je créé 2 items en privé VB me dit " invalid
attribute in sub or function "


Quant a la deuxieme solution qui tu as propsé, cela
compile bien mais comme tu sais cette barre s'ouvre et se
referme par un clic et l'heure se change seulement
lorsque je clique sur ce bouton.

fabrice.

-----Message d'origine-----
Hello,

Je pense que la bonne question serait qui a déjà utilisé


la vbAccelerator
Explorer Bar?
Je n'ai jamais utilisé ce contrôle mais je vais tenter


de t'aider à trouver
une solution adéquate.

A priori, une méthode serait d'avoir deux


cExplorerBarItem en privé pour
garder une référence en permanence aux élément.
Ca donnerait ceci:

Private cItemDate As cExplorerBarItem
Private cItemTime As cExplorerBarItem

form_load()
...
Set cItemDate = cBar.Items.Add(, "DATE", "Date : " &


Date)
...
Set cItemTime = cBar.Items.Add(, "HOUR", "heure : "


& Time)
End sub

Timer1_Timer()
cItemDate.Text = Date
cItemTime.Text = Time
End Sub

Maintenant, il n'est probablement pas nécéssaire de


maintenir en mémoire ces
objets
On pourrait probablement faire:
(garder le code que tu as posté intact)

Timer1_Timer()
vbalExplorerBarCtl2.Bars("STATUS").Items


("DATE").Text = Date
vbalExplorerBarCtl2.Bars("STATUS").Items


("TIME").Text = Time
End Sub

Encore une fois, je n'ai jamais utilisé ce contrôle donc


il se peut que cet
exemple ne fonctionne absolument pas.
--
François Picalausa (MVP VB)
http://faq.vb.free.fr --- http://msdn.microsoft.com
http://apisvb.europe.webmatrixhosting.net

"fabrizio-r" a écrit dans le


message de
news:1848701c422b9$76048b80$
j ai toujour un problème pour intégrer l heure avec
défilement par seconde dans ma barre des tâches de




style
windows XP ( barre de gauche du panneau de config de
windows XP )

de ma procédure Timer1_Timer(), je ne parviens pas à
accéder aux propriétés de la barre des tâches (
vbalExplorerBarCtl2 )


private sub form_load()

Dim cBar As cExplorerBar
Dim cItem As cExplorerBarItem

With vbalExplorerBarCtl2
Set cBar = .Bars.Add(, "STATUS", "Status")
Set cItem = cBar.Items.Add(, "DATE", "Date : " &
Date)
cItem.ItemType = eItemText
cItem.Bold = True
cItem.SpacingAfter = 4
Set cItem = cBar.Items.Add(, "HOUR", "heure : " &
Time)
cItem.ItemType = eItemText
cItem.Bold = True
.Redraw = True

End With
End Sub

ceci m'affiche bien l heure mais just au moment ou
j'accède a la fonction du fait que je n ai pas de




timer,
maintenant comment faire avec un timer????




.



Avatar
François Picalausa
Hello!

Peut-être qu'en initialisant l'explorer bar avec vbalExplorerBarCtl1.Redraw
= True ?

--
François Picalausa (MVP VB)
http://faq.vb.free.fr --- http://msdn.microsoft.com
http://apisvb.europe.webmatrixhosting.net

"fabrizio-r" a écrit dans le message de
news:1a02001c422c5$3a618db0$
Quant a la deuxieme solution qui tu as propsé, cela
compile bien mais comme tu sais cette barre s'ouvre et se
referme par un clic et l'heure se change seulement
lorsque je clique sur ce bouton.


Avatar
fabrizio-r
Non, même avec cela, ca fait toujours la même chose.

Fabrice.

-----Message d'origine-----
Hello!

Peut-être qu'en initialisant l'explorer bar avec


vbalExplorerBarCtl1.Redraw
= True ?

--
François Picalausa (MVP VB)
http://faq.vb.free.fr --- http://msdn.microsoft.com
http://apisvb.europe.webmatrixhosting.net

"fabrizio-r" a écrit dans le


message de
news:1a02001c422c5$3a618db0$
Quant a la deuxieme solution qui tu as propsé, cela
compile bien mais comme tu sais cette barre s'ouvre et




se
referme par un clic et l'heure se change seulement
lorsque je clique sur ce bouton.




.



Avatar
François Picalausa
Hello!

Vu le code, tu peux essayer dans le timer
Timer1_Timer
'Changements date/heure
vbalExplorerBarCtl1.Redraw = False
vbalExplorerBarCtl1.Redraw = True
End Sub

Ca devrait forcer un retraçage...

--
François Picalausa (MVP VB)
http://faq.vb.free.fr --- http://msdn.microsoft.com
http://apisvb.europe.webmatrixhosting.net

"fabrizio-r" a écrit dans le message de
news:1cceb01c422ca$db198f00$
Non, même avec cela, ca fait toujours la même chose.

Fabrice.

-----Message d'origine-----
Hello!

Peut-être qu'en initialisant l'explorer bar avec
vbalExplorerBarCtl1.Redraw = True ?

--
François Picalausa (MVP VB)
http://faq.vb.free.fr --- http://msdn.microsoft.com
http://apisvb.europe.webmatrixhosting.net

"fabrizio-r" a écrit dans le message de
news:1a02001c422c5$3a618db0$
Quant a la deuxieme solution qui tu as propsé, cela
compile bien mais comme tu sais cette barre s'ouvre et se
referme par un clic et l'heure se change seulement
lorsque je clique sur ce bouton.




.




Avatar
fabrizio-r
Voila, c'etait ca qu'il fallai faire, cela force
effectivement un retraçage et ca marche parfaitement
maintenant.

Je te remercie beaucoup pour ton aide.

Fabrice.

-----Message d'origine-----
Hello!

Vu le code, tu peux essayer dans le timer
Timer1_Timer
'Changements date/heure
vbalExplorerBarCtl1.Redraw = False
vbalExplorerBarCtl1.Redraw = True
End Sub

Ca devrait forcer un retraçage...

--
François Picalausa (MVP VB)
http://faq.vb.free.fr --- http://msdn.microsoft.com
http://apisvb.europe.webmatrixhosting.net

"fabrizio-r" a écrit dans le


message de
news:1cceb01c422ca$db198f00$
Non, même avec cela, ca fait toujours la même chose.

Fabrice.

-----Message d'origine-----
Hello!

Peut-être qu'en initialisant l'explorer bar avec
vbalExplorerBarCtl1.Redraw = True ?

--
François Picalausa (MVP VB)
http://faq.vb.free.fr --- http://msdn.microsoft.com
http://apisvb.europe.webmatrixhosting.net

"fabrizio-r" a écrit dans






le message de
news:1a02001c422c5$3a618db0$
Quant a la deuxieme solution qui tu as propsé, cela
compile bien mais comme tu sais cette barre s'ouvre








et se
referme par un clic et l'heure se change seulement
lorsque je clique sur ce bouton.




.






.