Discussion :

[marcmarc150]

bonjour,
j'ai 3 ctltab
ctltab_1, ctltab_2, ctltab_3,
je les ai placés l'un sur l'autre pour ma facilité, mais j’aimerais bien avec un bouton vb , les déplacer dans le formulaire , un en dessous de l'autre et si reclic sur le bouton, ils se remettent l'un sur l'autre.
ils ont tous la mm dimension, logique
largeur :33,228cm
hauteur : 13,704cm
et placement sur le formulaire :
gauche : 0,212cm
haut : 2,302cm
Comment faire pour laisser le premier en place , le deuxième en dessous et le troisième en dessous du deuxième.

pouvez-vous m'aidez sur ce sujet.

Marcmarc

[madefemere]

Bonjour,

Pourquoi ne pas utiliser les propriétés Visible de tes contrôles :

Code :

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

1
2
3
Forms.TonFormulaire.ctltabX.Visible = True
...
Forms.TonFormulaire.ctltabX.Visible = False

Code :

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

1
2
3
Me.ctltabX.Visible = True
...
Me.ctltabX.Visible = False

suite à un évènement (du bouton) ou d'autres choses du formulaire??

Bonne continuation.

[ClaudeLELOUP]

Bonjour,


Pour trouver par toi-même, procède comme ceci.

Dans les proprétés de ton contrôle, tu cliques "haut" et tu enfonces F1 : l'aide te donne le nom en anglais. Tu dois exprimer en Twips.

Ton code va ressembler à ceci :

Code :

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

1
2
3
Private Sub NomDuBouton_Click()
Me.NomDuBouton.Top = 1000
End Sub

[marcmarc150]

rebonjour,
cela est déjà fait pour avoir le ctltab a affiché suivant la demande
j'aimerais justement les affichés tous les trois un en-dessous de l'autre avec ce nouveau bouton.
car actuellement, je l'ai fait un par un, mais ne trouve pas en vb , la manière de les affiché un en dessous de l'autre.

merci

marcmarc

[madefemere]

Re-Bonjour,

J'ai compris ce que tu veux faire, mais combien de possibilités as-tu dans la disposition de tes contrôles??

Un simple bouton de commande est je pense insuffisant. Car tu appuies et comment savoir dans quelle disposition sont-ils?? Une case à cocher pourrait aller si tu n'as que 2 dispositions.

Si tu prévois plus de dispositions, il faudrait passer par un groupe d'option.

Dans les 2 cas, tu utiliseras l'évènement AprèsMAJ de ta case ou groupe d'option.

Et avec un SELECT CASE ou un IF avec la case à cocher, tu détermines les positions hautes de tes contrôles ctltab_1, ctltab_2 et ctltab_3 comme indiqué par Claude.
Il ne faudrait pas oublier d'initialiser ces positions à l'ouverture du formulaire.

Pseudo-code

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Private sub CaseACocher_AfterUpdate()
     SELECT CASE CaseACocher
          CASE -1
                me.ctltab_1.top = ....
                me.ctltab_2.top = ....
                me.ctltab_3.top = ....
          CASE 0
                me.ctltab_1.top = ....
                me.ctltab_2.top = ....
                me.ctltab_3.top = ....
     END SELECT
end sub

A toi d'adapter et de calculer combien en twips font tes hauteurs.

Bonne continuation.

[ClaudeLELOUP]

Tu peux aussi procéder comme ceci (cela élimine le problème des twips) :


Pour les empiler :

Code :

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

1
2
3
4
Private Sub BtEnPile_Click()
Me.ctltab_2.Top = Me.ctltab_1.Top
Me.ctltab_3.Top = Me.ctltab_1.Top
End Sub

N.B. Précise le bouton que tu veux voir au-dessus de la pile : sélectionne le bouton, Format/Mettre à l'avant-plan.

Pour les afficher l'un en dessous de l'autre :

Code :

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

1
2
3
4
Private Sub BtEtales_Click()
Me.ctltab_2.Top = Me.ctltab_1.Top + Me.ctltab_1.Height
Me.ctltab_3.Top = Me.ctltab_2.Top + Me.ctltab_2.Height
End Sub

[marcmarc150]

merci de l'aide,
je viens d'essayer les suggestions,
mais avec
Private Sub BtEtales_Click()
Me.ctltab_2.Top = Me.ctltab_1.Top + Me.ctltab_1.Height
Me.ctltab_3.Top = Me.ctltab_2.Top + Me.ctltab_2.Height
End Sub

les 3 ctltab, ne se mettent pas l'un en dessous de l'autre, mais se chevauchent quand même, sur le dessus.

je suppose que je fais une mauvaise manipulation ?

Marcmarc

[sandrine]

Ajoute une marge pour pas qu'ils soient coller

Code :

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

1
2
3
4
Private Sub BtEtales_Click()
Me.ctltab_2.Top = Me.ctltab_1.Top + Me.ctltab_1.Height + 20
Me.ctltab_3.Top = Me.ctltab_2.Top + Me.ctltab_2.Height + 20
End Sub

A toi de voir quelle marge tu as besoin exactement

[marcmarc150]

merci
ok j'essaye

Merci