Discussion :

[telodo]

Bonjour,


Eh oui c'est encore moi ! Je souhaite ajouter une option "Always On Top" a mon programme. Disponible via le menu deroulant (MenuEditor) avec une option "coche" et "decoche".

Dans mon Menu Editor je coche la case "Checked". Afin que mon option 'Always On Top' soit un menu a cocher/decocher.

Par defaut AlwaysOnTop (nom de mon option) doit etre coche, et ma Form1 doit etre visible au premier plan. Cependant si l'utilisateur ne souhaite pas cette option il peut choisir de la decocher...



Voici le code pour faire apparaitre une fenetre visible au premier plan :



Dans un module :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 
Declare Sub 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)
Global Const HWND_TOPMOST = -1
Global Const HWND_NOTOPMOST = -2
Global Const SWP_NOACTIVATE = &H10
Global Const SWP_SHOWWINDOW = &H40

Dans mon menu deroulant :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
 
Private Sub AlwaysOnTop_Click()
 
If AlwaysOnTop.Checked = True Then
SetWindowPos Form1.hWnd, HWND_TOPMOST, Form1.Left / 15, Form1.Top / 15, Form1.Width / 15, Form1.Height / 15, SWP_NOACTIVATE Or SWP_SHOWWINDOW
Else: SetWindowPos Form1.hWnd, HWND_NOTOPMOST, Form1.Left / 15, Form1.Top / 15, Form1.Width / 15, Form1.Height / 15, SWP_NOACTIVATE Or SWP_SHOWWINDOW
End If
 
End Sub

La premiere ligne verifie si ALwaysOnTop est coche, si oui Form1 reste visible au premier plan. Sinon elle ne l'est pas.


Mon probleme :

Lorsque je demarre mon programme, l'option de mon menu AlwaysOnTop est coché. Mais ma fenetre ne reste pas visible au premier plan par defaut. Lorsque je clique sur AlwaysOnTop, le menu reste coché et la fenetre reste visible au premier plan.

Auriez-vous la solution ? J'esperes que vous aurez compris ce que je cherche !

Menu AlwaysOnTop coche par defaut au demarrage du logiciel et donc fenetre visible toujours au premier plan. Lorsque l'on clique dessus, il se decoche et la fenetre n'a plus l'attribus toujours visible au premier plan.



Je vous remercie d'avance et vous souhaite une agreable journee !

[zazaraignée]

Salut

La propriété Checked est un booléen qui ne sert que de marqueur. Quand l'utilisateur clique sur ce menu, tu vérifies l'état de cette propriété pour déterminer l'action à prendre, en l'occurrence faire flotter la fenêtre au dessus des autres ou pas.

Cette option est toujours disponible par programmation et le fait de cliquer dessus en mode création ne fait que déterminer un sont état par défaut : soit la valeur True. Ça ne permet pas une gestion automatique comme pour un bouton d'option (radio) ou un CheckBox. Tu dois gérer l'état du menu a mano.

[telodo]

Rha je suis desole, mais j'ai du mal a comprendre.

Checked n'a aucune valeur, c'est juste un marqueur.

Donc je dois donner a mon menu une valeure, par exemple 1 = Checked et 0 = Non-Checked.

Ensuite je teste si mon menu = 1 (checked) pour lui donner l'action a effectuer.


Je suis un peu perdu en fait, que dois-je faire concretement ? Quel genre d'action ?

[rv26t]

Bonjour,

Le menu coché à une valeur true ou false
C'est à toi de positionner la valeur suivant tes besoins et effectuer les actions en fonction.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Private Sub AlwaysOnTop_Click()
 
AlwaysOnTop.Checked = Not AlwaysOnTop.Checked ' bascule le menu
' affecte les attributs suivant l'état du menu
If AlwaysOnTop.Checked Then
  SetWindowPos Form1.hWnd, HWND_TOPMOST, Form1.Left / 15, Form1.Top / 15, Form1.Width / 15, Form1.Height / 15, SWP_NOACTIVATE Or SWP_SHOWWINDOW
Else
  SetWindowPos Form1.hWnd, HWND_NOTOPMOST, Form1.Left / 15, Form1.Top / 15, Form1.Width / 15, Form1.Height / 15, SWP_NOACTIVATE Or SWP_SHOWWINDOW
End If
End Sub
 
'exemple positionnement au démarrage
Private Sub Form_Load() ' de la fenêtre de test avec le menu
' affiche la fenêtre, coche "au dessus" pour le menu, place les attributs
Form1.Show
AlwaysOnTop.Checked = True
SetWindowPos Form1.hWnd, HWND_TOPMOST, Form1.Left / 15, Form1.Top / 15, Form1.Width / 15, Form1.Height / 15, SWP_NOACTIVATE Or SWP_SHOWWINDOW
End Sub

Note: lors du basculement à non coché ta fenêtre reste dessus mais quand tu cliques sur l'autre (n'importe ou) elle passe derrière.

A+, Hervé.

[telodo]

Merci beaucoup Herve, decidement !

Donc j'avais bien reussi par la suite a affiche en toujours visible au demarrage. Ce n'etait pas un probleme. Par contre le basculement de menu, ca j'avoue que j'etais loin de la solution.

