fenêtre en avant plan

[Patmo]

Bonjour Higgins !

 

J'ai exactement le même pb... et je suis également débutant en ce genre de matière.

 

J'ai été regarder SetWindowPos directement chez le producteur :

 

http://msdn.microsoft.com/library/en-us/wi...etwindowpos.asp

 

Pourtant quand je place le code dans Form_Load, je n'ai plus ma fenêtre du tout.

Voici le code, à titre de vérif :

 

Private Sub Form_Load()

X = SetWindowPos( _
FeuilleMenu.hwnd, _
HWND_TOPMOST, _
FeuilleMenu.Left, _
FeuilleMenu.Top, _
FeuilleMenu.Width, _
FeuilleMenu.Height, _
SWP_NOACTIVATE Or SWP_SHOWWINDOW)

Debug.Print X
'FeuilleMenu.Visible = True

End Sub

 

La commande est correctement exécutée car je trouve X = 1.

Et ce code me cache la fenêtre FeuilleMenu, même si je rajoute la dernière ligne.

Quelle magie se trouve derrière cette machination ??

[Patmo]

J'ai trouvé !

 

Pour une raison que j'ignore, les paramètres de la feuille sont démultipliés. Par exemple, .left = 15000 ce qui fait que la form est "visible" mais hors de vue...

 

J'ai réparé ça en reprécisant ces paramètres après ton code.

 

Mais le résultat reste moyen. Je cherchais à faire un menu lié à VB pour piloter Excel. Ma feuille est donc FeuilleMenu, feuille dont je ne montre rien si ce n'est le fameux menu. L'apparence que prend ce menu n'est pas géniale.

 

Il doit exister des fonction API pour contrôler la couleur du menu, le fait que la fenêtre est une apparence "sélectionné", etc.

 

Un conseil ?