Close msgbox after making selection
in [Programming]
|
From: JLGWhiz on 31 Mar 2010 21:12 Peter, That's what I'm saying. I tried the code you provided. I tried it with and without Parentheses, with and without vbSystemModal and several types of buttons and in default mode. It stops all activity until a button is clicked and once the button is clicked, the dialog box disappears. I cannot reproduce the effect you describe. "Peter T" <peter_t(a)discussions> wrote in message news:eydnUgP0KHA.4168(a)TK2MSFTNGP02.phx.gbl... > Indeed it is normal behaviour for the code to be suspended until the > msgbox is dismissed. But are you saying with screenupdating disabled the > "image" of the msgbox completely disappears from the screen after clicking > OK. > > Regards, > Peter T > > "JLGWhiz" <JLGWhiz(a)cfl.rr.com> wrote in message > news:%2365QrUP0KHA.776(a)TK2MSFTNGP04.phx.gbl... >> Nope, As soon as I click the button, the shape dialog box disappears. I >> cannot get it to remain on screen after the button is clicked and cannot >> get any further code to process without clicking the button. I believe >> that is the designed performance. >> >> >> >> "Peter T" <peter_t(a)discussions> wrote in message >> news:OQswiOO0KHA.776(a)TK2MSFTNGP04.phx.gbl... >>> Try this >>> >>> Sub abc() >>> ' run with alt-F8 >>> Dim a >>> >>> 'Application.ScreenUpdating = False >>> >>> MsgBox ("Move me away from the centre of the screen") >>> >>> Application.ScreenUpdating = False >>> For i = 1 To 100 >>> a = 1 >>> Next i >>> MsgBox ("done") >>> Application.ScreenUpdating = True >>> End Sub >>> >>> Regards, >>> Peter T >>> >>> >>> "JLGWhiz" <JLGWhiz(a)cfl.rr.com> wrote in message >>> news:%23VbmlIO0KHA.4168(a)TK2MSFTNGP02.phx.gbl... >>>> Hi Peter, In the version of xl03 that I am running, the msgbox goes >>>> away, whether or not ScreenUpdating is enabled. Is it different in >>>> xl07 + ? >>>> >>>> >>>> "Peter T" <peter_t(a)discussions> wrote in message >>>> news:uhrGDvM0KHA.5512(a)TK2MSFTNGP06.phx.gbl... >>>>> What you describe cannot and occur. I very much doubt you actually >>>>> tested the code you posted as an example, at least not exactly as >>>>> written and with nothing else. >>>>> >>>>> My guess is you are showing the msgbox with screenupdating disabled. >>>>> The msgbox will stay on the screen indefinitely until the screen is >>>>> refreshed (even DoEvents) or by re-enabling screenupdating. >>>>> >>>>> Be sure to temporarily disable screenupdating if/as necessary when >>>>> showing a msgbox. >>>>> >>>>> Regards, >>>>> Peter T >>>>> >>>>> The only thing that >>>>> "John Keith" <kd0gd(a)juno.com> wrote in message >>>>> news:o3m5r5dpb4p28chv941hjmflecglohug0i(a)4ax.com... >>>>>> >Is this a message box that was created with a UserForm? >>>>>> >>>>>> No >>>>>> >>>>>>> The standard message box automatically closes when a button is >>>>>>> clicked. If it is the >>>>>>>standard message box and is not closing, there could be a software >>>>>>>problem >>>>>>>in your system. Is this in Excel, if so, what version. >>>>>> >>>>>> Excel 2007/WinXP >>>>>> >>>>>> The message box window stays open until the next msgbox command is >>>>>> executed. >>>>>> >>>>>> I also just tried the following >>>>>> >>>>>> msgbox("Test") >>>>>> for i =1 to 100000000 >>>>>> a=1 >>>>>> next i >>>>>> msgbox("done") >>>>>> >>>>>> The loop has not completed yet and the first message box is still >>>>>> open. >>>>>> >>>>>> >>>>>> >>>>>> >>>>>> >>>>>> John Keith >>>>>> kd0gd(a)juno.com >>>>> >>>>> >>>> >>>> >>> >>> >> >> > >
From: John Keith on 31 Mar 2010 23:37 On Wed, 31 Mar 2010 13:15:04 +0100, "Peter T" <peter_t(a)discussions> wrote: >What you describe cannot and occur. I very much doubt you actually tested >the code you posted as an example, at least not exactly as written and with >nothing else. > The maximum value of the for loop might not have been exactly what I used but I did test the code and the message box was still there when I went to bed and the loop was still merrily running. I just retested again with the maximum value of the for loop set to 1 billion and the "test" message box remained on the screen for 30 seconds (1.7 GHz) until the "done" message appeared. >My guess is you are showing the msgbox with screenupdating disabled. The >msgbox will stay on the screen indefinitely until the screen is refreshed >(even DoEvents) or by re-enabling screenupdating. > I did not include a screenupdating statement (either true or false, isn't the default true???) Thank you for your comments. Just as a further follow up I wanted to describe another aspect of the message box remaining on the screen, and that is if I try to move it I'll get multiple repaints of the box as I move it, it really fills the screen rapidly. John Keith kd0gd(a)juno.com
From: Peter T on 1 Apr 2010 03:20 Well how strange! Actually this issue crops up from time to time and AFAIK the cause is slays as I suggested, namely a msgbox can appear to remain on the screen after being dismissed if screen updating is disabled. I can easily recreate that effect, in all versions. Regards, Peter T "JLGWhiz" <JLGWhiz(a)cfl.rr.com> wrote in message news:u2yYnhT0KHA.3708(a)TK2MSFTNGP02.phx.gbl... > Peter, That's what I'm saying. I tried the code you provided. I tried it > with and without Parentheses, with and without vbSystemModal and several > types of buttons and in default mode. It stops all activity until a > button is clicked and once the button is clicked, the dialog box > disappears. I cannot reproduce the effect you describe. > > > "Peter T" <peter_t(a)discussions> wrote in message > news:eydnUgP0KHA.4168(a)TK2MSFTNGP02.phx.gbl... >> Indeed it is normal behaviour for the code to be suspended until the >> msgbox is dismissed. But are you saying with screenupdating disabled the >> "image" of the msgbox completely disappears from the screen after >> clicking OK. >> >> Regards, >> Peter T >> >> "JLGWhiz" <JLGWhiz(a)cfl.rr.com> wrote in message >> news:%2365QrUP0KHA.776(a)TK2MSFTNGP04.phx.gbl... >>> Nope, As soon as I click the button, the shape dialog box disappears. I >>> cannot get it to remain on screen after the button is clicked and cannot >>> get any further code to process without clicking the button. I believe >>> that is the designed performance. >>> >>> >>> >>> "Peter T" <peter_t(a)discussions> wrote in message >>> news:OQswiOO0KHA.776(a)TK2MSFTNGP04.phx.gbl... >>>> Try this >>>> >>>> Sub abc() >>>> ' run with alt-F8 >>>> Dim a >>>> >>>> 'Application.ScreenUpdating = False >>>> >>>> MsgBox ("Move me away from the centre of the screen") >>>> >>>> Application.ScreenUpdating = False >>>> For i = 1 To 100 >>>> a = 1 >>>> Next i >>>> MsgBox ("done") >>>> Application.ScreenUpdating = True >>>> End Sub >>>> >>>> Regards, >>>> Peter T >>>> >>>> >>>> "JLGWhiz" <JLGWhiz(a)cfl.rr.com> wrote in message >>>> news:%23VbmlIO0KHA.4168(a)TK2MSFTNGP02.phx.gbl... >>>>> Hi Peter, In the version of xl03 that I am running, the msgbox goes >>>>> away, whether or not ScreenUpdating is enabled. Is it different in >>>>> xl07 + ? >>>>> >>>>> >>>>> "Peter T" <peter_t(a)discussions> wrote in message >>>>> news:uhrGDvM0KHA.5512(a)TK2MSFTNGP06.phx.gbl... >>>>>> What you describe cannot and occur. I very much doubt you actually >>>>>> tested the code you posted as an example, at least not exactly as >>>>>> written and with nothing else. >>>>>> >>>>>> My guess is you are showing the msgbox with screenupdating disabled. >>>>>> The msgbox will stay on the screen indefinitely until the screen is >>>>>> refreshed (even DoEvents) or by re-enabling screenupdating. >>>>>> >>>>>> Be sure to temporarily disable screenupdating if/as necessary when >>>>>> showing a msgbox. >>>>>> >>>>>> Regards, >>>>>> Peter T >>>>>> >>>>>> The only thing that >>>>>> "John Keith" <kd0gd(a)juno.com> wrote in message >>>>>> news:o3m5r5dpb4p28chv941hjmflecglohug0i(a)4ax.com... >>>>>>> >Is this a message box that was created with a UserForm? >>>>>>> >>>>>>> No >>>>>>> >>>>>>>> The standard message box automatically closes when a button is >>>>>>>> clicked. If it is the >>>>>>>>standard message box and is not closing, there could be a software >>>>>>>>problem >>>>>>>>in your system. Is this in Excel, if so, what version. >>>>>>> >>>>>>> Excel 2007/WinXP >>>>>>> >>>>>>> The message box window stays open until the next msgbox command is >>>>>>> executed. >>>>>>> >>>>>>> I also just tried the following >>>>>>> >>>>>>> msgbox("Test") >>>>>>> for i =1 to 100000000 >>>>>>> a=1 >>>>>>> next i >>>>>>> msgbox("done") >>>>>>> >>>>>>> The loop has not completed yet and the first message box is still >>>>>>> open. >>>>>>> >>>>>>> >>>>>>> >>>>>>> >>>>>>> >>>>>>> John Keith >>>>>>> kd0gd(a)juno.com >>>>>> >>>>>> >>>>> >>>>> >>>> >>>> >>> >>> >> >> > >
From: Peter T on 1 Apr 2010 03:25 "John Keith" <kd0gd(a)juno.com> wrote in message > On Wed, 31 Mar 2010 13:15:04 +0100, "Peter T" <peter_t(a)discussions> > wrote: > >>What you describe cannot and occur. I very much doubt you actually tested >>the code you posted as an example, at least not exactly as written and >>with >>nothing else. >> > > The maximum value of the for loop might not have been exactly what I > used but I did test the code and the message box was still there when > I went to bed and the loop was still merrily running. > > I just retested again with the maximum value of the for loop set to 1 > billion and the "test" message box remained on the screen for 30 > seconds (1.7 GHz) until the "done" message appeared. > >>My guess is you are showing the msgbox with screenupdating disabled. The >>msgbox will stay on the screen indefinitely until the screen is refreshed >>(even DoEvents) or by re-enabling screenupdating. >> > I did not include a screenupdating statement (either true or false, > isn't the default true???) > > Thank you for your comments. > > Just as a further follow up I wanted to describe another aspect of the > message box remaining on the screen, and that is if I try to move it > I'll get multiple repaints of the box as I move it, it really fills > the screen rapidly. That perfectly describes the effect of showing a msgbox with screenupdating disabled. Include this line both just before and after showing the msgbox (the one that stays on the screen and repaints if you move it) Debug.Print Application.Screenupdating Open the Immediate window to view the result, ctrl-g Also try the code sample I included in a response to JLGWhiz, and uncomment the first screenupdating line. Regards, Peter T > > John Keith > kd0gd(a)juno.com
First
|
Prev
|
Pages: 1 2 3 Prev: Getting Sheet Name from the Code Name Next: Measure on the date different |