cs_Florent
Messages postés53Date d'inscriptionjeudi 20 décembre 2001StatutMembreDernière intervention22 novembre 2005 19 juil. 2002 à 09:50
>Tu sait se qui serais cool??? Sa serais de trouer un truc qui permet de redimentionner proportionellement tout les objet dune form quand on la chage de taille
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
XGuarden
Messages postés259Date d'inscriptiondimanche 14 juillet 2002StatutMembreDernière intervention17 août 2012 19 juil. 2002 à 09:43
Au jsute sa chit surwindows XP pro.Sa doit etre jsute mal coder(escuse)ta peu etre oublier deffacer lensinne.Genre:sa desine mais derriere loriginal..
XGuarden
Messages postés259Date d'inscriptiondimanche 14 juillet 2002StatutMembreDernière intervention17 août 2012 19 juil. 2002 à 09:40
Tu sait se qui serais cool??? Sa serais de trouer un truc qui permet de redimentionner proportionellement tout les objet dune form quand on la chage de taille
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