Redimensionnement de control

Soyez le premier à donner votre avis sur cette source.

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

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.

Codes Sources

A voir également

Ajouter un commentaire

Commentaires

spy166
Messages postés
207
Date d'inscription
jeudi 21 novembre 2002
Statut
Membre
Dernière intervention
29 mars 2006
-
Mouai pas du meilleur effet...
Moi je dis : VB.NET Anchor powa !!
JulioDelphi
Messages postés
2226
Date d'inscription
dimanche 5 octobre 2003
Statut
Modérateur
Dernière intervention
18 novembre 2010
12 -
moi je dis : "ha bon c meme pas par defaut dans VB ? vive delphi ..."
spy166
Messages postés
207
Date d'inscription
jeudi 21 novembre 2002
Statut
Membre
Dernière intervention
29 mars 2006
-
Oui VB6 ça pue, delphi c'est bien mais bon j'aime pas trop les machins du genre (delphi, windev...) je sais plus le nom exact..
Scalpweb
Messages postés
1468
Date d'inscription
samedi 13 mars 2004
Statut
Membre
Dernière intervention
5 mai 2010
-
"vb6 ça pue" non mais ho ! Je ne laisserais pas dire ça.
spy166
Messages postés
207
Date d'inscription
jeudi 21 novembre 2002
Statut
Membre
Dernière intervention
29 mars 2006
-
Ben vb6 c'était bien à l'époque de 98 wala...

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.