form

Question

comment faire pour qu'une form reste toujours dessu.

voila j'utilise un programme en VB qui utilise excel mais lors de l'ouverture d'excel via mon prog  excel vien masquer ma form or il n'y a absolument pas besoin de excel pendant l'utilisation de ce prog.
donc j'aimerai faire en sort que ma form reste dessu meme a l'ouverture d'excel

cs_dav78 · Answer

Tient c'est bizzare moi quand j'appelle Excel depuis mon appli, par défaut il reste caché (l'utilisateur voit pas Excel, hormis dans les processus en cours)


Set Xl = New Excel.Application
Xl.Workbooks.Open (App.Path & "\Pointage.xls")


Je ne sais plus comment faire pour avoir une form always on top, mais pourquoi ne pas tenter un Xl.Visible = False des que tu ouvre Excel ?

Dav

cs_DARKSIDIOUS · Answer

Sinon, utilise la fonction API BringWindowToTop qui te permet de la positionner devant toutes les autres fenêtres. Pour plus d'info sur cette fonction, ou pour un exemple concret, télécharge ProgOtoP API Viewer.

DarK Sidious

[Responsable API/VB du site www.ProgOtoP.com]
Téléchargez ProgOtoP API Viewer

cs_lu6fer · Answer

pour ce qui est de bringWindow to top ca ne fonctionne pas et sinon l'idee de metre visible = false ne me convien pas si quel qu'un peu m'aider pour le bringwindows to top merci d'avance @+

cs_DARKSIDIOUS · Answer

Comment ca le birngwindowtotop ne marche pas ? Cette fonction te permet de mettre ta fenêtre au premier plan au dessus de toute les autres... c'est pas ce que tu veux ? Sinon, essaye avec la fonction API SetWindowPos et le style HWND_TOPMOST.

DarK Sidious

[Responsable API/VB du site www.ProgOtoP.com]
Téléchargez ProgOtoP API Viewer

cs_lu6fer · Answer

non non je te h=jure que le bringwindow to top ne marche pas ma fenetre ce fait masquer par Excel lors ce que je lance celui ci

mais avec ta deuxiemme methode ca marche bcp mieu
merci ;)

cs_ITALIA · Answer

Ca ca devrait aller

dans un module tu mets :
**********************************************

'API nécessaire pour le mode "toujours visible"
Private Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal X As Long, ByVal Y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long

Public Function forward(who As Form)
   Dim Resultat As Long
   Const Flags = &H2 Or &H1 Or &H40 Or &H10
   Resultat = SetWindowPos(who.hwnd, -1, 0, 0, 0, 0, Flags)
End Function
*********************************************

et dans le load de ta  form :
*********************************************
forward Me
*********************************************

It@li@

Form

6 réponses

Discussions similaires