Redimensionnement de control

Télécharger le projet
Commenter

Description

Voila un bout de code tout bête mais bon je savais pas quoi faire cettre après midi.
Ca permet de redimensionner les controles en fonction du redimensionnement de la fenetre principale. Bon ca fonctione pas avec les controle ayant des propriété de taille en lecture seulement (ex : combobox)

Source / Exemple : 


'variable entiere permettant de conserver les tailles initials de la form
Public sglHeightInitForm As Single
Public sglWidthInitForm As Single

'on declare un type qui permettra de connaitre les tailles de tout les controle
Type ControlSize
    sglHeight As Single
    sglWidth As Single
    sglTop As Single
    sglLeft As Single
End Type

'on definit un tableau du type declarer
Public tabControlSize() As ControlSize
'boolean permettant de savoir si on traite le redimensionnement
Dim bolTraitementEncours As Boolean

Public Sub Initialisaton(ByRef frmForm As Form)
Dim objControl As Object
'on recupere les valeur initial de la form
sglHeightInitForm = frmForm.Height
sglWidthInitForm = frmForm.Width
'par defaut on traite le redimensionne
bolTraitefrmFormntEncours = False
'on redifrmFormnsionne le tableau
ReDim tabControlSize(0)
'on parcours l'ensemble de la collection control
For Each objControl In frmForm.Controls
    ReDim Preserve tabControlSize(UBound(tabControlSize) + 1)
    tabControlSize(UBound(tabControlSize)).sglHeight = objControl.Height
    tabControlSize(UBound(tabControlSize)).sglWidth = objControl.Width
    tabControlSize(UBound(tabControlSize)).sglTop = objControl.Top
    tabControlSize(UBound(tabControlSize)).sglLeft = objControl.Left
Next objControl
End Sub

Conclusion :


Bon au plaisir de vous revoir.
Télécharger le projet

Codes Sources

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (keke4483)