VBA VB6 - Un menu "Flottant" type PopUpMenu.

Cette classe implémente un menu qui est positionné à l'emplacement de la souris.
Il peut servir de menu mais aussi de "bulle" d'information.
Disponible sur les feuilles et les UserForm.

Se referme dès qu'une action intervient, que ce soit sur le menu ou ailleurs, dans ce cas renvoi 0, il est aussi possible d'ajouter un timer de x secondes pour le refermer automatiquement.

Sur une feuille, employécomme "bulle"

centre


centre


Sur un UserForm, employé comme "menu"
centre


Testé sur Excel 2000 et 2007.
  • Téléchargements

Le classeur Excel 97 - 03 > Serveur 1 : PopUpMenu.xls
Le projet VB6. > Serveur 1 : TestMenuF.zip

Ce zip Contient : Les modules Bas et cls pour être employés en VB6 et le classeur Excel 97-03
Serveur réserve : PopUpMenu.zip

Publié par lermite222 - Dernière mise à jour le 4 mars 2011 à 13:32 par lermite222
Ce document intitulé « VBA VB6 - Un menu "Flottant" type PopUpMenu. » issu de CommentCaMarche (www.commentcamarche.net) est mis à disposition sous les termes de la licence Creative Commons. Vous pouvez copier, modifier des copies de cette page, dans les conditions fixées par la licence, tant que cette note apparaît clairement.
VB6 - Message déroulant hors écran. + barre des tâches VB6 - Imprimer un tableau Acces dans un FlexGrid VB6
Suggestions
  •  VBA VB6 - Un menu "Flottant" type PopUpMenu.
  •  VBA VB6 - Quand le test DIR(Répertoir) plante ! » Fiches pratiques : Le test le plus simple pour tester si le chemin d'un répertoir est valide c'est bien évidemment... If Dir(MonRepertoir) = "" Then 'Le répertoir n'existe pas ou n'est pas bien libellé End If Sauf que... Si le chemin du répertoir...
  •  VBA VB6 - Lire tous les fichiers, répertoires et sous/rép » Fiches pratiques : La fonction Scripting.FileSystemObject remplace avantageusement Application.FileSearch qui d'ailleurs, n'est plus disponible à partir d'Office 2007. Un exemple pour mémoriser tous les fichiers images d'un répertoire. À coller dans un...
  •  VBA/VB6 - Rép. Mes Documents+Variables Environnement » Fiches pratiques : Dans l'explorateur de fichiers, le dossier Mes Documents semble être sur le root, or ce n'est pas le cas. Il est situé dans un sous-répertoire de C:\Documents and Settings. Le hic, c'est que le premier sous-répertoire prend le nom de l'utilisateur et...
  •  VBA:VB6 - Se servir d'excel à partir d'une autre application » Fiches pratiques : Cette petite routine permet d'appeler excel à partir de VB6 ou d'une autre application Office. A coller dans un module général (Module1 par exemple) En VBA >> Insertion >> Module, et dans cette fenêtre coller... En VB6 >> Projet >>...
  •  VBA VB6 - Forcer l'ouverture d'un ComboBox » Fiches pratiques : Pour obliger un ComboBox à s'ouvrir il y a la fonction... ComboBox1.DropDown Seulement voilà... Pour ça il faut que le comboBox ai le focus, et si la commande vient d'un autre contrôle c'est ce contrôle qui a le focus, donc......
Plus
Dossier à la une
Passage au tout numérique : quel coût pour les particuliers ?
VB6 - Message déroulant hors écran. + barre des tâches
VB6 - Imprimer un tableau Acces dans un FlexGrid VB6