begin process at 2008 07 21 00:43:00
1 213 538 membres
7 nouveaux aujourd'hui
14 167 membres club

Vous ne trouvez pas de réponse à votre problème ? Alors posez la question dans le forum.
Souvenez-vous qu'il n'y a jamais de question bête, mais rester dans l'ignorance parce que l'on n'ose pas poser une question, ça c'est une erreur !

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


Information sur la source

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é: 2 247 / 178

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

  • 1

  • 2

  • 3

  • 4

  • 5

  • 6

  • 7

  • 8

  • 9

  • 10

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++
Pour les "Membres Club", vous pouvez télécharger directement un fichier contenu dans le zip sans télécharger le zip en entier !

Télécharger le zip

  • signaler à un administrateur
    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

Pub



Appels d'offres

Dessins techniques
Budget : 60€
Animation Flash - Doma...
Budget : 370€
Application flash medi...
Budget : 1 000€

CalendriCode

Juillet 2008
LMMJVSD
 123456
78910111213
14151617181920
21222324252627
28293031   

VS Express FR Gratuit !

VS Express en français et 100% gratuit !

Boutique

Boutique de goodies CodeS-SourceS