SAUVEGARDE DES PROPRIÉTÉS D'UNE FENÊTRE

------------------------------------------------------------------------------

' Procédure permettant de sauvegarder les propriétés des forms une fois déchargées
Public Sub SettingWindows(action As String, frmForm As Form)
    ' Variables de travail
    Dim tabSetting
    Dim Setting As String       ' chaine de proriétés de la form
    
    Select Case action
        Case "load"
            ' On récupère les propriétés de la form
            Setting = GetSetting(App.EXEName, "SettingWindows", frmForm.Name, "0")
            
            If Setting <> "0" Then
                ' On split la chaîne setting
                tabSetting = Split(Setting, ",")
                
                ' Affectation des données aux propriétés de la page
                frmForm.Left = Val(tabSetting(0))
                frmForm.Top = Val(tabSetting(1))
                frmForm.Width = Val(tabSetting(2))
                frmForm.Height = Val(tabSetting(3))
            End If
                
        Case "unload"
            ' On sauvegarde les propriétés de la form : left, top, width, height
            
            ' setting aura le format suivant : left, top, width, height
            Setting = frmForm.Left & "," & frmForm.Top & "," & frmForm.Width & "," & frmForm.Height
            
            ' On sauvgarde les paramètres de la fenetre au déchargement de la form
            SaveSetting App.EXEName, "SettingWindows", frmForm.Name, Setting
    End Select
End Sub


------------------------------------------------------------------------------
Et l'appel s'effectue de cette manière :

Private Sub Form_Load()
    Call SettingWindows("load", Me)
End Sub

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
    Call SettingWindows("unload", Me)
End Sub
 

Télécharger le zip