christianwtd a écrit :
christianwtd a écrit :
Je redonne la macro en espérant qu'elle passe mieux:
Sub theNiceButton
oDlg = DialogLibraries.Standard.Dialog1
oDlgControl = CreateUnoDialog( oDlg )
for i% = 1 to n ' n = nbre de boutons de la série à gérer
oButton = oDlgControl.GetControl( "CommandButton" & i% )
MsgBox oButton.model.label
next i%
End Sub
Bon surf,
Christian
Bonjour.
oButton = oDlgControl.GetControl( "CommandButton" & i% ) << donc les
boutons doivent êtres nommés "CommandButton1" puis 2 puis 3 ...
Donc si tu change les noms des boutons, d'une part faut que tu change
tout les noms pour qu'ils aient la même racine (cmdButton au lieu de
CommandButton par exemple) puis que tu modifie la ligne recopiée au
dessus pour que la nouvelle racine change aussi ("oButton =
oDlgControl.GetControl( "cmdButton" & i% )" pour coller a l'exemple)
En espérant avoir répondu à ta question :)
Baptiste
6 messages in org.openoffice.fr.progRe: [prog] Nommer des boutons
