Selon [EMAIL PROTECTED]:
> Selon LE MOULEC Jacques <[EMAIL PROTECTED]>:
>
> > Bonjour,
> >
> > Je cherche les fonctionnalites pour creer un bouton macro en mode
> > programmation.
> >
> > J'ai trouve, en tatonnant + avec le livre OOo programmation (version 1)
> > les elements suivants :
> >
> > Sub bouton
> >
> > Dim Feuille as object, PageGraphique as object, TypeBouton as object
> > Dim button_model as object, monForm as object
> > Dim aPos as new com.sun.star.awt.Point
> > Dim aSize as new com.sun.star.awt.Size
> > dim unEvent as new com.sun.star.script.ScriptEventDescriptor
> >
> > Feuille = ThisComponent.Sheets.getByName("Feuille1")
> > PageGraphique = Feuille.getDrawPage()
> > TypeBouton =
> > ThisComponent.createInstance("com.sun.star.drawing.ControlShape")
> >
> > 'Position en 1/1000 de pouce => 1 pouce = 2540
> > aPos.X = 17500
> > aPos.Y = 500
> > TypeBouton.Position = aPos
> > 'Taille
> > aSize.Width = 6000
> > aSize.Height = 1600
> > TypeBouton.Size = aSize
> >
> > button_model =
> > ThisComponent.createInstance("com.sun.star.form.component.CommandButton")
> > button_model.Name = "PushButton"
> > button_model.Label = "Edition"
> > 'button_model.Tag = 16711935
> > button_model.FontHeight = 15 'taille police
> > button_model.FontName = "Arial" 'nom police
> >
> > 'button_model.Tag = RGB(0,0,0)
> > button_model.HelpText = "Mise à jour de la valeur du stock dans la fiche
> > principale"
> >
> > TypeBouton.Control = button_model
> > PageGraphique.add(TypeBouton)
> >
> > 'unEvent.ListenerType = "com.sun.star.awt.XMouseListener"
> > 'unEvent.EventMethod = "mouseReleased"
> > 'unEvent.ScriptType = "StarBasic"
> > 'unEvent.ScriptCode = "ArmOOor601.Module2.Test"
> >
> > 'monForm = PageGraphique.Forms.getByName( "Standard")
> > 'monForm.registerScriptEvent(monForm.Count - 1, unEvent)
> >
> > End Sub
> >
> > il me manque :
> > 1- affecter une couleur au bouton (qu'est-ce que button_model.Tag ?)
>
> button_model.backgroundcolor = rgb(255,128,255)
>
> le Tag correspond à la bulle d'aide qui s'affiche au passage de la souris sur
> le
> controle.
Désolé, la définition précédente s'applique au HelpText.
Le Tag n'étant qu'un élément d'information du contrôle.
>
> > 2- mettre la police du titre (Label) en gras
> button_model.FontWeight = 150
> > 3- ... et toutes autres informations utiles.
> >
> > Merci.
> >
>
> Francois Gatto
>
Francois
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