En revanche dans le Form_Load tu place "Form1.Show", est-ce obligatoire ? Le resultat est le meme, cependant cela evite t'il d'eventuels bug ou autre ?

J'essaye tout de meme de faire un truc propre... !


Mille merci !

[rv26t]

[Edit] correction.
Il est préférable de le gérer par le show au moment ou on le souhaite.
[Fin Edit]

Mais je laisse à d'autres membres le soin d'apporter des informations complémentaires s'il connaissent bien cette api.

Bonne programmation, A+, Hervé.

[LeForestier]

Bonsoir,
L'api n'agit en rien sur le fait d'afficher la forme, la feuille de démarage est toujours affichées automatiquement sauf commande spéciale dans le code.
Le fait d'employer l'api pour mettre la feuille en évidence n'est pas éternel, si une autre appli l'emploie également, ta feuille perd cette particularité, pour y remédier j'emploi une deuxième ligne de menu pour rafraîchir la fonction et comme elle peu donc étre appellée plusieurs fois je le fais au moyen d'une sub.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
'
 
Public Const FLAGS = SWP_NOACTIVATE Or SWP_SHOWWINDOW
 
'Place une forme en permanence (presque) au dessus du bureau.
'Mode = true la forme est au dessus du bureau, si False positionnement normal
'
Sub PlaceDessus(Fr As Form, Mode As Boolean)
Dim i As Long
    If Mode Then
         i = SetWindowPos(Fr.hWnd, HWND_TOPMOST, 0, 0, 0, 0, FLAGS)
    Else
         i = SetWindowPos(Fr.hWnd, HWND_NOTOPMOST, 0, 0, 0, 0, FLAGS)
    End If
End Sub

Comme tu peu le voir, les 4 valeurs intermédiares sont à 0, elles ne servent pas quand c'est une forme.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Dans form_Load
    PlaceDessus Me , True
Dans menu
Sub AlwaysOnTop_Click (Index As Integer)
    select case Index
    case X :    AlwaysOnTop(Index).checked = not AlwaysOnTop(Index).checked
                  PlaceDessus Me , AlwaysOnTop(Index).checked
    case X+1:    PlaceDessus Me , AlwaysOnTop(Index-1).checked

Voila une petite idée supplémentaire.
A+

[rv26t]

Bonjour,

A LeForestier,
tout à fait exact, elle s'affichait parcequ'on l'utilisait dans les paramètres de l'api ([EDIT]=>d'une façon particulière => "Form1.Left / 15"), et cela même sans le "Form1.Show".
Avec 0 pas d'affichage, il faut donc le show.
Note : ma form principale s'appelle FromTest, form1 est une 2ème form.

Merci, A+, Hervé.

[LeForestier]

Bonjour,
à Hervé,
Comme stipulé dans mon poste précédant, j'ai supposé que ta forme était la forme principale, Sinon, bien sur qu'il faut la méthode Show.
A+

[rv26t]

Bonjour,
à Hervé,
Comme stipulé dans mon poste précédant, j'ai supposé que ta forme était la forme principale, Sinon, bien sur qu'il faut la méthode Show.
A+

Certe, et je suis d'accord,

Mais dans mon cas, lors du load de la fenêtre principale (qui s'appelle "frmTest", je ne l'avais pas précisé)
"form1" étant une 2ème fenêtre (celle que je place au dessus).

Si l'on écrit (dans le load de "frmTest)"

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

SetWindowPos Form1.hWnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOACTIVATE Or SWP_SHOWWINDOW

il faut faire appel à form1.show pour que la fenêtre "form1" s'affiche.

idem pour

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

SetWindowPos Form1.hWnd, HWND_TOPMOST, Form1.Left, Form1.Top , Form1.Width , Form1.Height , SWP_NOACTIVATE Or SWP_SHOWWINDOW

il faut faire appel à form1.show pour que la fenêtre "form1" s'affiche.


sauf que dans le cas de ce code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

SetWindowPos Form1.hWnd, HWND_TOPMOST, Form1.Left / 15, Form1.Top / 15, Form1.Width / 15, Form1.Height / 15, SWP_NOACTIVATE Or SWP_SHOWWINDOW

la "form1" s'affiche sans faire l'appel "form1.show"

C'est ce qui m'intrigue.

A+, Hervé

[LeForestier]

C'est en effet intriguant, j'ai testé chez moi, mais quel que soit le mode employé la form2 ne s'affiche pas, même avec les dimentions...
A+
Edit: quelques recherches plus tard...
SWP_SHOWWINDOW
Displays the window.
If the SWP_SHOWWINDOW or SWP_HIDEWINDOW flag is set, the window cannot be moved or sized.
Surement une question de Flags..

Edit2:
C'est effectivement une question de Flags , je n'avais pas SWP_SHOWWINDOW sur l'appli et quand je l'ai ajouté la forme 2 s'affiche sans show.

[rv26t]

Bien vu
Je ne m'étais pas soucié des flags.
L'api peut donc gérer l'affichage suivant les flags.
Merci.