Difference between revisions of "FR/Documentation/Composants et boite de dialogue"
SergeMoutou (Talk | contribs) m (→Ajouter une boîte de dialogue au compteur avec le Basic) |
SergeMoutou (Talk | contribs) m (→Ajouter une boîte de dialogue au compteur avec le Basic) |
||
Line 25: | Line 25: | ||
'oInspector = createUnoService("org.openoffice.InstanceInspector") | 'oInspector = createUnoService("org.openoffice.InstanceInspector") | ||
'oInspector.inspect(oSimpleComponent, "MyCounter") | 'oInspector.inspect(oSimpleComponent, "MyCounter") | ||
− | ' | + | 'XRay oSimpleComponent |
− | + | ||
oDialog=CreateUnoDialog(DialogLibraries.Standard.Dialog1) | oDialog=CreateUnoDialog(DialogLibraries.Standard.Dialog1) | ||
oDialog.Execute() | oDialog.Execute() |
Revision as of 11:30, 16 May 2009
Nous allons réaliser une boîte de dialogue pour faire fonctionner notre compteur. L'idée est d'utiliser l'environnement OOoBasic pour cela, car il est aisé d'y gérer des boîtes de dialogue. Comme on va le voir tout au long de ce chapitre, il existe plusieurs méthodes pour faire cela. La première solution que l'on se propose d'examiner consiste à ne rien changer du code C++ du composant mais à enrober ce code par duOOo Basic.
Ajouter une boîte de dialogue au compteur avec le Basic
Rappelons pour information que notre compteur dispose de quatre méthodes :
- increment
- decrement
- setCount
- getCount
On va donc chercher à réaliser une boîte de dialogue qui va proposer un bouton par méthode. Elle proposera d'autre part deux champs texte :
- un champ texte pour positionner une valeur dans le compteur (donc associé au bouton setCount)
- un champ texte pour afficher la valeur du compteur (donc associé au bouton getCount)
Pour se faire une idée de quoi il s'agit, voici une image de la boîte de dialogue
Pour faire fonctionner l'ensemble on peut tout simplement utiliser le code OOoBasic suivant :
REM ***** BASIC ***** Dim oSimpleComponent Dim oDialog Sub demonstrateSimpleComponent oSimpleComponent = CreateUnoService( "foo.Counter" ) 'oInspector = createUnoService("org.openoffice.InstanceInspector") 'oInspector.inspect(oSimpleComponent, "MyCounter") 'XRay oSimpleComponent oDialog=CreateUnoDialog(DialogLibraries.Standard.Dialog1) oDialog.Execute() oDialog.dispose() End Sub Sub increment oSimpleComponent.increment() End Sub Sub decrement oSimpleComponent.decrement() End Sub Sub getCount Dim oTextField oTextField = oDialog.getControl("TextField2") oTextField.setText( oSimpleComponent.getCount()) End Sub Sub setCount Dim oTextField oTextField = oDialog.getControl("TextField1") 'implicit conversion String to Integer oSimpleComponent.setCount(oTextField.getText()) End Sub