Discussion :

[niavlys77]

Bonjour,

Voilà mon problème. Je suis en train de designer un état et je souhaiterai que tous les controles d'une même ligne soient de la même hauteur que le + grand des contrôles de la ligne (tous les contrôles sont auto-extensibles selon le volume de données qu'ils contiennent). J'ai bien essayé la propriété "auto-extensible" et "auto-réductible" mais ceux-ci raisonnent individuellement ce qui me fait des lignes de données pas belle avec des contrôles d'un peu toutes les tailles alors que je souhaiterai qu'ils aient tous la même taille.

Je ne sais pas si je suis clair mais je vous remercie par avance de vos éclaircissements.

[stigma]

Essaye toncontrole.Top = x par exemple (VBA)

[niavlys77]

Je ne vois pas en quoi la propriété "top" pourrait m'aider dans la emsure où c'est moi qui doit en fixer la valeur. Le but est que toute la ligne de contrôles soit automatiquement adaptée à la hauteur du plus grand contrôle de la ligne...

[Invité]

Bonjour

Je penses qu'il faudrait faire une boucle sur les contrôles qui sont à la même hauteur, stocker la plus grande valeur de hauteur, et ensuit la réaffecter à la hauteur de toute.

Désolé, je n'ai pas Access sur ce poste, mais je pense que l'idée est bonne.

Starec

[marot_r]

Oui, tu dois pouvoir le faire sur l'événement On format. Un truc du genre :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
dim c as control
dim hMax as long:hMax=0
for each c in me.section(acDetail)
  if c.height>hmax then
    hMax=c.height
  end if
next c
 
for each c in me.section(acDetail)
  c.height=hMax then
next c

[niavlys77]

Bonjour,

Merci pour le code mais il y a des erreurs notamment sur la définition de la variable "c". J'ai remplacé

Code :

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

Dim C as Control

par

Code :

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

Dim c as textbox

afin que la propriété

Code :

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

c.height

soit prise en compte. Malgré cela j'ai une erreur "Propriété ou méthode non gérée par cet objet" qui apparaît sur la ligne

Code :

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

For Each c In Me.Section(acDetail)

. N'étant pas coutumier de l'utilisation de variable de type "textbox" ou "control", que puis je faire pour arranger ça ?

merci de vos réponses.

[marot_r]

J'ai utilisé Control car ton état doit comporter autre chose que des textboxs. (Une 'textBox' est un type de 'control' particulier).

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
 
dim c as control
dim hMax as long:hMax=0
for each c in me.section(acDetail).controls
 
  select case c.controltype
    case acTextBox
       if c.height>hmax then
         hMax=c.height
       end if
 
    case else
       'Ne rien faire
 
  end select
 
next c
 
for each c in me.section(acDetail).controls
  if c.controltype=acTextbox then c.height=hMax
next c