Sauvegarde des propriétés d'une fenêtre

Télécharger le projet
Commenter

Description

Ce code permet de sauvegarder plusieurs propriétés de la form lors de son déchargement.

L'utilisateur effectuera certaines modifications de convivialité (largeur, hauteur, position en X, position en Y).

Toutes ces modifications seront ensuite sauvegardée dans la base de registre...

Source / Exemple : 


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

' 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

Conclusion :


Si vous avez des améliorations, commentaires, etc...n'hésitez pas ;o)

Bonne programmation

A++
Télécharger le projet

Codes Sources

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (cs_Skyride)