J'ai un problème extraordinaire !

Question

Bonjour @Tous

Alors je vais vous expliquer le topo : J'utilise la version 5.0 de la listview. Le composant &#224; la propri&#233;t&#233; multiselect &#224; True, j'effectue une s&#233;lection multiple avec ma souris et j'ai besoin d'afficher un menu contextuel avec divers options et jusque l&#224; tout marche sans probl&#232;me.

Lorsque je d&#233;cide d'activer ou de d&#233;sactiver certaines options du menu contextuel je passe par une boucle For... Each pour d&#233;terminer les items qui sont s&#233;lectionn&#233;s afin d'afficher ou non certaines options du menu ex :

For each item in List1.ListItems  If item.selected True then select select + 1
next

If select >1 then (d&#233;sactive une partie du menu) else (active une autre partie)

A partir de l&#224; lorsque j'affiche mon menu contextuel par clic droit je me rend compte qu'apr&#233;s avoir ex&#233;cut&#233; n'importe quel code dans ce menu je ne peux plus quitter mon application celle-ci reste en m&#233;moire permanente  je suis donc oblig&#233; d'utiliser l'instruction END pour forcer la sortie.

Je pr&#233;cise que j'utilise des fichiers a acc&#233;s direct (mais oui &#231;a existe encore :o)) et qu'avant de quitter l'application je cloture tous mes fichiers et qu'aucune autre fen&#234;tre ne r&#233;side en m&#233;moire. Par curiosit&#233; j'ai remplac&#233; For Each par une boucle classique For I mais ya le m&#234;me r&#233;sultat et chose tr&#233;s extraordinaire (on en revient au sujet du message) lorsque je d&#233;sactive la boucle et que je r&#233;utilise le menu contextuel avec un code, l'application se d&#233;charge d'elle m&#234;me lorsqu'on quitte sans besoin d'utiliser END.

Si vous avez une id&#233;e de comment et pourquoi il se passe ce truc bizarre merci de m'&#233;clairer dans le cas contraire j'ai trouv&#233; la solution en utilisant l'instruction END m&#234;me si je ne suis pas fan de ce truc.

Derni&#232;re pr&#233;cision je ne bois que de l'eau plate lorsque je programme 
Bien &#224; vous !

Generation Software
http://www.gen-software.com

mythic_kruger · Answer

Est-ce que le mot Select est un mot r&#233;serv&#233;? Quel type de variable utilises-tu?

cs_NoFutur · Answer

"Select" est une variable que je d&#233;finis dans ma proc&#233;dure, elle est de type integer et n'existe pas en variable global. Pour qu'il n'y est pas d'ambiguit&#233; avec une autre variable dans mon code, je l'appelle "Selection", ici c'&#233;tait juste pour donner un court exemple.

Voil&#224; comment d'orgine il est construit :

Dim item as Listitem
Dim Selection as integer, i as integer

For each item in List1.ListItems  If item.selected True then selection selection + 1
next

If selection > 1 then 
   d&#233;sactive une partie du menu
else 
   active tout le menu
end if

Pour activer ou d&#233;sactiver des portions de menu j'utilise aussi une boucle For i avec un "On error resume next" en d&#233;but de proc&#233;dure &#224; cause des s&#233;parateurs qui ne g&#232;rent pas la propri&#233;t&#233; enabled.

Cordialement

Generation Software
http://www.gen-software.com

mythic_kruger · Answer

Rien de bien extraordinaire!

Fais une boucle; de 1 au nombre de ListItems. En plus, &#231;a &#233;vite de d&#233;clarer un objet ListItem.

Pour le menu, la propri&#233;t&#233; enabled peut &#234;tre g&#233;r&#233;e, je te conseille d' enlever le "on error resume next" puisqu' il ne peut y avoir d' erreur dans la boucle (un item standard avec caption "-" marche bien).

On r&#233;capitule (j'assume que tu as un menu principal appel&#233; mnuFichier contenant 2 sous-menus mnuUnSeul et mnuPlusieurs, &#224; activer selon une condition).

Dans l' &#233;v&#232;nement Mousedown du contr&#244;le ListView:

If Button <> 2 Then exit sub
Dim i As Integer,  maSomme As Integer
For i = 1 To ListView1.ListItems.Count   If ListView1.ListItems(i).Selected True Then maSomme maSomme + 1
Next i


    If maSomme = 1 Then
        mnuUnSeul.Enabled = True
        mnuPlusieurs.Enabled = False
    Else
        mnuUnSeul.Enabled = False
        mnuPlusieurs.Enabled = True
    End If


    PopupMenu mnuFichier
end sub

Et &#231;a marche au poil, en d&#233;pit de cet article:
http://support.microsoft.com/default.aspx?scid=kb;en-us;240946

cs_NoFutur · Answer

Ben en fait c'est pareil, ce que je n'ai pas pr&#233;cis&#233; c'est que j'utilise aussi des boucles dans la condition if then parceque mon menu contextuel est assez long et quand la variable i de la boucle arrive sur un s&#233;parateur boum "erreur d'ex&#233;cution 387" ce qui me semble normal d'ou la gestion de l'erreur.

Sinon c'est pile poil le code que j'ai fait, un peu modifi&#233;, mais m&#234;me topo au niveau de la fen&#234;tre &#231;a ne veut pas se fermer. Toute fa&#231;on te bil pas ya pas de soucis avec l'instruction END &#231;a passe quand m&#234;me je me d&#233;brouille juste de tout cloturer et d&#233;charger avant de l'utiliser.

Merci quand m&#234;me
@++++

Generation Software
http://www.gen-software.com

mythic_kruger · Answer

C'est pas tout &#224; fait le m&#234;me code vu que le mien fonctionne ;)