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