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.
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.
Bonjour
Essayes sur l'évènement Load de ton formulaire le code suivant
Bien sûr, il faut que celle-ci soit active.
Code : Sélectionner tout - Visualiser dans une fenêtre à part Application.CommandBars("LeNomDeLaBarre").Visible = True
Starec
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.
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
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
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
Re
Une autre solution.
Tu dois surêment vouloir agir sur un contrôle (Zone de texte)
Avec le code suivant :
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.
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
Starec
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.
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
Vous avez un bloqueur de publicités installé.
Le Club Developpez.com n'affiche que des publicités IT, discrètes et non intrusives.
Afin que nous puissions continuer à vous fournir gratuitement du contenu de qualité, merci de nous soutenir en désactivant votre bloqueur de publicités sur Developpez.com.
Partager