HOOK MENU 2003

Commentaire de starfighter le 28/02/2005 17:14:56

Salut,
Pour le reste du menu essaye cela:
[code]
Private Sub SetMenuBackgroundColor(ByVal hMenu As Long)
Dim ret As Long                 'Variable to hold return values from GetMenuInfo and SetMenuInfo
Dim hBrush As Long              'Variable to hold the handle to the background brush we are going to create
Dim lbBrushInfo As LOGBRUSH     'Variable to hold the information to pass to the CreateBrushIndirect API
Dim miMenuInfo As tagMENUINFO   'Variable to hold the menu info
    
    lbBrushInfo.lbStyle = BS_SOLID  'Set our brush type to solid
    lbBrushInfo.lbColor = mBackgroundColor 'Couleur du Fond du reste du menu
    lbBrushInfo.lbHatch = 0         'This value is ignored I set it to 0 to make sure nothing weird will happen
    hBrush = CreateBrushIndirect(lbBrushInfo)   'We create our brush
    miMenuInfo.cbSize = Len(miMenuInfo)         'Set the MenuInfo structure size so that we don't get errors
    ret = GetMenuInfo(hMenu, miMenuInfo)        'Go and get the actual menu info should return non-zero if successful
    miMenuInfo.fMask = MIM_APPLYTOSUBMENUS Or MIM_BACKGROUND    'Set the mask for the changes (changing the background for menu and all sub-menus)
    miMenuInfo.hbrBack = hBrush                 'Assign our brush to the menu info
    ret = SetMenuInfo(hMenu, miMenuInfo)        'Write our info back to the menu and we're done. (should return non-zero if successful)
End Sub
[/code]

Commentaire de bouv le 28/02/2005 17:37:41

Super sympa !!!

2 suggestions :
- Pourrai tu fournir le reste de la source originale (neccessaire) pour ceux qui ne l'ont pas
- Tu devrai peux etre renommer le nom de l'ocx (ex : HookMenu2003.ocx) pour ne pas ecraser l'originale ainsi que le titre de l'application dans les propriétés du projet pour éviter toute confusion.

Bonne prog
++

Commentaire de sadate le 16/09/2005 18:39:04

Je viens de trouver une version 1.5
je vais essayer ça.

http://pscode.com/vb/scripts/ShowCode.asp?txtCodeId=49985&lngWId=1

Commentaire de globule le 09/05/2006 12:17:07

Que se passe t'il si j'utilise se composant sur un poste en 95 ou sur un NT 4 qui n'à pas de SP6 ? Ca plante ou ca affiche les menus sans le look office ? Cette source me tente, mais je ne veux pas risquer de planter tous mes utilisateurs en NT ou 95 (et oui, il y en a encore beaucoup !)

Commentaire de jbarras le 24/04/2007 10:41:42

Bonjour,

Ce contrôle est absolument génial.

Malheureusement si je l'exécute sur un serveur Windows Server 2003, il plante.

Quelqu'un a déjà eu ce problème ?

Merci !

Commentaire de eliache le 25/04/2007 17:08:18

si quelqu'un peut m'aider ?
est ce qu'on peut utiliser HookMenu sur un menu créer par code?

Commentaire de jbarras le 21/02/2008 14:43:11

Bonjour,

Sur certains serveurs Windows 2003, impossible de le faire fonctionner. Alors que sur d'autres cela fonctionne à merveille. Par contre, aucun soucis sous XP ;-)

Je pense que le problème rencontré sur ces serveurs, est qu'il me manque un/plusieurs fichiers nécessaires au bon fonctionnement de HookMenu.

Quels fichiers doivent être inclus dans le programme d'installation en plus de l'OCX de HookMenu pour qu'il puisse fonctionner ?

Merci !