Passer une appli en premier plan a l'aide d'un checkbox [Résolu]

Messages postés
15
Date d'inscription
dimanche 16 février 2003
Dernière intervention
19 novembre 2008
- - Dernière réponse : cs_Kefass
Messages postés
15
Date d'inscription
dimanche 16 février 2003
Dernière intervention
19 novembre 2008
- 11 août 2005 à 02:31
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 :]
Afficher la suite 

2 réponses

Meilleure réponse
Messages postés
15
Date d'inscription
dimanche 16 février 2003
Dernière intervention
19 novembre 2008
3
Merci
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

Merci cs_Kefass 3

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources a aidé 105 internautes ce mois-ci

Messages postés
15
Date d'inscription
dimanche 16 février 2003
Dernière intervention
19 novembre 2008
0
Merci
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.

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.