Microsoft
Software
Hardware
Network
Question : Center Form on Window when Maximized
I am trying to mimic a stand alone application by using a miximized pop-up form.
The only things on this form are a Tab Control (in Detail) and Button Control (Quit Button in Footer).
I want to maximise the pop-up form on the screen and center as aligned left looks silly.
Here is waht I have tried so far:
Controls:
Tab Control Name = TabCtl
Button Name = QuitButton
**************************
**********
**********
**
Private Sub Form_Load()
Dim intWidth As Integer
Dim intHeight As Integer
Dim intTabWidth As Integer
Dim strFormName As String
Dim intLeft As Integer
'Maximise window
DoCmd.Maximize
'Get current width parameters
intWidth = Me.WindowWidth
intTabWidth = Me.TabCtl.Width
'Get new left position
intLeft = ((intWidth - intTabWidth) / 2)
'Change width of form
Me.Width = Me.Width + intLeft
'Move Tab Control
Me.TabCtl.Move intLeft
End Sub
**************************
**********
**********
**
All this seems to do is extend the width of the Tab Control.
Can anyone tell me why this doesn't work and how I can achieve what I'm trying to do?
Thanks in advance.
Answer : Center Form on Window when Maximized
I tried your code on a very basic form containing a single tab control, and it appears to work as one would expect.
Random Solutions
Creating a Constant in VBA Which References a Range
reorderlist sort descending
Need help diagnosing Sharepoint hang.
Select distinct with binary
Modifying Conditional Formatting of Access Text Box on Continuous Form from VBA
Building a TreeView
How to combine VLOOKUP with SUMPRODUCT/SUMIF?
WS-Security and WSDL
HOW TO REMOVE ROUTING AND REMOTE ACCESS
How do I stop the wizard that prompts to setup IE8 for every user on a win3k Terminal server