Position popup menu - menu contextuel

Version imprimable

Bonjour,

J'ai implemente un popup menu lors d'un clic droit (right click) dans une listbox.

J'aimerais que ce menu contextuel se place correctement sur l'element selectionne. En effet, si je selectionne un element puis que je deplace la souris dans la listbox, si je fais un clic droit, le menu apparait pres du curseur de la souris et pas sur l'element selectionne
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 Private Sub lstPrerequisites_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single) On Error GoTo lstPrerequisites_MouseUp_Error ' Check if an item is selected in the listbox If lstPrerequisites.ListIndex >= 0 Then ' Check if it's a right click If Button = vbRightButton Then 'Display popup menu PopupMenu mnuPopUp End If End If Exit Sub lstPrerequisites_MouseUp_Error: MsgBox "Error " & err.Number & " (" & err.Description & ") in procedure lstPrerequisites_MouseUp of Form frmImplementedFilesManagement", vbCritical End Sub
J'ai essaye de travailler avec X et Y mais je m'y perds un peu.

Quelqu'un peut m'aider SVP ?

Merci d'avance

Jeannot

Bonjour,
F1 + Affichage de menus contextuelles

te donnerras les renseignements nécessaires et en autre
Code:

1 2 3 4 5 6 7 8 9 10 11 12 Private Sub Command1_Click () ' Dimensionnez les variables X et Y. Dim xloc, yloc ' Définissez les variables X et Y au centre de la feuille. xloc = ScaleWidth / 2 yloc = ScaleHeight / 2 ' Affichez le menu contextuel. PopupMenu mnuEdit, vbPopupMenuCenterAlign Or _ vbPopupMenuRightButton, xloc, yloc End Sub
A+

Edit: Excuse-moi pour les balises, j'avais probablement la tête dans les nuages (je suis en vacances)

23/08/2007, 16h28
Jeannot

Bonjour,

Merci pour la réponse, mais je ne veux pas faire apparaitre le popup menu au milieu de la fenetre mais bien sur l'element selectionné dans ma listbox.

Avec votre exemple, le curseur n'est pas sur l'element selectionné, le menu s'affiche près du curseur et pas sous l'élement de la listbox

Merci d'avance

Jeannot
23/08/2007, 20h20
ucfoutu

Re-bonjour Jeannot,

Il te faut simplement calculer comme tu l'entends xloc et yloc.

Tu as pour ce faire tout ce qu'il te faut, me semble-t-il puisque :
1) tu connais la valeur de Top de ta listbox
2) tu connais la valeur de Left de ta Listbox
3) tu connais l'index sur lequel tu cliques
4) tu connais l'index du l'item affiché en haut de ta listbox (topindex)
5) tu sais donc combien d'index sont affichés entre le topindex et l'index sur lequel tu cliques (simple soustraction)
6) tu sais maintenant calculer la hauteur d'une ligne de ta listbox (tu l'as appris aujourd'hui dans ton autre post... : variable que j'ai appelée haut)
Il te suffit donc maintenant de dire que :
yloc = list1.top + ((index-cliqué - topindex) * haut)

Non ?
Allez... fais-moi ce plaisir, s'il te plait...

Bonjour ucfoutu,

Merci pour ton aide ...

Voici le code que j'ai écrit en suivant tes reflexions:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
 
 
Private Sub lstPrerequisites_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
 
Dim intHeight As Integer
Dim intIndex As Integer
 
 
Dim yloc, xloc
 
On Error GoTo lstPrerequisites_MouseUp_Error
 
    If lstPrerequisites.ListCount > 0 Then
        If Button <> 2 Then Exit Sub
        Set Font = lstPrerequisites.Font
        intHeight = TextHeight("get_current_element")
        intIndex = lstPrerequisites.TopIndex + Int(Y / intHeight)
 
        If intIndex < lstPrerequisites.ListCount Then
            lstPrerequisites.Selected(intIndex) = True
        End If
 
        ' Check if an item is selected in the listbox
        If lstPrerequisites.ListIndex >= 0 Then
            ' Check if it's a right click
            If Button = vbRightButton Then
                'Display popup menu
 
 
                yloc = lstPrerequisites.Top + ((lstPrerequisites.ListIndex - lstPrerequisites.TopIndex) * intHeight)
 
                PopupMenu mnuPopUp, vbPopupMenuRightButton, , yloc
            End If
        End If
    End If
 
    Exit Sub
 
lstPrerequisites_MouseUp_Error:
    MsgBox "Error " & err.Number & " (" & err.Description & ") in procedure lstPrerequisites_MouseUp of Form frmImplementedFilesManagement", vbCritical
 
End Sub

Par contre, j'ai un souci quand même ... en effet, le menu s'affiche en haut de mon form, bien loin de la listbox même quand le curseur se trouve sur l'élement selectionné dans la listbox ...

La coordonnée X que je ne précise pas dans l'appel de la fonction PopupMenu me semble correct.

Et si je mets +9500 (arbitraire et défini après plusieurs essais), cela fonctionne

Code:

