• Home
 · 
• Registry
 · 
• Store and restore window size and position in your applications with this simple procedure.

Store and restore window size and position in your applications with this simple procedure.

Store and restore window size and position in your applications with this simple procedure.

Rate Store and restore window size and position in your applications with this simple procedure.

• 1
• 2
• 3
• 4
• 5

(2(2 Vote))

'State properties to the registry and and apply them the next time your
'program is run.  Place this Sub in a code module in your project, and
'call it from anywhere in your program.

'1st argument, form to persist to or from registry
'2nd argument, True to save to registry, False to load from registry
'To use this Sub in your Forms, simply put
'RegFormDimensions Me, False in your Form.Load procedure, and
'RegFormDimensions Me, True in your Form.Unload procedure
Public Sub RegFormDimensions(ByVal frmF As Form, ByVal fVerifyAndSave As Boolean)
    Dim szRegEntry As String, szSetting As String
    Dim szKey As String
    
    Dim lWidth As Long, lHeight As Long, lTop As Long, lLeft As Long
    Dim lState As Long
    
    'registry entries will be made in
    'HKEY_CURRENT_USER\Software\VB and VBA Program Settings    'section of the registry, under the application's title
    
    With frmF
        szRegEntry = App.Title
        szSetting = "Settings"
        szKey = .Name
        
        If fVerifyAndSave Then  'Store to registry
            'Don't save to registry if window is minimized
            'This prevents the window from being loaded in a minimized state
            If .WindowState <> vbMinimized Then
                SaveSetting szRegEntry, szSetting, szKey & "W", .Width
                SaveSetting szRegEntry, szSetting, szKey & "H", .Height
                SaveSetting szRegEntry, szSetting, szKey & "X", .Left
                SaveSetting szRegEntry, szSetting, szKey & "Y", .Top
                SaveSetting szRegEntry, szSetting, szKey & "State", .WindowState
            End If
        Else                    'load from registry
            lWidth = CLng(GetSetting(szRegEntry, szSetting, szKey & "W", 0))
            lHeight = CLng(GetSetting(szRegEntry, szSetting, szKey & "H", 0))
            lLeft = CLng(GetSetting(szRegEntry, szSetting, szKey & "X", 0))
            lTop = CLng(GetSetting(szRegEntry, szSetting, szKey & "Y", 0))
            lState = CLng(GetSetting(szRegEntry, szSetting, szKey & "State", 0))
            
            'If all values are 0, no entries were found in the registry.
            'In this case, the form will simply retain the settings that
            'it already had
            If Not (lWidth = 0 And lHeight = 0 And lLeft = 0 And lTop = 0) Then
                .Move lLeft, lTop, lWidth, lHeight
            End If
            
            'Apply window state, unless window was minimized when closed
            If lState <> vbMinimized Then
                .WindowState = lState
            Else
                .Width = vbNormal
            End If
        End If
    End With
End Sub