Libre Office Basic Listbox
Bonjour,
Une macro Mdp qui affiche une boite de dialogue contenant une simple Lisbox (AOUB)avec 4 lettres A B C D (la lettre A est par défaut paramétré dans la listbox). Exécution d'une autre macro module1(dans onglet événements exécuter action de la listbox). La macro module1 affiche toujours le chiffre 0 (chiffre de l'item) malgré le choix des autres lettres autres que le A.Je n'arrive pas à comprendre ?
Code:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16
| Mdp
Dim oDialog1 as Object
Dim monDialogue As Object
DialogLibraries.LoadLibrary("Standard")
oDialog1 = CreateUnoDialog( DialogLibraries.Standard.Mdpdialog)
oDialog1.Execute()
oDialog1.Dispose()
End Sub
Module1
oDialog1 = CreateUnoDialog( DialogLibraries.Standard.Mdpdialog)
oDialog1Model = oDialog1.Model
ligne = oDialog1.getControl("AOUB").getSelectedItemPos()
msgbox ligne |