Dock multiple UserForms?

[buvb10]

Hey all,

Here's my first post - just learned of mrexcel.com!

I have two UserForms with initialization events as follows:

UserForm1
Me.StartUpPosition = 0
Me.Top = 0
Me.Left = Application.Left + Application.Width - Me.Width

UserForm2
Me.StartUpPosition = 0
Me.Top = UserForm1.Height
Me.Left = Application.Left + Application.Width - Me.Width

From this, is there some way to "dock" or link the two forms such that if UserForm1 moves, UserForm2 will move with it?

Thanks everyone!

- Brian

 

[erik.van.geit]

Hi, Brian,

try this

Private Sub UserForm_Layout()
UserForm2.Left = Me.Left
UserForm2.Top = Me.Top
End Sub

or moving just to the left

UserForm2.Left = Me.Left + Me.Width

kind regards,
Erik

 

[buvb10]

Erik,

Thanks very much for your insight on this.

I made one modification to the Layout code below. This allows the two forms to stack one above the other and then move accordingly.

Private Sub UserForm_Initialize()
'Form startup position top right
Me.StartUpPosition = 0
Me.Top = 0
Me.Left = Application.Left + Application.Width - Me.Width - 5
End Sub

Private Sub UserForm_Layout()
UserForm2.Left = Me.Left
UserForm2.Top = Me.Top + Me.Height
End Sub


thanks!

- Brian

 

[erik.van.geit]

Brian,

you learned me something too: Application.Left ...

do you need this line ?
Me.Top = 0

for me it doesn't make a difference

kind regards,
Erik