Passer une appli en premier plan a l'aide d'un checkboxRésolu

Question

Bonjour !

J'essaie, à l'aide d'une checkbox de créer un bouton permettant l'affichage au premier plan de mon appli.

Plus précisement, quand la checkbox est enfoncée, mon appli reste tjrs au premier plan , et quand la checbox est relachée mon appli réagissent "normalement".

Voici le code que j'ai pondu a l'aide de quelques sources de ce site, mais malheureusement cela ne marche pas.

Quelqu'un pourrait m'aider plz ?

'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
Dim Resultat As Long
    Const Flags = &H2 Or &H1 Or &H40 Or &H10
Private Sub ctrlCheck1_Click()

    ' Si chekbox cliqué, l'apli est au 1er plan
    If (ctrlCheckBox1.Value = Checked) Then
          Resultat = SetWindowPos(Me.hWnd, 0, 0, 0, 0, 0, Flags)
        
    ' Si chekbox non cliqué, l'appli est au 2nd plan
    ElseIf (ctrlCheckBox1.Value = Unchecked) Then
           Resultat = SetWindowPos(Me.hWnd, -1, 0, 0, 0, 0, Flags)
    End If
End Sub

Merci d'avance :]

cs_Kefass · Accepted Answer

Bon bah désolé de polluer le forum mais j'ai trouvé la solution dans un eclair de lucidité.

Si ca interesse du monde :


'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
Dim Resultat As Long
    Const Flags = &H2 Or &H1 Or &H40 Or &H10
Private Sub Check1_Click()

    ' Si chekbox cliqué, l'apli est au 1er plan
    If (Check1.Value = Checked) Then
          Resultat = SetWindowPos(Me.hWnd, -1, 0, 0, 0, 0, Flags)
        
    ' Si chekbox non cliqué, l'appli est au 2nd plan
    ElseIf (Check1.Value = Unchecked) Then
           Resultat = SetWindowPos(Me.hWnd, -2, 0, 0, 0, 0, Flags)
    End If
End Sub

cs_Kefass · Answer

Une petite erreur dans ma source,il faut mettre:
  Resultat = SetWindowPos(Me.hWnd, 0, 0, 0, 0, 0, Flags)
au lieu de  
  Resultat = SetWindowPos(Me.hWnd, -1, 0, 0, 0, 0, Flags)
et inversement

L'application reste au premier plan aprés avoir coché le checkbox.
Mais décocher le checkbox ne permet pas de ne plus forcer le premier plan.

Passer une appli en premier plan a l'aide d'un checkbox

2 réponses

Discussions similaires