userforms showing and hiding

**Laurin** · 12-20-2005, 01:19 PM

I have two userforms in my program. I set it up so that clicking on a command button on userform1 hides userform1 and shows userform2. Userform2 is set up in the same way such that clicking on a commandbutton will hide userform2 and show userform1.

the problem is that the userforms are not the same size. Userform2 is wide and short while userform1 is tall and skinny. And when I hide a userform and show the other userform (via the command buttons) you can still see the hidden userform behind the userform being shown. In other words the userforms are not really being hidden. I've set application.screenupdating to true thinking that might be the problem but it isn't.

Here is the code in userform1:

Private Sub CommandButton2_Click()
UserForm1.Hide
UserForm2.Show
End Sub

And the code in userform2:

Private Sub CommandButton2_Click()
UserForm2.Hide
UserForm1.Show
End Sub

Charlie · 12-20-2005, 01:50 PM

It worked ok for me, but I don't have any other controls or code to consider.
Are you updating a control on one of the forms or doing something that may
be keeping the form active? Try putting "DoEvents" in the button click
events.

Private Sub CommandButton2_Click()
UserForm1.Hide
UserForm2.Show
DoEvents
End Sub

"Laurin" wrote:

>
> I have two userforms in my program. I set it up so that clicking on a
> command button on userform1 hides userform1 and shows userform2.
> Userform2 is set up in the same way such that clicking on a
> commandbutton will hide userform2 and show userform1.
>
> the problem is that the userforms are not the same size. Userform2 is
> wide and short while userform1 is tall and skinny. And when I hide a
> userform and show the other userform (via the command buttons) you can
> still see the hidden userform behind the userform being shown. In
> other words the userforms are not really being hidden. I've set
> application.screenupdating to true thinking that might be the problem
> but it isn't.
>
> Here is the code in userform1:
>
>
> Code:
> --------------------
> Private Sub CommandButton2_Click()
> UserForm1.Hide
> UserForm2.Show
> End Sub
> --------------------
>
> And the code in userform2:
>
>
> Code:
> --------------------
> Private Sub CommandButton2_Click()
> UserForm2.Hide
> UserForm1.Show
> End Sub
> --------------------
>
>
> --
> Laurin
> ------------------------------------------------------------------------
> Laurin's Profile: http://www.excelforum.com/member.php...o&userid=26832
> View this thread: http://www.excelforum.com/showthread...hreadid=494931
>
>

**Laurin** · 12-20-2005, 01:54 PM

"DoEvents" worked perfectly. Thank you.

**Excelibur** · 12-20-2005, 01:56 PM

Originally Posted by Laurin

Here is the code in userform1:

Private Sub CommandButton2_Click()
UserForm1.Hide
UserForm2.Show
End Sub

And the code in userform2:

Private Sub CommandButton2_Click()
UserForm2.Hide
UserForm1.Show
End Sub

I don't see what you could be doing wrong... I tried with the exact same code, and it works. Afterwards, I tried this:
Here is the code in userform1:

Private Sub CommandButton2_Click()
Unload UserForm1 ''changed this line
UserForm2.Show
End Sub

And the code in userform2:

Private Sub CommandButton2_Click()
UserForm2.Hide
UserForm1.Show
End Sub

which also worked.
Maybe it's because you set the screenupdating to True at the wrong moment? Test it by commenting out the lines that say 'Screenupdating = False'.

Edit: ok, seems it's already solved...

Tom Ogilvy · 12-20-2005, 02:10 PM

Private Sub CommandButton2_Click()
UserForm1.Hide
UserForm2.Show
Application.ScreenUpdating = False
Application.ScreenUpdating = True
End Sub

Private Sub CommandButton2_Click()
UserForm2.Hide
UserForm1.Show
Application.ScreenUpdating = False
Application.ScreenUpdating = True
End Sub

--
Regards,
Tom Ogilvy

"Laurin" <Laurin.20cmjb_1135099203.6095@excelforum-nospam.com> wrote in
message news:Laurin.20cmjb_1135099203.6095@excelforum-nospam.com...
>
> I have two userforms in my program. I set it up so that clicking on a
> command button on userform1 hides userform1 and shows userform2.
> Userform2 is set up in the same way such that clicking on a
> commandbutton will hide userform2 and show userform1.
>
> the problem is that the userforms are not the same size. Userform2 is
> wide and short while userform1 is tall and skinny. And when I hide a
> userform and show the other userform (via the command buttons) you can
> still see the hidden userform behind the userform being shown. In
> other words the userforms are not really being hidden. I've set
> application.screenupdating to true thinking that might be the problem
> but it isn't.
>
> Here is the code in userform1:
>
>
> Code:
> --------------------
> Private Sub CommandButton2_Click()
> UserForm1.Hide
> UserForm2.Show
> End Sub
> --------------------
>
> And the code in userform2:
>
>
> Code:
> --------------------
> Private Sub CommandButton2_Click()
> UserForm2.Hide
> UserForm1.Show
> End Sub
> --------------------
>
>
> --
> Laurin
> ------------------------------------------------------------------------
> Laurin's Profile:
http://www.excelforum.com/member.php...o&userid=26832
> View this thread: http://www.excelforum.com/showthread...hreadid=494931
>