Redimensionnement de control

Soyez le premier à donner votre avis sur cette source.

Vue 4 879 fois - Téléchargée 478 fois

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