LO 7.2.2 : la méthode setFocus semble avoir disparue pour les controles de formulaire

[reginacoco]

Bonjour,
Je me lance dans l’écriture d’une petite appli.
Je voudrai pouvoir gérer le déplacement du focus dans un formulaire à l’aide de macro Basic.
Voici un exemple

Blockquote

Sub New_Date(oEvt As Object )
Dim oForm As Object

oForm=oEvt.Source.Model.Parent

oForm.numEcr.Value=CDbl(Resultat_SQL(“SELECT MAX( ecrnum ) FROM Ecriture”))+1
oEvt.Source.Model.DefaultDate =oEvt.Source.Model.Date ’ pour fixer la date

oForm,lstCptnum,setFocus()

End Sub

Blockquote

J’obtiens évidemment une erreur méthode inconnue (confirmé par un contrôle avec xray)
Je ne sais pas comment contourner ce problème.
Merci pour votre aide

[reginacoco]

En réalité j’avais tout faux.
J’ai trouvé une solution peut être pas super fiable mais qui marche pour moi

Blockquote
Sub SetFocus (pEvent As Object , pControl As Object )
Dim oControl As Object
Dim oSelection As New com.sun.star.awt.Selection

On Error GoTo GestErreur
oControl = ThisComponent.CurrentController.getControl(pControl)

oControl.SetFocus

If oControl.Text <> “” Then
oSelection.Min = 0
oSelection.Max = len(oControl.Text)
oControl.setSelection(oSelection)
End If
Exit Sub

GestErreur:
Resume Next
End Sub

Blockquote