[VB(A)] Problème avec la fonction API DeleteMenu. . .

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : [VB(A)] Problème avec la fonction API DeleteMenu. . .

[QUE]Frank

Bon, sous Excel, je veux supprimer certains éléments du menu système. À l'heure actuelle, je procède comme suit :

Const SC_CLOSE As Long = &HF060
Const SC_MOVE As Long = &HF010
Const SC_RESTORE As Long = &HF120
Const SC_SEPARATOR As Long = &HF00F
Const SC_SIZE As Long = &HF000
Const SC_MAXIMIZE As Long = &HF030

Const MF_BYCOMMAND As Long = &H0&

Dim lngHandle As Long

lngHandle = GetSystemMenu(FindWindowA("XLMAIN", Application.Caption), False)

Call DeleteMenu(lngHandle, SC_CLOSE, MF_BYCOMMAND)
Call DeleteMenu(lngHandle, SC_MOVE, MF_BYCOMMAND)
Call DeleteMenu(lngHandle, SC_RESTORE, MF_BYCOMMAND)
Call DeleteMenu(lngHandle, SC_SEPARATOR, MF_BYCOMMAND)
Call DeleteMenu(lngHandle, SC_SIZE, MF_BYCOMMAND)
Call DeleteMenu(lngHandle, SC_MAXIMIZE, MF_BYCOMMAND)

Ma routine supprime tous les éléments du menu système de ma fenêtre Excel à l'exception de l'élément "Réduire"

Bon, tout ça fonctionne très bien sous toutes plate-formes confondues (Windows 95 à Windows XP).

Mon problème est le suivant : si (et seulement si) l'interface Luna est activée sous Windows XP, le bouton "Restaurer" dans la barre système demeure utilisable alors qu'il ne devrait pas l'être. Si je désactive l'interface Luna, tout fonctionne de nouveau correctement et seul le bouton "Réduire" fonctionne.

Quelqu'un pourrait-il éclairer ma lanterne ?

Merci

Publicité

[QUE]Frank

Up! :bounce:

J'ai toujours pas trouvé comment régler ce problème

J'ai essayé de supprimer entièrement le menu avec DestroyMenu, mais y'a rien à faire, le bouton "Agrandir/Restaurer" fonctionne toujours.

FORUM HardWare.fr

Programmation

VB/VBA/VBS

[VB(A)] Problème avec la fonction API DeleteMenu. . .

Sujets relatifs
[ XHTML / CSS ] Probleme incomprehensible	Encore un problème lié aux CSS... (XHTML inside)
[C] Problème très con sur une fonction apparemment super simple	comment faire les tables pour mon problème
problème de query ADO embriquées ...	Nouveau problème de conversion
[PHP] rendre un parametre optionnel pour une fonction	Probleme d'affichage de Canvas dans un panel
nom de la fonction appelante
Plus de sujets relatifs à : [VB(A)] Problème avec la fonction API DeleteMenu. . .

Page générée en 0.033 secondes