[Résolu][Basic] Choisir Chiffres sur NumberField (Fenêtre)

[hamilton]

Bonsoir,
J'ai une Number Field sur une Fenêtre, je voudrai choisir les chiffres du Number Field avec une bouton. Je ne sais pas comment faire. J'ai besoin de votre aide.
Voici fragments du Code, plus importants.

Code : Tout sélectionner

[…....]
'oItemListener = createUnoListener("NumberBox_", "com.sun.star.awt.XItemListener")
    'NumericFieldCtrl.addItemListener(oItemListener)            'addTextListener(oItemListener)  
      
    ''oItemListener = createUnoListener("NumberBox_", "com.sun.star.awt.XEventListener")
    'NumericFieldCtrl.addEventListener(oItemListener)
    
   'oListener = createUnoListener("boutons_", "com.sun.star.awt.XActionListener")
   'NumericFieldCtrl.addActionListener(oListener)
       
     'oListener = createUnoListener("Focus_", "com.sun.star.awt.XFocusListener")    
    'NumericFieldCtrl.addFocusListener(oListener)
[…....]
Function MakeNumericField(oToolkit, oContWin,oLabel,nX,nY,nWidth,nHeight ,selection)
   NumericFieldModel = CreateUnoService("com.sun.star.awt.UnoControlNumericFieldModel")
   NumericFieldCtrl = CreateUnoService("com.sun.star.awt.UnoControlNumericField")
      
   NumericFieldCtrl.setModel(NumericFieldModel)
   NumericFieldCtrl.createPeer(oToolkit,oContWin)
   'NumericFieldModel.Label = oLabel
   'NumericFieldModel.Backgroundcolor=RGB(30,144,255)'rgb(255,255,255)'rgb(23,23,135')
   NumericFieldModel.DecimalAccuracy = 1
   NumericFieldModel.Spin = True
   NumericFieldModel.MouseWheelBehavior=2
   NumericFieldModel.Printable= True
   NumericFieldModel.ValueStep=1  
   NumericFieldModel.Border=1
   NumericFieldModel.BorderColor=1
   NumericFieldModel.Value = Selection
    
   NumericFieldCtrl.setPosSize(nX,nY,nWidth,nHeight,com.sun.star.awt.PosSize.POSSIZE) 
   MakeNumericField = NumericFieldCtrl
  
End Function

Sub Focus_FocusGained
Print "Gained"
End Sub

Sub Focus_FocusLost
Print "Lost"
End sub

sub Focus_disposing
end sub
''---------------------------------------------------------------------------
'RemoveListeners()
'NumericFieldCtrl.removeFocusListener(oListener) 
'oContWin.removeFocusListener(oListener) 
'oEv.Source.AccessibleContext.AccessibleParent.dispose
''---------------------------------------------------------------------------
Sub NumberBox_notifyEvent(event as com.sun.star.awt.EventObject)

lSelected = event.selected
s = "selection change to item # " + lSelected
if lSelected >=0 then s = s & ": " & event.source.items(lSelected)

   lSelected = event.selected
   If lSelected >=0 then Selection = event.source.items(lSelected)

msgBox(s)
 Selection = NumericFieldModel.Value
msgBox selection
End Sub

Sub NumberBox_disposing()
End Sub
 […....]

[Piaf]

Bonsoir
Pas tout compris
Regarde si l'exemple fait ce que tu voudrais obtenir

Numeric.png

A+

[hamilton]

Bonsoir,
Grand Merci Piaf . Je étais tout embrouillé.
Et avec deux Number Fields ?. Quelle est la procédure utilisée.

[Piaf]

Bonsoir
Je n'ai toujours pas compris l'utilité de la manip, à part l'exploration de l'API.
Après pour ce qui est des procédures, si je devais créer le même type de fichier, je ferais un peu différemment.

Numeric.png

Numeric1.png

A+

[hamilton]

Bonsoir,
Merci Piaf , Encore une fois.
Je me rappelé deux Number Field's, pas que j'ai deux fonctions numériques.