Bonjour,
Manuel NAUDIN a écrit :
Je trouve que ces informations que je pense être importantes sont
biens cachées :(
peut être un petit coup de Xray (
http://fr.openoffice.org/Documentation/How-to/Basic/XrayTool50_fr.sxw
) pour accéder aux propriétés et procédures des objets.
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.
Bon courage et bonne journée.
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
François GATTO
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
