VBA (Excel) ActiveX Listbox Changer le comportement récursif d'événement

Vous avez raison à propos de l'utilisation de l'événement de changement, mais c'est un peu délicat dans les cases de liste. Vous avez évidemment déclencher l'événement de changement chaque fois que vous désélectionnez un élément, car vous êtes changer em> la liste de code de code.

La réponse de guitarthore em> va dans la bonne direction , mais je ne pense pas que Application.Enablevents code> ferait le travail dans ce cas car il n'a aucun effet sur les objets ActiveX. P>

Alors, j'essaierais ce deux Alternatives qui essaient d'émuler le travail de Application.Enablevents code> par la programmation simple: p>

• Alternative 1: solution générale pour l'événement de changement. Cependant, il est un peu risqué si la variable code> noexecute code> n'est pas réinitialisée par aucune raison (fonction de sortie due à une erreur). P>

  Private Sub ListBox1_Change()
      For i = 0 To ListBox1.ListCount - 1
          If ListBox1.Selected(i) Then
              ListBox1.Selected(i) = False
          End If
      Next
  End Sub        
  

• alternative 2: meilleure solution dans ce cas, bien que pas aussi jolie que la précédente. P>

  Private NoExecute As Boolean
  
  Private Sub ListBox1_Change()
  
      If NoExecute Then Exit Sub
  
      NoExecute = True
  
      For i = 0 To ListBox1.ListCount - 1
          ListBox1.Selected(i) = False
      Next
  
      NoExecute = False
  
  End Sub
  

Arrêter la folie infinie, vous pouvez le faire (une question difficile encore meilleure est, pourquoi voudriez-vous faire cela quand même, car après cette valeur ne peut être sélectionnée ou peut être réellement modifiée en faux) - < PRE> XXX

Maintenant, la raison de la boucle infinie n'est pas visible et que l'on ne peut que deviner, mais permet d'abord de corriger l'hypothèse que le bloc de code sans la prochaine boucle ne causerait pas le même problème. Il fait la même chose que la première chose que le premier et est coincé dans une boucle infinie, si vous modifiez la valeur de la liste de liste1.Selected (1) ou ultérieure.

Pourquoi cela se produit est que l'événement changera Être déclenché juste après la modification de la première valeur et que la première cellule est modifiée, l'événement de modification est déclenché et que l'exécution de code est arrêtée pour cette instance et commence à nouveau. Maintenant, les deux codes fonctionnent sans causer de boucle si seul le premier élément est changé et pourquoi cela se produit est probablement que le compilateur frappe avec son automatie. Je ne peux pas vous dire la vraie raison derrière les événements, mais ce qui se passe probablement, c'est que le compilateur prédit lorsque seule la première valeur est modifiée et optimise le code pour ne faire que le seul changement et rien d'autre et quand les autres valeurs changent, il tente de Réécrivez chaque valeur et la première valeur à chaque fois et encore la boucle infinie est déclenchée.

C'est à quoi il s'agit, de bien comprendre ce qui se passe sous la hotte, vous feriez mieux de contacter Mme. < / p>

juste pour référence future: Si vous voulez juste Désactiver la sélection forte> dans une liste CODE> ListBox CODE> UTILISEZ UTILISER

ListBox.Locked = True

Je suis une année de retard à la fête mais j'espère que cela aidera les autres. J'avais un problème avec listbox1_click () forte> boucle infinie plutôt que change () strong>. Cependant, je pense que cela peut être une solution viable aux deux.

Chaque fois que j'ai appelé listbox1.Selected (i) = true fort>, il le déclencherait comme un clic () strong> ou un change () strong> . Dans ma routine clic () forte>, il existe certains index qui entraîneront la repeuplement de la liste complète de se repoduler avec une nouvelle liste et resélect fort> lui-même. Cela provoque la boucle infinie quand elle se résolvait. Il m'a fallu une journée pour résoudre le problème, mais à la fin de la solution, n'utilisez pas l'événement Click () Strong>; Au lieu de cela, j'ai utilisé MouseDown () Strong> événement avec un petit calcul. Cela élimine l'utilisation de click () fort>. J'ai noté que j'utilise cela dans une seule liste de liste Sélectionner et non une liste de liste de sélection multiple. Vous pouvez utiliser une déclaration si forte> avec un booléen pour l'appliquer à Multiselect. Goodluck! P>

Private Sub ListBox1_MouseDown(ByVal Button As Integer, ByVal Shift As 

Integer, ByVal x As Single, ByVal Y As Single)

    On Error Resume Next  'You can comment this out for trouble shooting
    If Button = 1 And UBound(ListBox1.List) <> -1 Then
        ListBox1.Selected(((Y / 9.75) - 0.5) + ListBox1.TopIndex) = True
        MsgBox "left Click"
        'You can use Button = 2 for right click
        'Do some other stuff including listbox1.select(1234)

    End If
End Sub