garder le focus d'une feuille même si on lance une autre appli

Question

bonjour, en fait j'ai un petit souci : je fais un petit programme qui pilote une application windows qui n'est aps de moi, et j'aimerai en fait que même si on clique sur l'autre appli ma form reste au premier plan de ouindoz par dessus l'appli
hassan cehef ci poussibl???

Neo.balastik · Answer

Salut ;O)

Utilise ceci :

'A COPIER DANS UN MODULE:
'--------------------------------

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 Const HWND_TOPMOST = -1
Public Const HWND_NOTOPMOST = -2
Public Const SWP_FRAMECHANGED = &H20
Public Const SWP_NOSIZE = &H1
Public Const SWP_NOMOVE = &H2
Public Const SWP_NOZORDER = &H4
Public Const SWP_NOACTIVATE = &H10
Public Const SWP_DRAWFRAME = &H20
Public Const SWP_SHOWWINDOW = &H40

Public Sub FormOnTop(hWindow As Long, bTopMost As Boolean)
    
    Dim wFlags, Placement
    
    wFlags = SWP_NOMOVE Or SWP_NOSIZE Or SWP_SHOWWINDOW Or SWP_NOACTIVATE
    
    Select Case bTopMost
    Case True
        Placement = HWND_TOPMOST
    Case False
        Placement = HWND_NOTOPMOST
    End Select
    
    SetWindowPos hWindow, Placement, 0, 0, 0, 0, wFlags

End Sub

'UTILISATION :

Call FormOnTop(TaForm.Hwnd,True)

Guy

mathieuleydier · Answer

coooool merci ca marche tip top moumoute
a+

Garder le focus d'une feuille même si on lance une autre appli

2 réponses

Discussions similaires