Discussion :

[sibama]

Bonjour,

Dans une application que je développe, le suis en train de créer une fonction de sauvegarde/restitution de l'environnement de travail (on sauvegarde l'état des formulaires en cours, on ferme l'appli, on la réouvre et si on restaure l'environnement toutes les fenêtres de la sauvegarde sont restituées dans l'état où elles étaient lors de la sauvegarde).

Je réussi à restituer les formulaires ouverts dans leur position et leur taille, mais ce n'est pas parfait comme je voudrais pour les fenêtres minimized/maximized lors de la sauvegarde.

Quand on a un form quelconque d'ouvert dans une appli, qu'on le maximized puis qu'on le minimized, sur quitter du minimized, il revient en maximized et sur quitter du maximized il revient à sa position et sa taille d'origine.

L'état actuel d'un form est dans le WindowState du form, mais où sont stockés les états N-1 et éventuellement N-2 du form qui permettent à vb.net de gérer le cycle de changements d'états décrits ci-avant?

Je ne sais pas si je suis super clair, mais merci d'avance de vos réponses.

[baloub]

Bonjour,

Regarde le mécanisme des API GetWindowPlacement et SetWindowPlacement.
https://www.codeproject.com/Articles...store-a-Window
https://www.pinvoke.net/default.aspx...indowplacement
https://docs.microsoft.com/en-us/win...indowplacement

[sibama]

Bonjour baloub,

tout d'abord merci pour ta réponse, mais j'avoue que c'est chaud:
- Après avoir planté mon appli suite à un problème de déclaration des références , j'ai réussi à mettre en place le GetWindowPlacement et le SetWindowPlacement.
- Ensuite j'ai mis ce bout de code dans la boucle qui parcoure les formulaires ouverts de mon appli lors de la sauvegarde:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
  Dim intRet As Integer
                Dim wpTemp As WindowPlacement
                wpTemp.Length = System.Runtime.InteropServices.Marshal.SizeOf(wpTemp)
                intRet = SafeNativeMethods.GetWindowPlacement(MonForm.Ecran.Handle.ToInt32, wpTemp)

le "MonForm.Ecran" est le pointeur que j'utilise dans le reste de la boucle pour pointer sur le formulaire en cours de sauvegarde:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
                ' Création de la Balise <PositionX></PositionX>
                XmlPositionX = MaSauvegarde.CreateElement("PositionX")
                XmlPositionX.InnerText = MonForm.Ecran.Location.X
                XmlFormulaire.AppendChild(XmlPositionX)
 
                ' Création de la Balise <PositionY></PositionY>
                XmlPositionY = MaSauvegarde.CreateElement("PositionY")
                XmlPositionY.InnerText = MonForm.Ecran.Location.Y
                XmlFormulaire.AppendChild(XmlPositionY)

Je pense donc que c'est lui qu'il faut que je passe comme argument à GetWindowPlacement.

Par contre il doit y avoir un problème car quel que soit l'état (minimized, maximized...) ou la position de MonForm.Ecran, j'ai toujours un retour de wpTemp constant où typiquement le formulaire est vu Normal qu'il soit minimized ou maximized ou normal.....

Il y a juste la minposition qui passe de -1/-1 à -32000/-32000 quand je minimize le formulaire (preuve que je doit quand même pointer sur le bon objet dans le passage de paramètres).

Si tu as un conseil, je suis preneur, sinon je crois que je vais revoir mes prétentions un peu à la baisse.

[sibama]

Triple buse que je suis, je viens de me rendre compte que j'ai placé mon bout de code de test juste après le moment où je forçais le retour de l'écran à sa taille normale pour mémoriser sa taille/position.

Baloud ne tiens pas compte de ma réponse précédente, je creuse car ça a bien l'air de donner le résultat attendu.

Je refais un post quand ça aura un peu avancé.

[baloub]

Ok, on verra.
Je te met quand même une routine que j'utilise pour déterminer l'état d'une fenêtre (en plus du normal, maximisé et minimisé, j'ai besoin de déterminer la visibilité, le full screen et le hors écran)
J'utilise deux autres api:
- IsWindowVisible pour la visibilité
- GetWindowRect pour les positions/dimensions
Dans la structure "WindowPlacement" je me sert surtout de "showCmd"

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
 
Public Class Saisie
   Public Declare Function GetWindowPlacement Lib "user32" (ByVal hwnd As IntPtr, ByRef lpwndpl As WINDOWPLACEMENT) As Integer
   Public Declare Function GetWindowRect Lib "user32.dll" (ByVal hWnd As IntPtr, ByRef lpRect As Rectangle) As Boolean
   Public Declare Function IsWindowVisible Lib "user32" (ByVal hWnd As IntPtr) As Boolean
   Public Structure WINDOWPLACEMENT
        Public Length As Integer
        Public flags As Integer
        Public showCmd As Integer
        Public ptMinPosition As Point
        Public ptMaxPosition As Point
        Public rcNormalPosition As Rectangle
   End Structure
 
   Private Function determine_etat_fenetre(ByVal hdle As IntPtr) As Integer
        ' 0 : fenêtre normale
        ' 1 : fenêtre maximisée
        ' 2 : fenêtre réduite
        ' 3 : fenêtre full screen
        ' 4 : fenêtre hors écran
        ' 5 : fenêtre invisible
        If Not IsWindowVisible(hdle) Then
            Return 5 'fenêtre invisible
        End If
        Dim wp As WINDOWPLACEMENT
        wp.Length = Marshal.SizeOf(wp)
        Dim result As Integer = GetWindowPlacement(hdle, wp)
        Dim rect As New Rectangle(0, 0, 1, 1)
        GetWindowRect(hdle, rect)
 
        Select Case wp.showCmd
            Case 1 ' fenêtre standard ou plein écran
                If rect.X = 0 And rect.Y = 0 And rect.Width >= (ecranW - 1) And rect.Width <= ecranW + 1 And rect.Height >= (ecranH - 1) And rect.Height <= ecranH + 1 Then
                    Return 3 'plein écran
                ElseIf wp.rcNormalPosition.Left > ecranW Or wp.rcNormalPosition.Right < 0 Or wp.rcNormalPosition.Top > ecranH Or wp.rcNormalPosition.Bottom < 0 Then
                    Return 4 ' fenêtre hors écran
                Else
                    Return 0 'fenêtre normale
                End If
            Case 2 ' réduit 
                Return 2
            Case 3 ' fenêtre au max ou plein écran
                If rect.X = 0 And rect.Y = 0 And rect.Width >= (ecranW - 1) And rect.Width <= ecranW + 1 And rect.Height >= (ecranH - 1) And rect.Height <= ecranH + 1 Then
                    Return 3
                Else
                    Return 1
                End If
            Case Else
                Return -1
        End Select
    End Function
End Class

[sibama]

Ca marche

C'est diabolique le GetWindowPlacement et le SetWindowPlacement, ça fait exactement ce que je voulais.

Merci beaucoup baloub