DIMENSION DE L'INTÉRIEUR D'UNE FENÊTRE - RÉGLER LA TAILLE D'UNE FENÊTRE EN FONCT

Signaler
Messages postés
15
Date d'inscription
samedi 11 novembre 2000
Statut
Membre
Dernière intervention
3 mai 2007
-
Messages postés
17288
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
27 septembre 2021
-
Messages postés
17288
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
27 septembre 2021
70
oui, ByRef est bien le mode par défaut. Mais il vaut mieux le préciser néanmoins, ça ne coute pas grand chose.
Messages postés
15
Date d'inscription
samedi 11 novembre 2000
Statut
Membre
Dernière intervention
3 mai 2007

Renfield, quand je vois ton "ByRef F As Form" : si je ne spécifie pas ByRef ni ByVal (comme j'ai fait), ma Form est automatiquement passée par adresse, étant donnée que je fait une modification sur celle-ci, non ?
Messages postés
15
Date d'inscription
samedi 11 novembre 2000
Statut
Membre
Dernière intervention
3 mai 2007

Merci Gobillot featuring Renfield !

J'avais pas pensé à ça en effet !
Messages postés
17288
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
27 septembre 2021
70
très bonne remarque, Gobillot.
pour la forme :


Private Sub Set_Int_Dims(ByRef F As Form, ByVal TargetWidth As Single, ByVal TargetHeight As Single)
Dim BordureX As Single
Dim BordureY As Single
With F
If .WindowState = vbNormal Then 'si la fenetre n'est pas maximisée ou minimisée
'en faisant la différence entre les dimensions extérieures et intérieures
'de la form, j'obtiens la taille des bordures entourant ma form
BordureX = .Width - .ScaleX(.ScaleWidth, .ScaleMode, vbTwips)
BordureY = .Height - .ScaleY(.ScaleHeight, .ScaleMode, vbTwips)

'la taille extérieure de ma form doit donc etre égale à la dimension intérieure
'choisie + les bordures
TargetWidth = .ScaleX(TargetWidth, .ScaleMode, vbTwips)
TargetHeight = .ScaleY(TargetHeight, .ScaleMode, vbTwips)

.Move .Left, .Top, TargetWidth + BordureX, TargetHeight + BordureY
End If
End With
End Sub
Afficher les 8 commentaires