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
The subscription(s) have been marked inactive and must be reinitialized
status bar in MFC
Two Terminal Services (win 2003 server) questions.
Run application in safe mode (run key doesnot work?)
VBA Macro to edit .bat file
Terminal Server 2008 TSWEB Opening more than one App
Access SQL DatePart or different method do display date range as month only
see how tables are linked in database diagram
SSL Popup windows stop showing up as trusted sites
MOSS and XLSX