Private Sub Form_Resize() If WindowState <> vbMinimized Then 'Placement dynamique des objet en fonction de la taille de la fenètre With pctgraph .Width = ScaleWidth - 2300 - .Left '- MargeDroite .Height = ScaleHeight - .Top '- MargeBasse End With With Chk_Tc .Left = ScaleWidth - 2230 .Top = 1450 End With With Lbl_Tc .Left = ScaleWidth - 1850 .Top = 1450 End With With Chk_Tin .Left = ScaleWidth - 2230 .Top = 1950 End With With lbl_Tin .Left = ScaleWidth - 1850 .Top = 1950 End With End sub
Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire
191 internautes nous ont dit merci ce mois-ci
Private Sub Form_Load() 'spécifier les dimensions Min & Max de la Form En mode COMPILE UNIQUEMENT SetFormMinMaxSize form1, 13095, 9600 End Sub
SetFormMinMaxSize Enregistrement, 16245, 11655