Discussion :

[ychalan]

Rebonjour à tous.

Alors vu que ce forum est très vivant et visité par des gens fort compétent, je vais de ce pas poser une 2ème question.

Je créé une appli avec diverses feuilles que j'affiche par défaut lors de leur chargement en taille maximale.

Mais lors que j'utilisateur veut réduire cette fenetre, aucune mise en forme automatique n'est généréé et mon écran est purement et simplement tronqué.

ma question est : comment faire en sorte que toutes mes commandes soient affichées lorsque l'utilisateur réduit la fenetre.

Yann, tout neuf en VB6

[bidou]

il faut écrire une fonction (qui peut être assez lourde) qui redimensionne tous les controles sur l'évènement resize de la fenêtre

[ychalan]

Merci bien.

Et moi qui pensait que celà se faisait tout seul

Bon ben faudra qu je m'y attele alors

Yann

[SpaceFrog]

C'est le principe du positionnement relatif
il faut agir sur chacun des top et left de chacun des objets de ta form puis sur le redim du form tu appelles une fonction redimcontrols()

avec un truc du genre

for each control in me.controls
...
next

Sachant que le positionnement se fait par rapport à me.width et me.height
tu pourras aussi bloquer une taille minimale de ta form qui correspond à la somme des hauteurs des objets sur une même verticale et la somme des largeurs sur une même ligne ...

[cafeine]

tu peux éventuellement utiliser la propriété tag de tes controles ...

sur l'événement Load de ton Formulaire
tu parcours tous les objets et stock leur width et heigth sous forme de chaine dans Tag (ex : "2600x1588")
et dans l'événement Resize
tu reparcours les objets et les redimensionne en fonction de leur propriété tag en règle de trois par rapport au tag du form.

Cette méthode est rapide mais a l'inconvénient de remplir la propriété tag.

[SpaceFrog]

Pas mal ton truc error404 !!!

en fait tu n'a même pas besoin de remplir les tags, tu fais une fonction qui le fait tout seul

for each control in me.controls, me.tag = (control.height ) &"x" & control.width
puis sur le redim

ControlSize = Split(Control.tag,"x")

donc control(0) = height
et control(1) = width

et à partir de là comme le dis error404 une regle de trois par rapport au form.height et form.width

Attention toutefois à gérer les tailles minimum de façon à ce que les labels ou autre captions soient lisibles ...

[cafeine]

j'ai retrouvé ce code qui n'est pas de moi et qui fonctionne selon le principe que j'avais énoncé ...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
Private Sub Form_Load()
On Error Resume Next
    Me.Tag = CStr(Me.Width) & ":" & CStr(Me.Height)
    For Each object In Me
        object.Tag = CStr(object.X1) & ":" & CStr(object.Y1) & ";" & CStr(object.X2) & "!" & CStr(object.Y2)
        object.Tag = CStr(object.Width) & ":" & CStr(object.Height) & ";" & CStr(object.Left) & "!" & CStr(object.Top)
    Next object
End Sub
 
Private Sub Form_Resize()
On Error Resume Next
    For Each object In Me
        'pour les graphiques
        object.X1 = Val(Mid(object.Tag, 1, InStr(object.Tag, ":") - 1)) * Me.Width / Val(Mid(Me.Tag, 1, InStr(Me.Tag, ":") - 1))
        object.Y1 = Val(Mid(object.Tag, InStr(object.Tag, ":") + 1, Len(object.Tag) - InStr(object.Tag, ":") + 1)) * Me.Height / Val(Mid(Me.Tag, InStr(Me.Tag, ":") + 1, Len(Me.Tag) - InStr(Me.Tag, ":") + 1))
        object.X2 = Val(Mid(object.Tag, InStr(object.Tag, ";") + 1, Len(object.Tag) - InStr(object.Tag, ";") + 1)) * Me.Width / Val(Mid(Me.Tag, 1, InStr(Me.Tag, ":") - 1))
        object.Y2 = Val(Mid(object.Tag, InStr(object.Tag, "!") + 1, Len(object.Tag) - InStr(object.Tag, "!") + 1)) * Me.Height / Val(Mid(Me.Tag, InStr(Me.Tag, ":") + 1, Len(Me.Tag) - InStr(Me.Tag, ":") + 1))
        'pour le reste
        object.Width = Val(Mid(object.Tag, 1, InStr(object.Tag, ":") - 1)) * Me.Width / Val(Mid(Me.Tag, 1, InStr(Me.Tag, ":") - 1))
        object.Height = Val(Mid(object.Tag, InStr(object.Tag, ":") + 1, Len(object.Tag) - InStr(object.Tag, ":") + 1)) * Me.Height / Val(Mid(Me.Tag, InStr(Me.Tag, ":") + 1, Len(Me.Tag) - InStr(Me.Tag, ":") + 1))
        object.Left = Val(Mid(object.Tag, InStr(object.Tag, ";") + 1, Len(object.Tag) - InStr(object.Tag, ";") + 1)) * Me.Width / Val(Mid(Me.Tag, 1, InStr(Me.Tag, ":") - 1))
        object.Top = Val(Mid(object.Tag, InStr(object.Tag, "!") + 1, Len(object.Tag) - InStr(object.Tag, "!") + 1)) * Me.Height / Val(Mid(Me.Tag, InStr(Me.Tag, ":") + 1, Len(Me.Tag) - InStr(Me.Tag, ":") + 1))
    Next object
End Sub

[ychalan]

Un GGGGGGGGIIIGGGAAANNNTTTEEESSSQQQUUUEEEEE merci à vous tous.

Yann (s'en va heureux comme un pinson )