1
2
3
 
 
yloc = lstPrerequisites.Top + ((lstPrerequisites.ListIndex - lstPrerequisites.TopIndex) * intHeight) + 9500

Pour finir, je précise que la listbox se trouve dans une frame;
Cette frame se trouve dans une autre frame;
La 2e frame se trouve sur un SSTAB;
Le SSTAB se trouve sur mon form.

La valeur de Left de ma listbox lors de l'affichage est 0.
Tu parles de la valeur Left, mais on ne l'utilise pas ?

Voilà ... encore merci pour votre aide

Jeannot

Je ne sais vraiment pas quoi te dire, Jeannot...

Je tiens à ce que tu te casses un peu la tête (et c'est par amitié que j'y tiens, en général).

Bon...

Je ne vais pas écrire ton code mais presque... en simulant ta fenêtre popup par l'emploi d'une picturebox.

Un projet : Une Form avec un Frame Frame1 dans lequel tu mets ta listbox List1

Où tu veux (hors du cadre Frame1) une picturebox picture1

Ce code :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 Private Sub Form_Activate() For i = 1 To 50 List1.AddItem "a" & i Next End Sub Private Sub List1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single) If Button <> 2 Then Exit Sub Dim ou As Integer, haut As Integer Set Font = List1.Font haut = TextHeight("Alors je m'en Fiche") ou = List1.TopIndex + Int(Y / haut) Set Picture1.Container = Frame1 DoEvents Picture1.Left = List1.Left Picture1.Top = ((ou - List1.TopIndex) * haut) + List1.Top If ou <= List1.ListCount - 1 Then List1.Selected(ou) = True End If List1.SetFocus End Sub
Comme tu le vois, j'y traite, au click droit, à la fois la sélection et le positionnement de la picturebox (la totale, donc)...
A toi de comprendre et d'adapter à ta popup, maintenant ....
Travaille bien.
Bon Week-end.

Ca ne peut pas suffire ça ?

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
Option Explicit
Dim MemoX As Single
Dim MemoY As Single
 
Private Sub List1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 1 Then
  'Si c'est bouton gauche ==> Selection
  MemoX = X
  MemoY = Y
ElseIf Button = 2 Then
  'Si c'est bouton droit ==> popupmenu
  PopupMenu menutest, , MemoX, MemoY
End If
End Sub

24/08/2007, 19h30
ucfoutu

Bonsoir OhmonBato,

Ce ne devrait pas être mal si l'on n'est pas exigeant.
Mais X et Y sont les coordonnées du point "cliqué" et pas exactement celles de l'élément cliqué. Or Jeannot nous a exposé qu'il ne voulait pas afficher l'angle supérieur gauche de sa popup là où se trouvait son curseur de souris, mais très exactement sur l'élément...
Voilà la raison (exactitude absolue) pour laquelle il convient de calculer cette position (non à l'endroit "cliqué", mais à l'endroit où se trouve réellement l'élément concerné par le click).
Bonne continuation...

Salut tout le monde,

Merci pour votre participation

ucfoutu:

J'ai crée un petit projet pour essayer de bien comprendre le tout, comme tu me l'as conseillé.

Effectivement, ta picturebox s'affiche correctement ... par contre, (à mon avis, je ne me suis pas bien exprimé auparavant) ... si tu ne mets que 5 éléments dans ta listbox au lieu de 50 ... et que tu cliques dans la partie blanche en dessous des 5 élements (en supposant que la taille de la listbox est bien trop grande pour les 5 élements) et bien la picture box ne s'affiche pas sur l'élément sélectionné mais sur l'endroit où tu cliques.

Je ne sais pas si je suis assez clair et si tu arrives à reproduire le même comportement. Ou bien c'est moi qui ne comprend rien à rien :oops:

Malheureusement, je n'ai pas trop le temps aujourd'hui pour regarder à cela en profondeur, c'est plutôt cosmétique ... mais je vous remercie grandement bien évidemment

En attendant voici un bout de code adapté ...
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 Private Sub Form_Activate() Dim i As Integer For i = 1 To 5 List1.AddItem "a" & i Next End Sub Private Sub List1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single) Dim top As Integer Dim left As Integer If Button <> 2 Then Exit Sub Dim ou As Integer, haut As Integer Set Font = List1.Font haut = TextHeight("Alors je m'en Fiche") ou = List1.TopIndex + Int(Y / haut) Set Picture1.Container = Frame1 DoEvents Picture1.left = List1.left + 2000 Picture1.top = List1.top + ((List1.ListIndex - List1.TopIndex) * haut) If ou <= List1.ListCount - 1 Then List1.Selected(ou) = True End If List1.SetFocus top = List1.top + ((List1.ListIndex - List1.TopIndex) * haut) + 500 left = List1.left + 2000 PopupMenu mnupopup, vbPopupMenuRightButton, left, top End Sub
Je pense qu'il faut peut-être calculer la hauteur du popup menu aussi, c'est pourquoi je mets "+500", sinon le menu est affiché trop haut
Code:

1 2 top = List1.top + ((List1.ListIndex - List1.TopIndex) * haut) + 500
Encore merci

A bientot

Jeannot