>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
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