Icon Update

Message Topic Search Topic Options Post Reply Create New Topic Printable Version Translate Topic

   Hi,

we would like to indicate a running operation by changing the icon of a commandbar button (vb6 code):

.Actions(Men�ID1).IconId = ID_ActionIsRunning
Do
....   operation code..
Loop

.Actions(Men�ID1).IconId = ID_ActionIsOver

The problem is that the icon does not update even if we use .redrawbar but only if we add a "DoEvents" statement between icon assignment and loop. But we cannot use "DoEvents" here for other reasons.
Is there a solution for this?

Thank you
Andreas

Author	Message Topic Search Topic Options Post Reply Create New Topic Printable Version Translate Topic
User999 Members Profile Send Private Message Find Members Posts Add to Buddy List Groupie Joined: 06 September 2004 Status: Offline Points: 10	Post Options Post Reply Quote User999 Report Post Thanks(0) Quote Reply Topic: Icon Update Posted: 19 June 2007 at 9:52am
	Hi, we would like to indicate a running operation by changing the icon of a commandbar button (vb6 code): .Actions(Men�ID1).IconId = ID_ActionIsRunning Do .... operation code.. Loop .Actions(Men�ID1).IconId = ID_ActionIsOver The problem is that the icon does not update even if we use .redrawbar but only if we add a "DoEvents" statement between icon assignment and loop. But we cannot use "DoEvents" here for other reasons. Is there a solution for this? Thank you Andreas

apuhjee Members Profile Send Private Message Find Members Posts Add to Buddy List Senior Member Joined: 02 September 2005 Location: United States Status: Offline Points: 130	Post Options Post Reply Quote apuhjee Report Post Thanks(0) Quote Reply Posted: 19 June 2007 at 10:56am
	I ran into a similar problem the first time I tried writing "progress bar" code. The bar would sit at zero and then hit 100% once the running method had completed. The solution was to put the UI update code in a seperate thread by making Asynchronous method calls. That's in the .NET world. I'm not so sure you'll be so lucky with VB6. Here are two blog posts by Jeff Atwood related to the subject: http://www.codinghorror.com/blog/archives/000159.html http://www.codinghorror.com/blog/archives/000370.html Cheers ~ jp

User999 Members Profile Send Private Message Find Members Posts Add to Buddy List Groupie Joined: 06 September 2004 Status: Offline Points: 10	Post Options Post Reply Quote User999 Report Post Thanks(0) Quote Reply Posted: 20 June 2007 at 4:31am
	Thank you for the hint. The overhead would be to big for an asynchronous solution in this case. But we found that the WinAPI function UpdateWindow .FindControl(, Men�ID1).Parent.hwnd produces an immediate redraw of the parent commandbar. Hope that this is the solution.

free_user Members Profile Send Private Message Find Members Posts Add to Buddy List Groupie Joined: 08 March 2006 Status: Offline Points: 24	Post Options Post Reply Quote free_user Report Post Thanks(0) Quote Reply Posted: 20 June 2007 at 7:21am
	HI you can use Doevents command like this: .Actions(Men�ID1).IconId = ID_ActionIsRunning doevents '--------------- This line Do .... operation code.. Loop .Actions(Men�ID1).IconId = ID_ActionIsOver

User999 Members Profile Send Private Message Find Members Posts Add to Buddy List Groupie Joined: 06 September 2004 Status: Offline Points: 10	Post Options Post Reply Quote User999 Report Post Thanks(0) Quote Reply Posted: 20 June 2007 at 7:34am
	Hi, thanks, but doevents '--------------- This line is what we want to avoid (s.o.) because other operations could start with this line - and this shall not happen.

apuhjee Members Profile Send Private Message Find Members Posts Add to Buddy List Senior Member Joined: 02 September 2005 Location: United States Status: Offline Points: 130	Post Options Post Reply Quote apuhjee Report Post Thanks(0) Quote Reply Posted: 20 June 2007 at 11:12am
	Sounds like some architectural refactoring needs to occur