Pb Resize

Question

J'ai créé une procédure pour ajuster la taille et la siposition des controles suivant la taille du form... seulement, si ça marqhe quand je l'agrandis... quand je rétrécis, ça donne nimporte quoi!
voilà mon code (je récupère la taille du form de base dans le formload):
Public Sub Resize()
On Error Resume Next
Dim Resiz As Long
Dim ret As Double
For Each Control In Me
    If TypeOf Control Is CommandButton Or TypeOf Control Is TextBox Then
        Resiz = Me.Height / MeHeight
        Control.Top = Control.Top * Resiz
        Resiz = Me.Width / MeWidth
        Control.Left = Control.Left * Resiz
    Else
        Resiz = Me.Height / MeHeight
        Control.Height = Control.Height * Resiz
        Resiz = Me.Width / MeWidth
        Control.Width = Control.Width * Resiz
    End If
Next
End Sub

Si quelqu'un a vu l'erreur.... ou si vous avez une auter technique... merci de répondre.

yomm · Answer

je suis reparti de ton code et j'y ai mi une touche perso:

http://www.vbfrance.com/listeauteur2.aspx?val=4682

n'hésite pas à me contacter

Pb Resize

1 réponse

Discussions similaires