[Issue][Base] Cacher une zone de texte

[Xilex]

Bonjour!

Je voudrais cacher une zone de texte a 'louverture de mon formulaire... est-ce possible ?

[Dude]

Mouais, tu devrais installer XRay. Cela te permettrait de voir un peu les méthodes et propriétés des objets.

Dans ton cas, et après avoir récupérer le contrôle à masquer, il suffit d'utiliser dessus :

Code : Tout sélectionner

setvisible ( <booléen> )

[Xilex]

Pour l'installation de logiciels, c'est pas moi qui gère c'est mon maitre de stage car je ne suis pas administrateur sur cet ordi

J'ai juste cette ligne a mettre ou il faut que je me connecte a la base avant ? Parce que j'avais récupéré ce genre de code dans un forum:

Code : Tout sélectionner

Sub VisibleInvisible


aForm = thiscomponent.DrawPage.Forms.GetByName("FORM_PATIENT_USC") 
aCtrl = aForm.GetByName("TextBox1") 
aCtrl.Visible = False

end sub

Mais cela ne marche pas... est-ce que je n'aurait que la dernière ligne à modifier ?

[Dude]

Mais cela ne marche pas... est-ce que je n'aurait que la dernière ligne à modifier ?

Et si tu (re)lisais un peu ce que j'écris.

[Xilex]

Non mais vous m'avais mis une ligne de code, mais je ne sais pas comment l'utiliser! je n'ai jamais fait de macro...

Bref c'est pas grave merci quand meme .

[Xilex]

Bonjour!

Je débute en Basic et j'avoue que j'ai du mal a m'y faire...

Voici mon code:

Code : Tout sélectionner

Sub VisibleInvisible


aForm = thiscomponent.DrawPage.Forms.GetByName("FORM_PATIENT_USC") 
aCtrl = aForm.GetByName("TextBox1") 
aCtrl = setvisible(False)

end sub

et voici l'erreur qu'on me signale:

Erreur d'exécution BASIC
Une exception s'est produite:
Type: com.sun.container.NoSuchElementException
Message: .

et on me montre la ligne : aForm = thiscomponent.DrawPage.Forms.GetByName("FORM_PATIENT_USC")


Je ne comprend pas le message d'erreur et lors de la compilation, tout se passe bien.

Pourriez vous m'éclairer...

[Dude]

Non mais vous m'avais mis une ligne de code, mais je ne sais pas comment l'utiliser!

Et bien tu peux faire un peu de recherche sur ce forum avec le terme "setvisible" par exemple. Ce qui nous donne :

Code : Tout sélectionner

aCtrl.SetVisible (False)

Je te rappelle aussi que pour faciliter les réponses, tu peux joindre en plus de ton code, un fichier.

[Xilex]

Et bien voici ma base :

REA.odb

Mais moi c'est cette erreur qui me chagrine, et c'est pour cela que je ne sais pas si il faut que j'ouvre la base avant ou non... 'Fin je suis un peu perdue

[spYre]

Bonjour Xilex,

Il y a je crois un problème de vocabulaire, par ailleurs tout à fait compréhensible.

Dans Base, les 'Formulaires' sont en fait des documents textes (Writer) qui contiennent un ou des formulaires.
Dans ton exemple, je crois deviner que FORM_PATIENT_USC est le nom du document. Or c'est le nom du formulaire proprement dit qu'il faut fournir à la macro.
Celui ci peut être vérifié via le navigateur de formulaire (afficher la barre d'outils Ébauche de formulaire et cliquer sur l'icône

Icone_navig_form.jpg

Par défaut, il doit s'agir de Standard ou MainForm.

Cordialement.

[Xilex]

Ah je vois... je vais me renseigner... Merci

[Xilex]

Tout marche... ou presque!

La fonction ne semble pas lui plaire

A la ligne

Code : Tout sélectionner

aCtrl.SetVisible (False)

Il me dit "Propriété ou méthode introuvable"...

On vous l'a déjà signalé. Merci de ne pas poster plusieurs messages à la suite !
Le bouton "Editer" à la droite du message permet d'y remédier.

En attendant une prochaine réponse, vous pouvez participer également en répondant à d'autres questions sur notre forum.

Après avoir amélioré mon code, j'obtiens:

Code : Tout sélectionner

Sub VisibleInvisible
Dim aForm as object
Dim aCtrl as object
Dim mon_ctrl as object
Dim view as object

aForm = thiscomponent.DrawPage.Forms.GetByName("MainForm1")
view=ThisComponent.CurrentController() 
aCtrl = aForm.GetByName("TextBox1")
mon_ctrl = view.getcontrol(aCtrl) 
mon_ctrl.SetVisible(False)
end sub

Cependant, je n'ai plus d'erreur, mais rien en se passe et ma zone de texte est toujours la

[Dude]

Même question que SpYre tout à l'heure :

Code : Tout sélectionner

aCtrl = aForm.GetByName("TextBox1")

As-tu un contrôle qui se nomme TextBox1 ?

[Xilex]

Oui c'est celui que je cherche a cacher

[bm92]

Bonsoir,
Bogue de régression de la 3.1 : Issue 102090

Xilex
Merci d'ajouter [Issue] dans le titre de ton message initial (comment faire).

Vous pouvez voter pour cette Issue (comment faire).

[Xilex]

Je ne comprends pas bien l'anglais mais à ce que j'ai pu déchiffré, c'st donc pas possible ?

[kialginat]

Bonjour

Bonjour as-tu essayé

Code : Tout sélectionner

aCtrl.IsVisible = false

C'est ce que j'ai fait avec des sections pour avoir des pseudo onglets dans ma base et ça fonctionne

[kialginat]

Bonjour,

J'ai essayer mais ça na fonctionne pas, pluôt logique vu les personnes ayant répondu
Par contre je te propose de mettre tes controls dans une section que tu peux masquer /démasquer à l'aide dune macro

cordialement

[Xilex]

Quel genre de section ?

[kialginat]

Bonjour

Il s'agit des sections que l'on peut insérer (onglet insertion=> Section) puis que tu nommes par exemple "Ma_section"
ensuite tu assignes la macro à un bouton ou autres
les codes sont :

Code : Tout sélectionner

lesSections = thisComponent.textSections 'les sections
La_Section = lesSections.getByName("Ma_section")' la section "Ma_section"

La_Section.IsVisible = true ' la section est visible
La_Section.IsVisible = false ' la section est masquée

Par contre depuis la 3.1 je suis obliger d'actualiser le formatage mais ça ..... comme dirait Mr Propre autre sujet autre post