REDIMENSIONNER UN FOND D'ECRAN DE FORM MDI
XGuarden
Messages postés
259
Date d'inscription
dimanche 14 juillet 2002
Statut
Membre
Dernière intervention
17 août 2012
-
19 juil. 2002 à 09:40
sebastien2003 Messages postés 1 Date d'inscription mardi 22 juillet 2003 Statut Membre Dernière intervention 17 septembre 2007 - 17 sept. 2007 à 11:28
sebastien2003 Messages postés 1 Date d'inscription mardi 22 juillet 2003 Statut Membre Dernière intervention 17 septembre 2007 - 17 sept. 2007 à 11:28
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/4075-redimensionner-un-fond-d-ecran-de-form-mdi
https://codes-sources.commentcamarche.net/source/4075-redimensionner-un-fond-d-ecran-de-form-mdi
17 sept. 2007 à 11:28
20 juil. 2002 à 11:15
19 juil. 2002 à 09:50
En exclusivité, voici mon code pour redimmentionner proportionnellement tous les objets d'une form quand on change sa taille :
'Code de Florent.
'Si vous ajoutez ce code dans un de vos programmes, citez-moi.
Option Explicit
Dim OldWidth As Integer
Dim OldHeight As Integer
Private Sub Form_Load()
OldWidth = Width
OldHeight = Height
End Sub
Private Sub Form_Resize()
On Error Resume Next
Dim XCoeff As Single
Dim YCoeff As Single
Dim Controle As Control
XCoeff = Width / OldWidth
YCoeff = Height / OldHeight
For Each Controle In Me
Controle.Move Controle.Left * XCoeff, Controle.Top * YCoeff, Controle.Width * XCoeff, Controle.Height
* YCoeff
Next
OldWidth = Width
OldHeight = Height
End Sub
19 juil. 2002 à 09:43
19 juil. 2002 à 09:40