[Résolu] [Calc] Liste déroulante déroulée dans un dialogue

[TheHache]

Bonjour,

Est-il possible d'afficher, dans un dialogue, une liste déroulante déroulée après l'avoir initialiser ?

Je ne trouve pas a propriété dans Avec Xray, peut-être n’existe-t-elle pas !

Ci joint un fichier pour illustrer mon propos.

A l'issue du choix d'un des boutons option, la liste déroulante s'initialise avec les valeurs respectives. Je voudrais, après l'initialisation, que la liste se déroule toute seule sans avoir à cliquer sur la petite flèche.

Une idée ?

@+

[OOotremer971]

Bonjour à tous

Je doute fort que ma réponse satisfasse exactement ta demande car je crois comprendre que tu souhaites que la liste se déroule toute seule. Ma proposition consiste à définir la propriété "Déroulante" du contrôle à "Non" et de lui donner une hauteur fixe comme sur la capture d'écran qui suit :

TheHache.png

mais en cherchant un peu comment activer le déroulage de la liste, j'ai trouvé qu'avec la méthode "setPosSize" du dialogue il était possible de définir la position mais aussi la hauteur.

Code : Tout sélectionner

X = Long = Position horizontale du coin haut-gauche.
Y = Long = Position verticale du coin haut-gauche.
Width = Long = Largeur.
Height = Long = Hauteur.

Un morceau de code extrait du zip des macros de "La bible"

Code : Tout sélectionner

Option Explicit
Sub positionnerDialogue()
Dim dlg As Object, X As Long, Y As Long, p As Object
dlg = CreerDialogue("DialDial", "Dialog1")
Do While dlg.execute = com.sun.star.ui.dialogs.ExecutableDialogResults.OK
X = dlg.getControl("Position X").Value
Y = dlg.getControl("Position Y").Value
dlg.setPosSize(X, Y, 0, 0, com.sun.star.awt.PosSize.POS)
Loop
dlg.dispose
End Sub

à partir de là si tu définis la valeur de "Height" en fonction du nombre de ligne de ta liste, tu auras l'impression que la liste se déroule seule à la bonne hauteur.

Là j'ai pas le temps développer mais l'idée est là.

A+

Ajout : La macro en question est : Code11-04.odt bibli : DialDial Module1 et les pages du bouquin concernées sont à partir de la 646ème

[bm92]

Bonsoir,
Le principe a été exposé par le japonais hanya sur des forums anglais, que j'ai mis pas mal de temps à retrouver.

Code : Tout sélectionner

Liste.AccessibleContext.doAccessibleAction(0) ' basculer le déroulage de la liste

Pour fouiner un peu :
interface XAccessibleAction
[Résolu][Basic] Double clic sur liste + simuler clic sur OK (le forum cité http://www.oooforum.org est mort)
How to "click" on a FileControl element?
[Issue] getAccessibleContext().doAccessibleAction(0) (l'Issue en question est résolue sur AOO 4.1.1)

[TheHache]

Bonsoir,

Merci OOotremer971 pour ta participation.

Grand merci bm92, tu es le roi.

A bientôt