Laurent Godard a écrit :
Bonjour Christian,
Désolé, reponse rapide
...
As tu essayé
oButton.model.label = "Toto"
oButton.label = "Tutu"
voir le chapitre 16 page493 (V1)
Laurent
Bonjour Laurent,
Ah, qu'est-ce que c'est simple quand on sait ;-)
Il me semblait pourtant avoir déjà essayé, mais
Bonjour Christian,
Désolé, reponse rapide
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.la
Feanor a écrit :
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
oButto
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.Get
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"
Bonjour à tous,
Je cherche à faire des boutons dans un formulaire. L'idéal, enfin ce que
j'aurais aimé faire serait :
CommandButton(1)
CommandButton(2)
etc,...
mais ça marche pas, dommage.
François Gatto m'a donné un coup de main avec cette macro :
Sub theNiceButton
oDlg = DialogLibraries.