begin process at 2012 05 27 07:26:57
  Trouver un code source :
 
dans
 
Accueil > 

Code

 > 

Trucs & Astuces

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

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


 Information sur la source

Note :
6 / 10 - par 1 personne
6,00 / 10

  • 1

  • 2

  • 3

  • 4

  • 5

  • 6

  • 7

  • 8

  • 9

  • 10
Catégorie :Trucs & Astuces Niveau :Débutant Date de création :02/07/2003 Date de mise à jour :02/07/2003 19:04:18 Vu / téléchargé :3 107 / 205

Auteur : Skyride

Ecrire un message privé
Commentaire sur cette source (1)
Ajouter un commentaire et/ou une note

 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

  • ------------------------------------------------------------------------------
  • ' 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
------------------------------------------------------------------------------

' 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++

 Fichier Zip

Les Membres Club peuvent télécharger directement un fichier contenu dans le zip sans télécharger le zip en entier !

Télécharger le zip


 Sources du même auteur

Source avec Zip Source avec une capture TREEVIEW AVEC BASE DE DONNÉES ACCESS
DÉFINITION DU MONITEUR

 Sources de la même categorie

Source avec Zip Source avec une capture OPTIONS PENDANT LE DÉBOGAGE par avictatum
Source avec Zip Source avec une capture Source .NET (Dotnet) TROUVER UN CONTROLE "ACTIF" DANS UN FORM par didierdeco91
Source avec Zip Source avec une capture RESISTANCES ÉQUIVALENTES par besqueut
Source avec Zip Source avec une capture Source .NET (Dotnet) JACALENDAR par raffika
Source avec Zip Source .NET (Dotnet) EXPORTER LES IMAGES DE WORD ET D' EXCEL par Le Pivert

Commentaires et avis

Commentaire de mythic_kruger le 10/07/2005 18:12:17

Une suggestion sur la variable "action" : vu qu'il n' y a que deux actions possibles, il faudrait passer cette variable en boolean plutôt qu'en string, question de mémoire d'application. Quand bien même il y eut plus de 2 options un integer aurait fait l' affaire à l'instar des constantes VB par exemple:
0 = vbNormal
1 = vbMaximized
2 = vbMinimized
Bon exemple de lecture/écriture dans le registre quand même.

 Ajouter un commentaire




Nos sponsors


Sondage...

CalendriCode

Mai 2012
LMMJVSD
 123456
78910111213
14151617181920
21222324252627
28293031   

Consulter la suite du CalendriCode

Photothèque

A découvrir



 
Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel (EBArtSoft), Merci à Vincent pour ses précieux conseils.
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés

Google Coop CodeS-SourceS Google Coop CodeS-SourceS
Temps d'éxécution de la page : 1,030 sec (4)

Nous contacter | Annoncer sur CodeS-SourceS | Mentions légales