[Résolu][Basic]Supprimer bouton Plein écran Andropen Office

[PowaBanga]

bonjour à tous,
J'utilise LibreOffice depuis plus de dix ans, et donc ici avec l'avènement des smartphones, je me suis payé un clavier physique, en me disant que ça serait plus pratique que mon pc dont la batterie est morte.

La seule application crédible pour le moment en matière d'édition de document OpenOffice, c'est donc bien sûr andropenoffice. J'ai donc supprimé donc les boutons que je ne jugeais pas utile, et au final, même en faisant cela, je trouve que le full screen, c'est quand même top.

Seul hic : la barre d'outil fullscreen qui sert totalement à rien dans mon cas.

Alors, j'ai trouvé ces deux fil qui semblent être complémentaire :

https://forum.openoffice.org/fr/forum/v ... 15&start=0
https://forum.openoffice.org/fr/forum/s ... ml+doutils

ensuite j'ai été dans outil -> macro -> gérer les macro -> andro -> AndroOpen Office Basic...

ensuite j'ai ajouté ce code dans le module 1

Code : Tout sélectionner

option explicit
' private:resource/toolbar/fullscreenbar
Sub PysChargement
PysAfficher "private:resource/toolbar/fullscreenbar", false
End Sub
sub PysAfficher(PysNomBarre, PysVal)
dim oFrame as object, layout as object
oFrame = ThisComponent.CurrentController.Frame
layout = oFrame.LayoutManager
If PysVal Then
   layout.showElement(PysNomBarre)
Else
   layout.hideElement(PysNomBarre)
Endif
end sub

ensuite, si je fais exécuter la macro depuis Outils -> macro -> executer la macro
ça crashe,

et si je le fais via le bouton "executer le basic" depuis la fenêtre dédition de la macro, ca me met ce message d'erreur :
Erreur de syntaxe du BASIC. Sub non autorisé dans une procédure

et quand je relis mon code, j'ai ceci :

Code : Tout sélectionner

option explicit
' private:resource/toolbar/fullscreenbar
Sub PysChargement
PysAfficher "private:resource/toolbar/fullscreenbar", false
End Sub
sub PysAfficher(PysNomBarre, PysVal)
dim oFrame as object, layout as object
oFrame = ThisComponent.CurrentController.Frame
layout = oFrame.LayoutManager
If PysVal Then
   layout.showElement(PysNomBarre)
Else
   layout.hideElement(PysNomBarre)
Endif
end suboption explicit
' private:resource/toolbar/fullscreenbar
Sub PysChargement
PysAfficher "private:resource/toolbar/fullscreenbar", false
End Sub
sub PysAfficher(PysNomBarre, PysVal)
dim oFrame as object, layout as object
oFrame = ThisComponent.CurrentController.Frame
layout = oFrame.LayoutManager
If PysVal Then
   layout.showElement(PysNomBarre)
Else
   layout.hideElement(PysNomBarre)
Endif
end sub

Mon texte s'est dédoublé, expliquant le message d'erreur...
Donc voilà, c'est ma toute première macro, svp soyez sympa, je suis nouveau ^^

[MrPropre]

Bonjour,

Cette section a des règles très précises que vous devez obligatoirement suivre pour obtenir de l'aide. C'est indiqué dans le cadre rouge en haut de la page.

Il est demandé aux auteurs de faire précéder le titre de leur question d'une balise adéquate. Ce balisage est extrêmement important car il permet d'avoir une base de connaissance optimum en cas de recherche. Avez-vous remarqué comment étaient les autres questions postées ?

Lisez ce fil pour savoir quelle balise utiliser : http://forum.openoffice.org/fr/forum/su ... html#27295

Nous l'avons fait pour vous cette fois-ci mais lors de votre prochaine question, nous vous remercions de le faire vous-même sous peine de voir votre sujet verrouillé.

Merci de votre collaboration.

[PowaBanga]

^^ Merci Mr Propre

[Piaf]

Bonjour

Erreur de syntaxe du BASIC. Sub non autorisé dans une procédure

Code : Tout sélectionner

end suboption explicit

Un peu normal non ?
Un autre lien Re: [Basic] Gestion des barres d'outils

Code : Tout sélectionner

Sub Plein
Dim oFrame as object, oDispatch as object
Dim arg(0) as new com.sun.star.beans.PropertyValue
Dim oConf as object, sNomBarre as string
	oFrame   = ThisComponent.CurrentController.Frame
	oDispatch = createUnoService("com.sun.star.frame.DispatchHelper")
	arg(0).Name = "FullScreen"
	arg(0).Value = True
	oDispatch.executeDispatch(oFrame, ".uno:FullScreen", "", 0, arg())
	oConf = thisComponent.CurrentController.Frame.LayoutManager
	sNomBarre = "private:resource/toolbar/fullscreenbar"
	oConf.hideElement(sNomBarre)
End Sub

Sub Normal
Dim oFrame as object, oDispatch as object
Dim arg(0) as new com.sun.star.beans.PropertyValue
	oFrame   = ThisComponent.CurrentController.Frame
	oDispatch = createUnoService("com.sun.star.frame.DispatchHelper")
	arg(0).Name = "FullScreen"
	arg(0).Value = False
	oDispatch.executeDispatch(oFrame, ".uno:FullScreen", "", 0, arg())
End Sub

Testé sur des boutons sur une feuille Calc.
A+

[luky-luke]

Bonjour

Un peu normal non ?

+1
Et la réponse est dans la question

Mon texte s'est dédoublé, expliquant le message d'erreur...

Cordialement
Luke

[PowaBanga]

Merci Piaf, il a fallut que je redémarre l'app pour que cela prenne effet, mais ça fonctionne à présent !

luky-luke tu n'a pas compris. Quand j'ai dis que mon texte s'est dédoublé, il me semble évident que j'ai voulu dire qu'il s'est dédoublé tout seul. Ce n'est pas moi qui ait copié/collé deux fois mon script.