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

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

Avec quelques mots c'est encore mieux Ajouter un commentaire

Codes Sources a aidé 82 internautes ce mois-ci

cs_Kefass 15 Messages postés dimanche 16 février 2003Date d'inscription 19 novembre 2008 Dernière intervention - 10 août 2005 à 23:18
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.