Fenetre TOUJOURS visibleRésolu

Question

Bonjour,

J'ai un problème, et bien que j'ai parcourus ce site de long en large, en vain (enfin en vain, façon de parler).
Alors voilà :
Je voudrais qu'un formulaire s'affiche, dans un coin de l'écran, mais sans prendre la main, et par dessus les fenêtres, quelles qu'elles soient.
J'ai essayé : 
Sur la Form1, lors d'un evenement :
   Form2.Show vbModal
Puis dans le Form_Load du nouveau formulaire :
   handle = FindWindow(vbNullString, "Form2")
   r = SetWindowPos(handle, HWND_TOPMOST, 0, 0, 0, 0, &H1 Or &H2)
(avec la déclaration de SetWindowPos(...), et l'initialisation de HWND_TOPMOST = -1)
Mais rien à faire : si je suis entrain de taper sur Word, la fenêtre s'affiche derrière la fenêtre active.
Si quelqu'un à une idée... merci d'avance.

(Et merci pour les nombreuses sources concernant la manipulation des fenêtres, des tâches... trouvé sur ce site)

cs_casy · Accepted Answer

SetWindowPos Me.hWnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOACTIVATE Or SWP_SHOWWINDOW Or SWP_NOMOVE Or SWP_NOSIZE





avec 
Const HWND_TOPMOST = -1
Const SWP_NOSIZE = &H1
Const SWP_NOMOVE = &H2
Const SWP_NOACTIVATE = &H10
Const SWP_SHOWWINDOW = &H40

---- Sevyc64  (alias Casy) ----<hr size="2" width="100%" /># LE PARTAGE EST NOTRE FORCE #

le cancre · Answer

Lu, 
il te faut la bonne constante, du style  "SWP_NOACTIVATE"

Alambic Citizen · Answer

Mon Form2 s'affiche bien. Hélas, le formulaire appelant (Form1) s'affiche également, et il est en pleine écran celui-ci. Je perds donc la main...
Merci quand même à vous deux.

Alambic Citizen · Answer

En fait ça à l'air de trés bien marcher. Il m'est un peu difficile d'effectuer des test précis (l'évenement déclencheur se produit alèatoirement, et il est délicat de le simuler), mais... d'ailleurs il vient encore de se déclencher alors que j'écris ce message, et j'ai gardé la main. 
Merci Casy.

Fenetre TOUJOURS visible

4 réponses

Votre réponse

Discussions similaires