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é.