Bonjour,

Manuel NAUDIN a écrit :

Bien sûr, xray est un formidable outil. Encore faut-il s'avoir l'utiliser. Toutes les infos (propriétés, méthodes par exemple) ne sont pas applicables à l'objet en cours, même si elles sont présentées. A l'inverse, certaines semblent ne pas produire d'effets, alors qu'elles peuvent être disponibles et mises en oeuvre dans du code.

Voici un exemple concernant les listbox :

Sub TestListBox

'chargement de la librairie nécessaire aux traitements BasicLibraries.LoadLibrary( "Tools" ) 'définition de l'objet référant le dialogue oDialog1 = LoadDialog( "Standard", "Dialog1" ) 'définition du bouton OK comme test de sortie exitOK = com.sun.star.ui.dialogs.ExecutableDialogResults.OK 'définition de l'objet référant la listbox theListBox = oDialog1.GetControl( "ListBox1" ) 'définition éventuellement du 1er élément par défaut 'les éléments sont indicés de 0 à n theListBox.SelectItemPos( 0, True ) 'test du choix après validation sur le bouton OK If oDialog1.Execute() = exitOK Then numItem = theListBox.SelectedItemPos 'n° de l'item choixItem = theListBox.SelectedItem 'valeur de l'item leMessage = "N° item = " & numItem + 1 leMessage = leMessage & Chr( 13 ) leMessage = leMessage & "Texte item = " & choixItem MsgBox( leMessage ) End If 'décharge le dialogue (libère la ressource) oDialog1.Dispose

End Sub