Discussion :

[cbleas]

Bonjour,

est t'il possible de toujours afficher une barre d'outil alors que l'on utilise une un formulaire en mode affichage indépendant?

Merci pour votre aide.

[Invité]

Bonjour

Essayes sur l'évènement Load de ton formulaire le code suivant

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Application.CommandBars("LeNomDeLaBarre").Visible = True

Bien sûr, il faut que celle-ci soit active.

Starec

[cbleas]

Merci Starec,
La barre de menu est bien affichée mais si je clic sur le formulaire elle disparait dessous.
de plus je souhaite pouvoir supprimer un enregistrement à partir de cette barre et avec un formulaire indépendant cela semble impossible.

[Invité]

Re

C'est vrai qu'avec un formulaire indépendant, la propriété du formulaire Barre d'outils ne fonctionne pas.

Pourquoi n'essayes-tu pas avec un menu contextuel de la même maniére en transformant ta barre en menu contextuel ?

Pour afficher un menu contextuel va voir du coté de ShowPopup.

Starec

[cbleas]

J'utilise déja un menu contextuel avec les foctions dont j'ai besoin. L'objectif était de mettre un bouton suppression + divers fonctionnalités d'enregistrement toujours affichées sans pour autant surcharger le formulaire.
Merci

[Invité]

Re

Et si tu positionnais ta barre d'outil sous la barre de menu, cela ne fonctionnerait pas ?

Et de plus es-tu obligé de mettre ton formulaire indépendant ?

Starec

[Invité]

Re

Une autre solution.

Tu dois surêment vouloir agir sur un contrôle (Zone de texte)

Avec le code suivant :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Private Sub Texte0_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    If Button = 2 Then
        Application.CommandBars("titi").ShowPopup
    End If
End Sub

Le menu contextuel "titi" n'agira que sur ce contrôle par un clik droit. En dehors c'est ton autre menu qui sera actif.

Starec

[cbleas]

Désolé pour ce retard.

Le menu n'est pas pour un controle mais pour agir sur la suppression des données.
Par contre pour ce qui est de l'obligation de mettre un formulaire indépandant.
Ce n'est peut etre plus necessaire parce la taille de mes formulaire s'adapte en fonction de la taille ce qui n'était pas le cas avant.

Merci pour tout Starec.

[Invité]

Merci pour tout Starec.

De rien, ton cas m'interresse, car je suis en train de décortiquer la création de barres de commandes par le code.

As-tu résolu le problème ? Et si Oui, comment ?

Starec

[cbleas]

Bonjour Starec,

Pour ma part je n'ai rien trouvé pour les menus dans le cas des formulaires indépendants. Une solution que je pourrais tester c'est la création d'une barre de menu et d'une variable public qui indiquera le formulaire activé.

Pour ce qui est de la création de menu, j'utilise ce code mais je pense que tu le connais.

''
Function CréeMenuDéroulant(StrCBarName As String)
On Error Resume Next
Dim CBar As CommandBar

CommandBars(StrCBarName).Delete
Set CBar = CommandBars.Add(StrCBarName, msoBarPopup)

End Function


Function CréeControleMenuDéroulant(StrCBarName As String, StrControlCBarName As String, CommandARéaliser As String, txtHelp As String)
On Error Resume Next
Dim CtrMenu As CommandBarControl

Set CtrMenu = CommandBars(StrCBarName).Controls.Add(msoControlButton)
With CtrMenu
.Caption = StrControlCBarName
.OnAction = CommandARéaliser
.Tag = .Caption
.DescriptionText = txtHelp
End With


End Function