Discussion :

[riri2938]

Bonjour sous access 2000 est-il possible de connaître la position d'un contrôle situé dans un formulaire en mode continu après avoir effectué une action sur la scroll bar verticale.
i.e. : Un controle est positionné en haut d'un formulaire affiché en plein écran.
Le code Octrl.top est égal à 0
Si j'actionne la scroll bar verticale je ne suis plus censé voir mon contrôle mais si j'interroge la position de celui via le code Octrl.top, la réponse invariablement sera toujours la même alors que sa position par rapport à la fenêtre d'évolution est différente (la réponse devrait en réalité être << 0 - hauteur du défilement réalisé par l'action sur la scroll bar verticale
Quelqu'un aurait-il une idée

[loufab]

Bonjour,

Il s'agit de la position du controle par rapport à la zone détail. Ton controle est collé en haut de la zone détail, il indique 0 ce qui est le fonctionnement normal.

Que cherche-tu à faire fonctionnellement ?

[riri2938]

En fait je déplace mon contrôle avec la souris, mais le formulaire étant plus haut que la taille de l'écran, je suis obligé de le faire en trois temps :
- 1er temps : déplacement de mon contrôle vers le bas de l'écran (et non du formualire)
- 2ème temps : action sur la scroll bar vertical pour aller vers la fin du formulaire
- 3éme temps : reprise de mon contrôle pour continuer le déplacement
C'est ce 3ème temps qui ne fonctionne pas, car la sélection du dit contrôle se fait par reconnaissance de la position du curseur sur le contrôle mais là, la comparaison n'est plus la bonne car la position du curseur de la souris sur l'écran n'est plus comparable avec la position du contrôle de par sa position qui reste relative au formulaire et non à l'objet screen
J'espére que mes explications sont claires
Merci de ton aide

[riri2938]

Pourrais t'on par exemple imaginer récupérer la valeur de déplacement effectuée par action sur la barre de défilement vertical ?

[riri2938]

Finalement j'ai réussi en utilisant les propriétés ScreenHeight,
me.Section(AcDetail).Height et me.InsideHeight.
J'ai créé un contrôle à qui je fournis le focus et déplace à la position équivalente au résultat de la valeur de retournée par
me.Section(AcDetail).Height dès lors que le contrôle que je déplace se trouve à une position supérieur ou égale à Me.InsideHeight.
Je lui transmet le focus et effectue un refresh (DoCmd.Repaint) de l'écran puis j'indique à ma souris qu'il faut désormais ajouter à sa position verticale la différence entre la taille de l'écran (ScreenHeight) et la position du contrôle ayant le focus (pas celui que je déplace donc).
Et miracle cela fonctionne parfaitement