FORM/WINDOW RESIZE

Module WindowResizeV2
    Dim ArrayOfObject(0) As TableauWindowsResize
    Dim CORR As Single = 7.5
    Dim Compteur As Integer = 0

    Private Structure TableauWindowsResize
        Dim ObjectName As String
        Dim RatioTop As Single
        Dim RatioLeft As Single
        Dim RatioHeigth As Single
        Dim RatioWidth As Single
        Dim FontRatio As Single
        Dim Parent As String
        Dim FlagAvecBordure As Boolean
    End Structure

    Public Sub LoadArray_WindowResize(ByVal FormToTreat As Windows.Forms.Control)
        ' Fonction qui rempli le tableau avec tous les composants de la fenetre
        Dim Composant As Windows.Forms.Control

        'eviter de remplir le tableau 2 fois
        ReDim Preserve ArrayOfObject(Compteur)
        For Each Composant In FormToTreat.Controls  'WindowResize_V1.Form1
            If Not Composant.Name = "" Then         'Pour ne pas prendre l'intérieur d'un application MDI
                Compteur += 1
                ReDim Preserve ArrayOfObject(Compteur)
                ArrayOfObject(Compteur).ObjectName = Composant.Name
                ArrayOfObject(Compteur).RatioHeigth = CSng(Composant.Bounds.Height / Composant.Parent.ClientSize.Height)
                ArrayOfObject(Compteur).RatioWidth = CSng(Composant.Bounds.Width / Composant.Parent.ClientSize.Width)
                ArrayOfObject(Compteur).RatioTop = CSng(Composant.Bounds.Top / Composant.Parent.ClientSize.Height)
                ArrayOfObject(Compteur).RatioLeft = CSng(Composant.Bounds.Left / Composant.Parent.ClientSize.Width)
                ArrayOfObject(Compteur).Parent = Composant.Parent.Name
                Try
                    If Composant.Size.Height - Composant.Font.Size > 11 Then
                        ArrayOfObject(Compteur).FontRatio = CSng(Composant.Font.Size / (Composant.Height - CORR))
                        ArrayOfObject(Compteur).FlagAvecBordure = True
                    Else
                        ArrayOfObject(Compteur).FontRatio = CSng(Composant.Font.Size / Composant.Height)
                        ArrayOfObject(Compteur).FlagAvecBordure = False
                    End If
                Catch ex As Exception
                    ArrayOfObject(Compteur).FontRatio = -1
                End Try
                If Composant.HasChildren = True Then LoadArray_WindowResize(Composant)
            End If
        Next Composant
    End Sub

    Public Sub Set_WindowResize(ByVal FormToTreat As Windows.Forms.Control)
        Dim Compteur As Integer = 0
        Dim x, y, wi, he As Int32

        For Compteur = 1 To ArrayOfObject.Length - 1
            If FormToTreat.Name = ArrayOfObject(Compteur).Parent Then
                With FormToTreat.Controls(ArrayOfObject(Compteur).ObjectName)
                    he = CInt(ArrayOfObject(Compteur).RatioHeigth * .Parent.ClientSize.Height)
                    wi = CInt(ArrayOfObject(Compteur).RatioWidth * .Parent.ClientSize.Width)
                    y = CInt(ArrayOfObject(Compteur).RatioTop * .Parent.ClientSize.Height)
                    x = CInt(ArrayOfObject(Compteur).RatioLeft * .Parent.ClientSize.Width)
                    Try
                        If ArrayOfObject(Compteur).FlagAvecBordure = True Then
                            If Not ArrayOfObject(Compteur).FontRatio = -1 Then .Font = New Drawing.Font(.Font.FontFamily,_
                                                 CSng((he - CORR) * ArrayOfObject(Compteur).FontRatio))
                        Else
                            If Not ArrayOfObject(Compteur).FontRatio = -1 Then .Font = New Drawing.Font(.Font.FontFamily,_
                                                 CSng(he * ArrayOfObject(Compteur).FontRatio))
                        End If
                    Catch ES As Exception
                    End Try
                    .SetBounds(x, y, wi, he)
                    If .HasChildren Then Set_WindowResize(FormToTreat.Controls(ArrayOfObject(Compteur).ObjectName))
                End With
            End If
        Next Compteur

    End Sub

End Module

16 août 2007 21:45:58 :

Suppression d'une ligne de code que je me servait pour le debug et le correction des grandeurs des polices dans un textbox

05 septembre 2007 13:23:12 :

Modification de la fonction LoadArray_WindowResize(). J'ai trouvé un bug quand je travail avec une application MDI. Le centre de l'application devenait un object sans nom !!!. J'ai rajouté une ligne qui filtre cet object. Le centre ed l'application MDI s'agrandit quand même sur le reste du MainForm sans causé de problème